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This Library Memo announces the release and availability of Update E to “SPERRY® Operating 
System/3 (OS/3) Report Program Generator II (RPG !I) User Guide”, UP—8067 Rev. 6. 


This manual is one of a series describing the SPERRY Report Program Generator Il. Other manuals that 
describe RPG Il are: 


a Report Program Generator II (RPG Il) Programmer Reference, UP~8044 

a Report Program Generator Il (RPG Il) Summary, UP—8253 

a Report Program Generator Il (RPG Il) Editor User Guide/Programmer Reference, UP—9981 

r Information Management System (IMS) Action Programming in RPG I! User Guide, UP—9206. 


RPG Il is a programming lanaguage used in business data processing applications. You code programs by 
making entries on preprinted forms and entering the statements at a workstation with the OS/3 RPG Il editor. 
The number and type of forms you use depend on the application. The auto report feature simplifies writing 
RPG !I programs and output specifications. 


This manual describes RPG li concepts and data handling capabilities, tells how to complete the RPG Il 
specifications forms and process an RPG Il program, and explains the simplified output specification using auto 
report. 


This update for release 10.0 describes how to use the figurative constants “BLANK, “BLANKS, *ZERO, and 
*ZEROS as factors in a calculations specification. 


All other changes are minor technical or editorial corrections. 


Copies of Update E are now available. You can order the update only or the complete manual with the update 
through your local Sperry representative. To receive only the update, order UP—8067 Rev. 6-E. To receive the 
complete manual, order UP—8067 Rev. 6. 
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This Library Memo announces the release and availability of Update Package D to “SPERRY Operating 
System/3 (OS/3) Report Program Generator II (RPG II) User Guide”, UP-8067 Rev. 6. 


RPG ll is a programming language used in business data processing applications. You code programs by 
making entries on preprinted forms and entering the statements at a workstation with the OS/3 RPG Il editor. 
The number and type of forms you use depend on the application. The auto report feature simplifies writing 
RPG I! programs and output specifications. 


This manual describes RPG II concepts and data handling capabilities, tells how to complete the RPG Il 
specifications forms and process an RPG Il program, and explains the simplified output specification using auto 
report. 
Update D documents: 

@ a The REFER operation, which lets you retrieve records from indexed multikey files in IMS action programs. 
a Additional compilation time error messages. 


All other changes are minor technical or editorial corrections. 


Copies of Update Package D are now available for requisitioning. Either the update package only or the 
complete manual with the update package may be requisitioned by your local Sperry representative. To receive 
only the update package, order UP-8067 Rev. 6—D. To receive the complete manual, order UP-8067 Rev. 6. 
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This Library Memo announces the release and availability of Updating Package C to “SPERRY 
Operating System/3 (OS/3) Report Program Generator II (RPG II) User Guide”, UP-8067 Rev. 6. 


This update for release 8.2 incorporates additional information about the following features: 
a Field location description 

= Interactive data entry screen formats 

. PROGID keyword parameter 

a Changed and expanded diagnostic messages 


Sample programs for creating, updating, and adding records to a keyed MIRAM file are added. The new 
@ sample programs and other corrections and expanded descriptions apply to the software prior to the 8.2 
release. 


Copies of Updating Package C are now available for requisitioning. Either the updating package only or the 
complete manual with the updating package may be requisitioned by your local Sperry representative. To 
receive only the updating package, order UP-8067 Rev. 6-C. To receive the complete manual, order UP-8067 
Rev. 6. 
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This Library Memo announces the release and availability of Updating Package B to "“SPERRY 
Operating System/3 (OS/3) Report Program Generator I] (RPG II) User Guide”, UP-8067 Rev. 6. 


This update includes the following: 


a a reference to assigned DVC numbers; 


rT a correction as to how many continuation specifications may be used (five); 


rT] an expanded explanation of the ARO68 diagnostic message; 


= data structures that begin on a double-word boundary in main storage; 


a a correction of the number of workstations (255) used with workstation files; and 


a an explanation for placement of input format specifications for data structures. 


All other changes are corrections or expanded descriptions. 


Copies of Updating Package B are now available for requisitioning. Either the updating package only or the 
complete manual with the updating package may be requisitioned by your local Sperry representative. To 
receive only the updating package, order UP-8067 Rev. 6-B. To receive the complete manual, order UP-8067 
Rev. 6. 
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This Library Memo announces the release and availability of Updating Package A to "SPERRY UNIVAC 
Operating System/3 (OS/3) Report Program Generator II (RPG Il) User Guide”, UP-8067 Rev. 6. 


This update incorporates additional information about RPG II for release 8.0: 
a Using RPG II interactively 
a /SPACE n directive 
5 Error messages 
a Defining a PAGE field 
a Job control for interactive data entry 
@ a SETK operation 
~ C] RCB continuation line for MIRAM files 
a File retrieval 
a Data structures 
a = =©Multikey MIRAM files 
rT] Adding/deleting records 
a MIRAM parameter 


All other changes are corrections or expanded descriptions applicable to features present in RPG Il prior to the 
8.0 release. 


Copies of Updating Package A are now available for requisitioning. Either the updating package only or the 
complete manual with the updating package may be requisitioned by your local Sperry Univac representative. 
To receive only the updating package, order UP-8067 Rev. 6-—A. To receive the complete manual, order 
UP-8067 Rev. 6. 
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This Library Memo announces the release and availability of “SPERRY uNivac® Operating System/3 (OS/3) 
Report Program Generator II (RPG Il) User Guide’, UP-8067 Rev. 6. 


This revision describes the following RPG I} features for release 8.0: 


Error file processing 
AUTO, AUTRPG, AUTRPGL, and AUTRPGLG jprocs 
MIRAM multikey support 
Interactive data entry 
Currency sign other than dollar sign 
SHTDN, SETK, and NEXT operations 
/EJECT, /SPACE, and /TITLE directives 
Function key indicators 
Error log access 
N 
Data structures allowing multiple definitions of data 
Multiple workstation support 


Workstation file continuation statements 


All other changes are corrections or expanded descriptions applicable to RPG II prior to the 8.0 release. 


Destruction Notice: If you are going to OS/3 release 8.0, use this revision and destroy all previous copies. If you are 
not going to OS/3 release 8.0, retain the copy you are now using and store this revision for future use. 


Copies of UP-8067 Rev. 5 and UP-8067 Rev. 5—A will be available for 6 months after the release of 8.0. Should you 
need additional copies of this edition, you should order them within 90 days of the release of 8.0. When ordering the 
previous edition of a manual, be sure to identify the exact revision and update packages desired and indicate that 
they are needed to support an earlier release. 
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Preface 


This manual is one of a series designed to instruct and guide the programmer in the use 
of the SPERRY Operating System/3 (OS/3). This manual specifically describes the OS/3 
Report Program Generator (RPG Il) and its effective use. Its intended audience is the 
novice programmer with a basic knowledge of data processing, but with limited 
programming experience, and the RPG Il programmer whose experience is limited to 
systems other than those of Sperry. 


Two other manuals are available that cover OS/3 RPG Il; one is an introductory manual 
and the other is a programmer reference (PR) manual. The introductory manual, 
UP-8004 (current version), briefly describes OS/3 RPG II and its facilities. The PR, 
UP-8044 (current version), provides the characteristics of OS/3 RPG II in skeletal form 
and is intended as a quick-reference document for the programmer experienced in the 
use of OS/3 RPG Il. 


This user guide is subdivided into the following parts: 
m = PART 1. RPG Il CONCEPTS AND DATA HANDLING CAPABILITIES 


Introduces you to RPG II in terms of what it is, the way in which you use it, the 
general program logic, how your files can be organized, and the record and data 
formats that you can use with RPG Il to implement your data processing 
applications. 


m = =PART 2. RPG II SPECIFICATIONS FORMS 


Describes the forms that you use to define your data processing application to RPG 
Il. 


= = =PART 3. USING RPG II 


Describes the various indicators used to control RPG Il, the file processing 
techniques that you can use to process your files, printing techniques, the method 
used to incorporate subroutines within your program, the way to utilize external 
subroutines, and how to write IMS action programs in RPG II. 
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PART 4. RPG Il TELECOMMUNICATIONS 


Describes how you can communicate with remote terminals and use RPG II from a 
remote site. 


PART 5. PROCESSING YOUR RPG Ii PROGRAM 

Describes how to compile, link, and execute your programs. 
PART 6. AUTO REPORT 

Describes how to use auto report to produce formatted reports. 
PART 7. APPENDIXES 


Contains additional information pertaining to RPG Il. 


Each of the foregoing parts consists of one or more sections that cover the different 
aspects of the subject matter covered in each part. 


Other current OS/3 publications, referenced in this manual, are useful to the programmer 
working with RPG Il. They are: 


System 80 


RPG II editor user guide/programmer reference, UP-8803 
Describes how to program at a workstation. 


Information management system (IMS) action programming in RPG Il user guide, 
UP-9206 


Describes how to write action programs in RPG Il. 
Screen format services concepts and facilities, UP-8802 
Describes the screens and formats used on workstation terminals. 


Interactive services commands and facilities user guide/programmer reference, 
UP-8845 


Describes the commands and operating procedure for workstation terminals. 


Consolidated data management macroinstructions user guide/programmer reference, 
UP-9979 


Describes the data management macroinstructions. 
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SORT3 user guide/programmer reference, UP-8836 

Describes how to sort records and manipulate the fields within them. 

Data utilities user guide/programmer reference, UP-8834 

Describes how to reproduce and maintain data files. 

System installation user guide/programmer reference, UP-8839 

Describes how to generate, install, and tailor your operating system. 

System messages programmer/operator reference, UP-8076 

Lists and describes the system console messages issued during compilation. 
Job control user guide, UP-8065 

Provides information on the format and usage of job control statements. 
ICAM concepts and facilities, UP-8194 

Describes how to prepare the system to receive or send data to another system. 
ICAM direct data interface (DDI) user guide, UP-8459 


Describes the instructions needed to write a communications program for 
transmission to another system. 


ICAM utilities user guide, UP-8552 


Describes how to make the 90/30 system operate as a terminal. 


Series 90 Systems 


Basic data management user guide, UP-8068 

Describes the data management macroinstructions. 

Sort/merge user guide, UP-8342 

Describes how to sort records and manipulate the fields within them. 
Data utilities user guide/programmer reference, UP-8069 


Describes how to reproduce and maintain data files. 





UP-8067 Rev. 6 SPERRY UNIVAC OS/3 Preface 4 


RPG if Update E 
a ee ES 


# System installation user guide/programmer reference, UP-8074 & 


Describes how to generate, install, and tailor your operating system. 





= System messages programmer/operator reference, UP-8076 
Lists and describes the system console messages issued during compilation. 
# Job contro! user guide, UP-8065 
Provides information on the format and usage of job control statements. 
= ICAM concepts and facilities, UP-8194 
Describes how to prepare the system to receive or send data to another system. 
a ICAM direct data interface (DDI) user guide, UP-8459 


Describes the instructions needed to write a communications program for 
transmission to another system. 


m ICAM utilities user guide, UP-8552 


Describes how to make the 90/30 system operate as a terminal. 


Throughout this manual, reference is made to the Series 90 environment. This is a catch- 
all phrase for the 90/25, 90/30, 90/30 B, and 90/40 operating systems. 
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Contents 


PART 1. RPG Il CONCEPTS AND DATA HANDLING CAPABILITIES 


1. CONCEPTS 


1.1. WHAT IS RPG Il? 

1.2. HOW TO USE RPG Ii WITH CARDS 

1.3. HOW TO USE RPG II ON A WORKSTATION 
1.4. RPG Il GENERAL PROGRAM LOGIC 


1.4.1. Detail Time 
1.4.2. Total Time 
1.4.3. General Program Cycle 


2. RPG Il FILE AND DATA HANDLING CAPABILITIES 


2.1. FILE CHARACTERISTICS 
2.1.1. File Type 
2.1.2. File Designation 


2.2. FILE ORGANIZATION 
2.2.1. Sequential Files 
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5.2.12. File Organization (Column 32) 5-14 
5.2.13. Overflow Indicator (Columns 33 and 34) 5-16 
5.2.14. Key Field Starting Location (Columns 35 through 38) 5-17 
5.2.15. Extension or Line Counter Code (Column 39) 5-17 
5.2.16. Device (Columns 40 through 46) 5-17 
5.2.17. Labels (Column 53) 5-20 
5.2.18. Continuation Lines (Columns 53 through 69) 5-20 
5.2.18.1. Continuation Line Indicator (Column 53) 5-22 
5.2.18.2. Option (Columns 54 through 59) 5-22 
5.2.18.3. Entry (Columns 60 through 65) 5-23 
5.2.18.4. Key Length (Columns 66 and 67) 5-26 
5.2.18.5. Duplicate Record (Column 68) 5-26 
5.2.18.6. Change Keys (Column 69) 5-26 
5.2.19. Name of Label Exit or Name of User Device Routine (Columns 54 through 59) 5-—26a 
5.2.20. Number of Bytes in Main Storage to Be Reserved for Index 

(Columns 60 through 65) 5-27 
5.2.21. File Addition/Unordered Load (Column 66) 5-28 
5.2.22. Cylinder Overflow Space Percentage (X10) (Column 67) 5—28c 
5.2.23. Number of Extents (Columns 68 and 69) 5-29 
5.2.24. Tape Rewind Option (Column 70) 5-29 
5.2.25. File Conditioners (Columns 71 and 72) 5-30 
5.3. EXAMPLES OF ENTRIES ON THE FILE DESCRIPTION SPECIFICATIONS 

FORM 5-30 
INPUT FORMAT SPECIFICATIONS FORM 
6.1. GENERAL DESCRIPTION 6-1 
6.2. RECORD IDENTIFICATION ENTRIES (COLUMNS 7 THROUGH 42) 6-1 
6.2.1. File Name (Columns 7 through 13) 6-3 
6.2.2. Sequence (Columns 15 and 16) 6-3 
6.2.3. Number (Column 17) 6-3 
6.2.4. Optional (Column 18) 6-4 
6.2.5. Record Identifying Indicator (Columns 19 and 20) 6-4 
6.2.5.1. Look-Ahead Feature 6-5 
6.2.5.2. Spread Card Feature 6-5 
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6.2.6. Record Identification Codes (Columns 21 through 41) 6-8 
6.2.6.1. Position (Columns 21 through 24, 28 through 31, and 35 through 38) 6-10 
6.2.6.2. N=NOT (Columns 25, 32, and 39) 6-10 
6.2.6.3. C/Z/D - Characters, Zone, Digit (Columns 26, 33, and 40) 6-10 
6.2.6.4. Character (Columns 27, 34, and 41) 6-11 
6.2.7. Stacker Select (Column 42) 6-11 
6.2.8. AND/OR Relationship (Columns 14 through 16) 6-12 
6.3. FIELD DESCRIPTION ENTRIES (COLUMNS 43 THROUGH 70) 6-12 
6.3.1. Data Format (Column 43) 6-12 
6.3.2. Field Location (Columns 44 through 51) 6-13 
6.3.3. Decimal Positions (Column 52) 6-14 
6.3.4. Field Name (Columns 53 through 58) 6-14a 
6.3.5. Control Level (Columns 59 and 60) 6-15 
6.3.6. Matching Fields or Chaining Fields (Columns 61 and 62) 6-17 
6.3.6.1. Matching Fields 6-17 
6.3.6.2. Chaining Fields 6-18 
6.3.7. Field Record Relation (Columns 63 and 64) 6-19 
6.3.8. Field Indicators (Columns 65 through 70) 6-20 
6.4. EXAMPLES OF ENTRIES ON THE INPUT FORMAT SPECIFICATIONS FORM _ 6-20 


7. CALCULATION SPECIFICATIONS FORM 





7.1. GENERAL DESCRIPTION 7-1 
7.2. CONDITIONS ENTRIES (COLUMNS 7 THROUGH 17) 7-1 
7.2.1. Control Level (Columns 7 and 8) 7-1 
7.2.2. Indicators (Columns 9 through 17) 7-3 
7.2.3. AND/OR Relationship (Columns 7 and 8) 7-5 
7.3. CALCULATION ENTRIES (COLUMNS 18 THROUGH 53) 7-6 
7.3.1. Factor 1 and Factor 2 (Columns 18 through 27 and Columns 33 through 42) 7-6 
7.3.2. Operation (Columns 28 through 32) 7-7 
7.3.2.1 Arithmetic Operations 7-7 
7.3.2.1.1. Add (ADD) 7-8 
7.3.2.1.2. Zero and Add (Z-ADD) 7-8 
7.3.2.1.3. Subtract (SUB) 7-9 
7.3.2.1.4. Zero and Subtract (Z-SUB) 7-9 
7.3.2.1.5. Multiply (MULT) 7-9 
7.3.2.1.6. Divide (DIV) 7-10 
7.3.2.1.7. Move Remainder (MVR) 7-10 
7.3.2.1.8. Square Root (SORT) 7-12 
7.3.2.1.9. Cross-Foot (XFOOT) 7-12 
7:3.2.2: Move Operations 7-12 
7.3.2.2.1. Move (MOVE) 7-13 
7.3.2.2.2. Move Array (MOVEA) 7-16 
7.3.2.2.3. Move Left (MOVEL) 7-17 
7.3.2.2.4. Move Low Zone to Low Zone (MLLZO) 7-20 
7.3.2.2.5. Move Low Zone to High Zone (MLHZO) 7-21 
7.3.2.2.6. Move High Zone to Low Zone (MHLZO) 7-22 





7.3.2.2.7. Move High Zone to High Zone (MHHZO) 7-22 
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7.3.2.3. 
7.3.2.3.1. 
7.3.2.3.2. 
7.3.2.3.3. 
7.3.2.3.4. 
7.3.2.4. 
7.3.2.4.1. 
7.3.2.4.2. 
7.3.2.4.3, 
7.3.2.4.4. 
7.3.2.4.5, 
7.3.2.4.6. 
7.3.2.4.7. 
7.3.2.4.8. 
7.3.2.5. 
7.3.2.5.1. 
7.3.2.5.2. 
7.3.2.6. 
7.3.2.6.1. 
7.3.2.6.2. 
7.3.2.7. 
7.3.2.7.1. 
7.3.2.8. 
7.3.2.8.1. 
7.3.2.8.1A. 
7.3.2.8.2. 
7.3.2.8.3. 
7.3.2.8.5, 
7.3.2.8.6. 
7.3.2.8.7. 
7.3.2.8.8. 
7.3.2.8.9. 
7.3.2.9. 
7.3.2.9.1. 
7.3.2.10. 
7.3.2.11. 
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Compare and Test Operations 
Compare (COMP) 
Test Bit (TESTB) 
Test Numeric (TESTN) 
Test Zone (TESTZ) 
Branching and Exit Operations 
Branch (GOTO) 
Tag (TAG) 
Begin Internal Subroutine (BEGSR) 
End Internal Subroutine (ENDSR) 
Execute Internal Subroutine (EXSR) 
Exit to Linked Subroutine (EXIT) 
External Subroutine Access to RPG Il Program (RLABL) 
RPG {I Program to External Subroutine Access (ULABL) 
Indicator Setting Operations 
Set On (SETON) 
Set Off (SETOF) 
Bit Setting Operations 
Set Bit On (BITON) 
Set Bit Off (BITOF) 
Look-Up Operations 
Look-Up (LOKUP) 
File Processing Operations 
Retrieve Record from a Chained File (CHAIN) 
Retrieve Record from a Chained File (REFER) — IMS Action Programs Only 
Select Key Structure (SETK) 
Read Record (READ) 
Override Normal Record Selection (FORCE) 
Display (DSPLY) 
Exception Lines (EXCPT) 
Debug (DEBUG) 
Next Workstation Input (NEXT) 
Time of Day Operations 
Time (TIME) 
System Shutdown (SHTDN) 
Operations Summary 


7.3.3. Result Field (Columns 43 through 53) 


7.3.3.1. Name (Columns 43 through 48) 

7.3.3.2. Field Length (Columns 49 through 51) 

7.3.3.3. Decimal Positions (Column 52) 

7.3.3.4. Half Adjust (Column 53) 

7.4. RESULTING INDICATOR ENTRIES (COLUMNS 54 THROUGH 59) 


7.4.1. +, 1>2, or High (Columns 54 and 55) 


7.4.2. _ 
7.4.3. 0, 


1<2, or Low (Columns 56 and 57) 
1=2, or Equal (Columns 58 and 59) 


7.4.4. Comments (Columns 60 through 74) 


7.5. EXAMPLES OF ENTRIES ON THE CALCULATION SPECIFICATIONS FORM 
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8. OUTPUT FORMAT SPECIFICATIONS FORM 


8.1. 


8.2. 


8.2.1. 
8.2.2. 
8.2.3. 
8.2.4. 
8.2.5. 


8.2.6. 
8.2.7. 
8.2.8. 


8.3. 
8.3.1. 
8.3.2. 
8.3.3. 
8.3.4. 
8.3.5. 
8.3.6. 
8.3.7. 
8.3.8. 
8.3.9. 
8.3.10. 


8.4. 


GENERAL DESCRIPTION 


OUTPUT FILE IDENTIFICATION AND CONTROL ENTRIES 
(COLUMNS 7 THROUGH 31) 

File Name (Columns 7 through 13) 

Type (Column 15) 

Stacker Select/Fetch Overflow (Column 16) 

AND/OR Relationship (Columns 14 through 16) 

Adding and Deleting Existing Indexed Sequential File Records and 
Deleting Transaction Buffers (Columns 16 through 18) 
Space (Columns 17 and 18) 

Skip (Columns 19 through 22) 

Output Indicators — Records (Columns 23 through 31) 


FIELD DESCRIPTION AND CONTROL ENTRIES (COLUMNS 23 THROUGH 70) 
Output Indicators — Fields (Columns 23 through 31) 
Field Name (Columns 32 through 37) 

Edit Codes (Column 38) 

Blank After (Column 39) 

End Position in Output Record (Columns 40 through 43) 
Length of Screen Format Name (Columns 42 and 43) 
Data Format (Column 44) 

Constant (Columns 45 through 70) 

Edit Word (Columns 45 through 70) 

Format Name (Columns 45 through 54) 


EXAMPLE OF ENTRIES ON THE OUTPUT FORMAT SPECIFICATIONS FORM 


9. FILE EXTENSION SPECIFICATIONS FORM 


9.1. 


9.2. 
9.2.1. 
9.2.2. 
9.2.3. 
9.2.4. 
9.2.5. 
9.2.6. 
9.2.7. 
9.2.8. 
9.2.9 


9.2.10. 
9.2.11. 
9.2.12. 
9.2.13. 
9.2.14. 
9.2.15. 
9.2.16. 
9.2.17. 


9.3. 


GENERAL DESCRIPTION 


FORM ENTRIES 

Record Sequence of Chaining File (Columns 7 and 8) 
Number of the Chaining Field (Columns 9 and 10) 
From File Name (Columns 11 through 18) 

To File Name (Columns 19 through 26) 

Table or Array Name (Columns 27 through 32) 

Number of Entries per Record (Columns 33 through 35) 
Number of Entries per Table or Array (Columns 36 through 39) 
Length of Entry (Columns 40 through 42) 

Data Format (Column 43) 

Decimal! Positions (Column 44) 

Sequence (Column 45) 

Table or Array Name (Columns 46 through 51) 

Length of Entry (Columns 52 through 54) 

Data Format (Column 55) 

Decimal Positions (Column 56) 

Sequence (Column 57) 

Comments (Columns 58 through 74) 


EXAMPLES OF ENTRIES ON THE FILE EXTENSION SPECIFICATIONS FORM 
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@ 10. LINE COUNTER SPECIFICATIONS FORM 
10.1. GENERAL DESCRIPTION 10-1 


10.2. FORM ENTRIES FOR ALL MODES OTHER THAN THE IBM SYSTEM/3 MODE _ 10-1 


10.2.1. File Name (Columns 7 through 14) 10-1 
10.2.2. Line Number (Columns 15 through 17, 20 through 22, 25 through 27, ..., 

70 through 72) 10-3 
10.2.3. Channel Number (Columns 18 and 19, 23 and 24, 28 and 29, .... 73 and 74) 10-3 
10.3. FORM ENTRIES FOR THE IBM SYSTEM/3 MODE 10-3 
10.3.1. File Name (Columns 7 through 14) 10-3 
10.3.2. Line Number — Number of Lines per Page (Columns 15 through 17) 10-3 
10.3.3. Channel Number — Form Length Indicator (Columns 18 and 19) 10-3 
10.3.4. Line Number — Overflow Line (Columns 20 through 22) 10-3 
10.3.5. Channel Number — Overflow Line Indicator (Columns 23 and 24) 10-4 
10.3.6. Line Number (Columns 25 through 27,..., 70 through 72) and Channel 

Number (Columns 28 and 29...., 73 and 74) 10-4 


10.4. EXAMPLES OF ENTRIES ON THE LINE COUNTER SPECIFICATIONS FORM 10-4 


11. TELECOMMUNICATIONS SPECIFICATIONS FORM 


11.1. GENERAL DESCRIPTION 11-1 
@ 11.2. FORM ENTRIES 11-1 
11.2.1. File Name (Columns 7 through 13) 11-1 
11.2.2. Configuration (Column 15) 11-3 
11.2.3. Type of Station (Column 16) 11-3 
11.2.4. Transparency (Column 19) 11-3 
11.2.5. Switched (Column 20) 11-3 
11.2.6. Remote Terminal (Columns 48 through 51) 11-4 
11.2.7. Permanent Error Indicator (Columns 53 and 54) 11-4 
11.2.8. Wait Time (Columns 55 through 57) 11-5 
11.2.9. Last File (Column 60) 11-5 
11.2.10. Remote Device (Columns 65 through 70) 11-5 
11.2.11. Terminal Name (Columns 71 through 74) 11-6 


11.3. EXAMPLES OF ENTRIES ON THE TELECOMMUNICATIONS SPECIFICATIONS 
FORM 11-6 


PART 3. USING RPG II 


12. CONTROLLING RPG Il 


12.1. GENERAL 12-1 





UP-8067 Rev. 6 SPERRY UNIVAC OS/3 Contents 8 
RPG lt! Update C 
12.2. INDICATORS DEFINED ON THE RPG II SPECIFICATIONS FORMS 12-1 
12.2.1. Record Identifying Indicator 12-1 
12.2.2. Control Level Indicator 12-3 
12.2.3. Field Indicator 12-7 
12.2.4. Resulting Indicator 12-7 
12.2.5. Overflow Indicator 12-9 
12.2.6. Function Key Indicator 12-11 
12.3. INDICATORS NOT DEFINED ON THE RPG II SPECIFICATIONS FORMS 12-11 
12.3.1. €xternal Indicators 12-12 
12.3.2. Internal Indicators 12-12 
12.4. USING THE INDICATORS 12-14 
12.4.1. File Conditioning 12-15 
12.4.2. Control Level 12-15 
12.4.3. Field Record Relation 12-15 
12.4.4. Calculation Conditioning 12-16 
12.4.5. Output Conditioning 12-17 
12.5. SUMMARY OF INDICATORS 12-19 
12.6. SETTING INDICATORS ON VIA THE SYSTEM CONSOLE 12-23 
12.6.1. PF Key Subroutine (SUBR89) 12-23 
12.6.1.1. Using a PF Key with a Positive Number 12-23 
12.6.1.2. Using a PF Key with a Negative Number 12-25 
12.6.2. Unsolicited Inquiry Request Subroutine (SUBR95) 12-26 
12.6.3. Incorrect Type-Ins 12-28 
13. FILE PROCESSING METHODS 
13.1. GENERAL 13-1 
13.2. SEQUENTIAL PROCESSING 13-2 
13.3. PROCESSING WITH MATCHING RECORDS 13-2 
13.3.1. Primary File 13-2 
13.3.2. Specifying Matching Fields 13-2 
13.3.3. Record Selection 13-3 
13.3.4. Matching Record Indicator (MR) 13-7 
13.4. PROCESSING BY CHAINING 13-7 
13.4.1. Chaining Indexed Sequential Files 13-8 
13.4.2. Chaining Direct Files 13-13 
13.4.3. Creating a Direct File Using the CHAIN Operation 13-13 
13.5. RECORD ADDRESS FILE PROCESSING 13-17 
13.5.1. Processing an Indexed Sequential File Randomly 13-17 
13.5.2. Processing an Indexed Sequential File between Limits 13-18 
13.6. PROCESSING WITH AN ADDROUT FILE 13-21 
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13.7. DEMAND FILES AND READ OPERATION PROCESSING 
13.7.1. Demand File 

13.7.2. READ Operation 

13.7.3. Using Demand Files and the READ Operation 

13.7.3.1. Processing a Demand File 

13.7.3.2. Processing a Demand File Using the SETLL Operation 


13.8. LOOK-AHEAD FIELDS AND FORCE OPERATION PROCESSING 
13.8.1. Look-Ahead Fields 

13.8.2. FORCE Operation 

13.8.3. Using Look-Ahead Fields and the FORCE Operation 

13.8.3.1. Controlling Record Selection during Multifile Processing 
13.8.3.2. Matching Records from Secondary Files 


13.9. PROCESSING WITH TABLES 

13.9.1. Table Formats 

13.9.2. Table Definition 

13.9.2.1. File Description and File Extension Specifications Form Entries for Table Definition 
13.9.2.2. Table Definition Examples 

13.9.3. Using Tables 

13.9.3.1. Using the LOKUP Operation 

13.9.3.2. Using Data from Table LOKUP 

13.9.3.3. Modifying a Table during Program Execution 

13.9.3.4. Adding Elements to an Existing Table 


13.10. PROCESSING WITH ARRAYS 
13.10.1. Array Formats 
13.10.2. Array Definition 
13.10.2.1. File Description and File Extension Specifications Form Entries for Array Definition 
13.10.2.2. Array Definition Examples 
13.10.3. Using Arrays 
13.10.3.1. Loading an Array with the Input Format Specifications Form Using Fixed Indexes 
13.10.3.2. Loading an Array with the Input Format Specifications Form Using 
Input Fields as Indexes 
13.10.3.3. Loading an Array with the Calculation Specifications Form 
13.10.3.4. Using the LOKUP Operation with Arrays 
13.10.3.5. Using Arrays to Format Output Records 
13.10.3.6. Using Arrays to Reduce the Number of Statements You Must Write 
13.10.3.7. Using the EXCPT Operation to Write Array Elements 


13.11. PROCESSING WITH ALTERNATE COLLATING SEQUENCE 

13.11.1. RPG II Collating Sequence 

13.11.2. Defining an Alternate Collating Sequence 

13.11.3. Using an Alternate Collating Sequence 

13.11.3.1. Causing Characters to Be Considered Equal 

13.11.3.2. Inserting a Character between Two Existing Characters in the Collating Sequence 
13.11.3.3. Changing the Position of Characters in the Collating Sequence 


13.12. PROCESSING WITH FILE TRANSLATION 

13.12.1. Defining a File Translation Table 

13.12.2. Using a File Translation Table 

13.12.2.1. Using File Translation to Translate Characters in a File 
13.12.2.2. Using File Translation for More than One but Not All Files 
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13-22 
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13-28 
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13-33 
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13-41 
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13.13. PROCESSING WITH WORKSTATIONS 13-82 
13.13.1. File Description Specifications for Workstation Files 13-84 
13.13.2. Input Format Specifications for Workstation Files 13-85 
13.13.3. Calculation Specifications for Workstation Files 13-85 
13.13.4. Output Format Specifications for Workstation Files 13-85 
13.13.5. Input/Output Errors for Workstation Files 13-86 
13.13.6. Sample Program for a Workstation File 13-86 
13.14. KEY SPECIFICATION WITH MIRAM FILES 13-90 
13.14.1. Processing a Multikey File Sequentially by Key 13-90a 
13.15. PROCESSING WITH DATA STRUCTURES 13-91 
13.15.1. Input Format Specifications for Data Structures 13-92 
13.15.2. Input Format Specifications for Subfields of a Data Structure 13-92 
13.16. PROCESSING WITH INTERACTIVE DATA ENTRY 13-94 
13.16.1. File Description Specifications for Interactive Data Entry 13-96 
13.16.2. Input Format Specifications for Interactive Data Entry 13-97 

14. PRINTING TECHNIQUES 
14.1. GENERAL 14-1 
14.2. PRINTER FORMAT CHART 14-1 
14.3. EDITING 14-3 
14.3.1. Edit Codes 14-5 
14.3.1.1. Simple Edit Codes 14-5 
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14.4.2. PAGE, PAGE1-—7 14-12 
14.4.3. *PLACE 14-12a 
14.5. LINE COUNTER FILES 14-13 
14.5.1. Using Line Counter Files 14-13 
14.5.2. Printing Line Counter Files 14-14 
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15.1. GENERAL 15-1 
15.2. INTERNAL SUBROUTINES 15-1 
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15.3. EXTERNAL SUBROUTINES 15-4 
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15.4. RPG Il SUBROUTINES 15-6 
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16. IMS — RPG If ACTION PROGRAMS 


16.1. 


16.2. 


16.3. 


16.4. 


GENERAL 
RPG Il SPECIFICATIONS FORMS 
RESTRICTIONS 


IMS -— RPG Il INTERFACE AREAS 


PART 4. RPG Il TELECOMMUNICATIONS 


17. TELECOMMUNICATIONS 


17.1. 


17.2. 


17.3. 
17.3.1. 
17.3.1.1. 
17.3.1.2. 
17.3.1.3. 
17.3.2. 
17.3.2.1. 


GENERAL 
USING TELECOMMUNICATIONS 


FILE PROCESSING MODES 

Using Batch Remote Terminals 
Receive-Only Processing Using a DCT 2000 Data Communications Terminal 
Transmit-Only Processing Using Two DCT 1000 Data Communications Terminals 
Transmit a File, Then Receive Another File Using a BSC Remote Terminal 

Using Interactive Remote Terminals 
UNISCOPE 100 and UNISCOPE 200 Display Terminals 


. 17.3.2.1.1. | Transmit with Reception of Conversational Reply Using Four UNISCOPE 100 


17.3.2.2. 


Display Terminals 
Teletypewriter and DCT 500 Series Data Communications Terminals 


17.3.2.2.1. Transmit with Reception of Conversational Reply Using Two DCT 500 Data 


17.4. 


17.5. 


17.6. 


Communications Terminals and a Teletypewriter Terminal 


NETWORK DEFINITION REQUIREMENTS FOR RPG II 
TELECOMMUNICATIONS PROGRAMS 


PROGRAM EXECUTION 


ERROR PROCESSING 


PART 5. PROCESSING YOUR RPG I! PROGRAM 


18. COMPILING, LINK EDITING, AND EXECUTING 


18.1. 


18.2. 
18.2.1. 
18.2.1.1. 
18.2.1.2. 
18.2.1.3. 
18.2.1.4. 


GENERAL 


JOB CONTROL STATEMENTS 

RPG II Job Control Procedure Call Statements — RPG, RPGL, and RPGLG 
Using the RPG Job Control Procedure Call Statement 
Using a Job Control Procedure Call Statement that Defines Keyword Parameters 
Using the RPGL Job Control Procedure Call Statement 
Using the RPGLG Job Control Procedure Cail Statement 
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18.2.2. Auto Report Job Control Procedure Call Statements — AUTO, AUTPRG, 


AUTRPGL, and AUTRPGLG 18-18 
18.2.2.1. Using the AUTO Job Control Procedure Call Statement 18-24 
18.2.2.2. Using the AUTO Job Control Procedure Call that Defines Keyword Parameters 18-27 
18.2.2.3. Using the AUTRPG Job Control Procedure Call Statement 18-29 
18.2.3. Using the EXEC and PARAM Job Control Statements 18-31 
18.2.4. Input Deck Sequence 18-40 
18.3. MAIN STORAGE REQUIREMENTS 18-40 


PART 6. AUTO REPORT 


19. AUTO REPORT 





19.1. GENERAL ~ 19-1 
19.2. H-*AUTO PAGE HEADINGS 19-3 
19.2.1. Output File Identification and Control Entries (Columns 7 through 37) 19-4 
19.2.1.1. File Name (Columns 7 through 13) 19-4 
19.2.1.2. Type (Column 15) 19-4 
19.2.1.3. Space (Columns 17 and 18) 19-5 
19.2.1.4. Skip (Columns 19 through 22) 19-6 
19.2.1.5. Output Indicators - Records (Columns 23 through 31) 19-7 
19.2.1.6. *AUTO (Columns 32 through 37) 19-9 
19.2.1.7. Examples of Entries on H-*"AUTO Output File Identification 19-10 
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1. Concepts 


1.1. WHAT IS RPG II? 
RPG Il is a programming language designed to improve the efficiency of a business 
operation. RPG Il helps provide up-to-date, accurate information on such vital operations 
as payroll, accounts receivable, inventory control, billing, sales, and marketing analyses. 
Unlike many programming languages, RPG II has a fixed logic, which means it is easy to 
use. You need not labor over the program, writing lengthy, detailed program statements. 
The RPG II compiler produces a printed listing of input, a listing of error diagnostics, and a 
@ map of main storage. These listings promote quick discovery and correction of coding or 


keypunching errors. As you can see, using RPG Il can solve your business data processing 
problems with minimum effort. 


1.2. HOW TO USE RPG II ON A WORKSTATION 

The workstation is the principal means by which you and the OS/3 system 
communicate. With the workstation, you can perform almost every function available 
with OS/3. You can create a program, correct any errors in it, build a job control 
stream to run it, and then execute it. 

This section describes how to: 

m ~=log on (connect to) the system; 

m™ ~~ §=©activate the general editor (EDT); 

™ ~§ activate the RPG II editor to create or update an RPG II program; 

m ~=store the program in a file; 

= ~=6use the general editor to build a job control stream; 

™ activate the job control dialog to build a job control stream; 


= activate the error file processor to correct the program after compilation; 


™ activate screen mode processing to correct the program; 
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m ~~ store data in a file; 
m™ execute the program; and 
= ~=log off (disconnect from) the system. 


To turn on the workstation, press the POWER ON/OFF switch on the right side of the 
front panel below the screen. Allow the workstation a few seconds to warm up. 


Your system must be active before you can use the workstation. For information about 
this procedure, see the current version of the handbook for operators, UP-8859. 


The following screen appears when the system is active and the workstation is sitting 
idle: 


000000 SSSS / 
00000000 SSSSSS // 
00 oo = 86SS Ss /// = 3333 
00 oo = 86SS /// 33 
00 00 ss ‘tf 33 
00 00 ss /t1 


00 00 ss /// 33 

00 06 86SS ss /// 33-33 

00000000 SSSSSS // 3333333 
000000 SSSS / 3333 





SPERRY UNIVAC INTERACTIVE OPERATING SYSTEM 
DEPRESS TRANSMIT FOR LOGON 





This screen tells you to log on. You must log on every time you use the workstation. 
Logging on identifies you as a legitimate user, connects you to the system, and keeps 
an accounting of the time you use. 


After pressing the XMIT key to log on, this screen appears: 


OS/3 INTERACTIVE SERVICES 


LOGON IDENTIFICATION: USER-ID 
ACCOUNT NUMBER 
PASSWORD 


OPTIONS: EXECUTION PROFILE 
BULLETIN 
LOG 
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Only the user-id is required, but your system may also need the other information. 
Check with your system administrator. Enter the applicable information in the underline 
areas and press the XMIT key. (You must press the XMIT key every time you want to 
send information to the system.) 


The system returns a message accepting the logon: 


OS/3 INTERACTIVE SERVICES 
LOGON ACCEPTED AT 12:45:39 on 82/01/28. REV. X.X 





Next, the system bulletin appears. It provides information about the system and the 
procedure for entering a command: 


IS27 TODAYS BULLETIN IS: 
- TO TYPE IN COMMANDS. DEPRESS 'FUNCTION' AND -- 
- *SYSTEM MODE' KEYS SIMULTANEOUSLY. THEN TYPE -- 


- THE COMMAND AND DEPRESS TRANSMIT. 
- ON UNISCOPES DEPRESS ‘MESSAGE WAITING’ KEY. 





Press the FUNCTION and SYSTEM MODE keys. The cursor blinks in the upper-left 
corner of the screen and you can enter a command. 


Enter 

EDT 
to activate the general editor (EDT). 
The general editor allows you to create, edit, and update programs as well as edit data 
and library files. It also provides an RPG !I subeditor that creates and updates RPG Il 
programs. For more information about the general editor, see the general editor (EDT) 
user guide/programmer reference, UP-8828 (current version). 


Enter @RPG alongside the EDT command to activate the RPG Il editor: 


EDT @RPG 
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The system returns a message indicating the general editor is activated: 


EDO@@ EDITOR VERSION XX.X READY 


1.0000 D> 





If you are already in an EDT session, just enter @RPG to activate the RPG II editor. 
Since the RPG Il editor is a subeditor of the general editor, you can only use it while the 
general editor is activated. 


The first screen displayed by the RPG I! editor is: 


RPGEDT VERSION # 


SELECT MODE ( ) 

= CREATE U = UPDATE 
SELECT FORMAT TYPE C) 

1 = POSITIONAL 2 = FORMATTED 3 FREEFORM 
SPECIFICATION TYPE DISPLAY? ¢ ) 





Use this screen to specify: 
@ Whether the RPG II editor will create or update an RPG II program. 


m Whether the display formats for the RPG Il specifications forms will be formatted, 
positional, or free form. The format types are geared to how well you know FPG Il. 


mw Whether the list of specification types will be displayed next so that you can select 
the RPG Il specification forms needed. 


Enter the requested information. If you requested the list of specification types, the 
following screen appears: 


SPECIFICATION TYPE: (__) 
xex* SPECIFICATION TYPES **** 


HEADER IF INPUT FIELD ALTSEQ 
FILE Cc CALCULATION *FILES 


EXTENSION OR OUTPUT FILE * EQUATE 
LINE COUNTER OF OUTPUT FIELD FREE FORM/ 
INPUT RECORD T TELECOMMUNICATION COMMENTS 
AUTO REPORT AC AUTO REPORT (/COPY) TABLE/ARRAY 
OPTIONS DELIMITER 
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Enter the code for first specification form you want to use. The form is displayed in the 
format type you chose: 


= Formatted display 


The formatted display provides the most prompting and is the easiest to use. Each 
field is identified by its name and starting column number and the length of each 
field is depicted by underlines. Enter data in the underlines and tab to the next field 
you want. The following example shows sample entries on a control specifications 
form with a formatted display: 


LINE - 1.0000 
SEQUENCE NUMBER: 6 FORM TYPE H 
COMPILATION MODE: _ 8 ERROR DUMP: J 9. OPERATOR CONTROL: _ 
DEBUG: _ 18 CURRENCY SYMBOL: _ 
INVERTED PRINT: _ 26 ALTSEQ: _ 


BINARY SEARCH: _ 4@ SIGN HANDLING: § 


FORMS ALIGNMENT: Jj 42 INDICATOR INIT.: _ 
FILE TRANSLATION: _ 70 CCA NAME: ___ 
SUBROUTINE: _ 75 PROGRAM ID: 
NEXT SPECIFICATION TYPE, ST, OR 





=m Positional display 


The positional display is for experienced programmers. It offers less prompting and 
requires a more complete knowledge of RPG Il. Each field is identified by a starting 
column number and the length of each field is indicated by underlines. You enter 
data in the underlines and tab to the next field you want. The following screen 
shows sample entries on a control specifications form with a positional display: 


LINE - 1.0000 
1122344447 77 
1 6789581610123 90 45 


GH 9 G§_.._§8B___..._ Bex 
NEXT SPECIFICATION TYPE, ST, OR CMD: (fj__) 
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m #@Free-form display 





The free-form display offers no prompting and is for highly experienced 
programmers who wish to create programs quickly. Column numbers are the only 
prompts provided. You fill in the characters exactly where you want and space to 
the following column positions. The following example shows sample entries on a 
free-form display: 


LINE - 1.0000 


1 2 3 4 5 6 
1234567890 1234567890 1234567890 1234567890 1234567890 12345678901234 


_ a 


6 7 





After completing a specifications form, press the XMIT key. If you made any syntactical 
errors, an error message appears on the last two lines of the screen. The error 
message contains an error number, description, and recovery action. A_ blinking 
character depicts the location of the error. Correct the error by repositioning the cursor 
to the error, entering the correct entry, tabbing to the end of the form to enter the next 
type of screen you want, and then pressing the XMIT key. 


The source statements are entered into an EDT temporary workspace one at a time 


where they are assigned temporary line numbers. You use these line numbers to 
manipulate statements in your program during an EDT session. 


When your program is complete, you can continue to use the editor to correct or 
update it. When the program is exactly as you want it, use the @WRITE command to 
store the program on a SAT disk or diskette file since the EDT workspace is a 
temporary file: 


Q@WRITE MO=SFIL,FIL=FIL1,VSN=PUBDSK,SIZE=2,SAT=Y 


To terminate the RPG II editor, enter 


@RPG END 





This command terminates the RPG Il editor but not the general editor. For more & 
information about the RPG Il editor, see the current version of the RPG II editor 
programmer reference, UP-8803. 
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We will now use the general editor to build a job control stream to compile the RPG Il 
program we just built with the RPG Il editor. First, use an @DELETE command to delete 
all lines in the EDT workspace so that you can start coding the job control stream 
without carrying over any statements from the RPG II editor session. 

You can enter either individual job control statements or the RPG Il jprocs (job control 
procedure call statements). The jprocs save considerable time because you don’t need 
to write individual job control statements; the jprocs generate them for you. 


Include the ERRFIL parameter in the job control stream if you want to use the error file 
processor to correct compilation errors. 


This job control stream uses a jproc to compile the program and create an error file: 


// JOB JLLFIL 
// SFIL RPG IN=(PUBDSK,FIL1),ERRFIL=(PUBDSK,PROG1,MERRFIL) 
/& 


NOTE: 


An alternate way to write a job control stream is to activate the job control dialog, 
which is a question-and-answer session that prompts you to enter either individual job 
control statemetns or jprocs. To use this dialog, enter @HALT to terminate the general 
editor, and then enter: 

RV JC$BLD 


For more information about interactive job control, see the OS/3 job control user guide, 
UP-8065 (current version). 


Store the job control stream with the @WRITE command: 
@WRITE MO=JCLFIL,FIL=FIL2,VSN=PUBDSK , SIZE=2,SAT=Y 
To terminate the general editor, enter 
@HALT 
You must allocate the error file (that you specified in the jproc) as a MIRAM file 
AL MI,FIL=PROG1,VSN=PUBDSK , SIZE=2 
before you compile the program. 
Now, enter 
RV JCLFIL:(FIL2,PUBDSK) 


to compile the program. 
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Immediately after compilation, if there are any compilation errors, you can correct them 
using the general editor or you can also activate the error file processor: 


EDT @EFP 


The error file processor is a subeditor of the general editor, so you can only use it while 
the general editor is activated. If you are in an EDT session, just enter @EFP. 


Remember that you can only use the error file processor if you specified the ERRFIL 
parameter in the job control stream. The advantage of the error file processor is that 
you don't need to wait for the printed compilation listing to correct the program. 


NOTE: 


lf you are in an EDT session when you activate the error file processor, first use an 
(DELETE command to delete all lines in the EDT workspace so that no statements 
carry over from the previous session. Use an @ command to set the line number and 
increment back to 1 if you used an @ command earlier in the session to change line 
numbers. 


Once you activate the error file processor, you see the following screen: 





EFP@@1 VERSION n.n 
EFPOO2 ENTER ERROR-FILE MODULE -NAME,FILE-NAME,VSN 


> (ere 





Use this screen to specify: 

@ the error file module name you specified on the ERRFIL parameter; 

w the error file name (lblname) you specified on the ERRFIL parameter; or 

m the error file volume serial number you specified on the ERRFIL parameter. 

Enter the requested information. The error file processor reads the error file, locates the 
program to which it applies, reads a copy of the program into the EDT workspace, and 
displays the number of errors. 

Using error file processor commands (such as @EFP), you direct the error file processor 
to display the compilation errors along with the program statements that contain the 


errors. The following example shows that the first error applies to line 5 of the 
program. The EDT command corrects the error. 
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ERR-@001 WARNING: FIELD NAME IS UNREFERENCED. 
INRED NOTE 205 


0005.0000 020201 1 80 INRED 
15 . OOO ODA MCI i-lalet “Men tlal-\oRen de MUR al t-te 





After correcting the errors, we store the corrected program back to its original file 
(overwriting it): 


@WRITE MO=SFIL,FIL=FIL1, VSN=PUBDSK 
To terminate this error file processor, enter 


a@EFP END 


The @EFP END command terminates the error file processor but not the general editor. 
For more information about the error file processor, see the general editor (EDT) user 
guide/programmer reference, UP-8828 (current version). 


NOTE: 


An alternate way to make minor corrections to an existing program is to use the screen 
mode processing capability provided by the general editor. An RPG Il template screen is 
displayed for your input, but unlike the RPG Il editor, there is no syntax checking. It is 
particularly helpful, however, because the column numbers are displayed which makes it 
easy to correct a line. 


Enter 
aSET,MODE=SCREEN, LANGUAGE=RPG, SCRDSPY=FOLD, RECENTRY=SINGLE 


to use screen mode processing: 


The following screen appears and you correct the line in error: 


0S/3 EDT (v7.52) EDT RPG SINGLE FOLD 


KKK KKK KKK KEK IKK EEK IKKE EEE EEE EEE EERE RE KERR KEKE EREKREERERREEEEREEKEKREKEKKKKE 


eaiPiaie avo lie dete ts cecsve 


PG-LN FORM CONTROL-FIELDS/PROGRAM- ID 
LINE # we eet ‘ staete Mego e, Pia ee BO Segie Seer Oa bree Hs Sen's Ge fard a Hie ere Da we eh ere SO 


15.0000 (A) PB ss 1 © oe 


EDT COMMAND: BUC SERR come) 


KKK KKK IK IKKE KK IKKE KIKI KIKI EK ETE KEE EERE EEE EEE EEE RREEEEEKKKEKEREEK 


ERROR MESSAGE AREA (2 Lines) 








UP-8067 Rev. 6 SPERRY UNIVAC OS/3 1-10 


RPG il Update A 
In this example, the EDT command replaces the line that was in error with the line you & 
just created using screen mode processing. 
Enter 
@SET M=L 


to terminate screen mode processing. For more information about screen mode 
processing, see the general editor (EDT) user guide/programmer reference, UP-8828. 


We will continue to use the general editor to create a data file that will provide input to 
the RPG Il program. First, use an @DELETE command to delete all lines in the EDT 
workspace so that no statements carry over from the previous session. Then, enter the 
data your program requires. 

Use the @WRITE command to store the data in a MIRAM file: 

@WRITE FIL=MFIL,VSN=PUBDSK ,SIZE=2,RCSZ=80 

We will now use the general editor to build a job control stream to execute the RPG Il 
program. First, use an @DELETE command to delete all lines in the EDT workspace so 


that no statements carry over from the previous session. 


The following job control stream uses a jproc to execute the program: 





// JOB BAB 

// DVC 20 

// LFD LIST 

// DVC 50 

// VOL PUBDSK 

// LBL MFIL 

// LFD INDATA 

//SFIL RPGLG IN=(PUBDSK,FIL1) 
/& 


Use the @WRITE command to store the job contro! stream: 
@WRITE MO=BAB, FIL=FIL3,VSN=PUBDSK, SIZE=2,SAT=Y 
Enter 
@HALT 
to terminate the general editor. 
Enter 


RV BAB: (FIL3,PUBDSK) 





to execute the program. 
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If there are any execution errors, use the general editor, the RPG Il editor, or screen 
mode processing to correct them. 


After the program successfully executes, enter 
LOGOFF 
to log off the system. 
The following key-in session creates an RPG Il program, builds job control streams, 


corrects the program, and then compiles, links, and executes the program. An 
explanation of this coding example follows the coding. 


1 LOGON MAB 
2 EDT @RPG 
NOTE: 


The coding is continued following the examples of screen entries. 


INITIAL DISPLAY 











RPGEDT VERSION XX.XX/XX 


SELECT MODE () 
C = CREATE U = UPDATE 


SELECT FORMAT TYPE (2) 













1 = POSITIONAL 2 = FORMATTED 3 = FREEFORM 


SPECIFICATION TYPE DISPLAY? ({J) Y = YES N @ NO 

















In this example, we select C, 2, and N; 
then we transmit these selections to the 
PRG I! editor by pressing the XMIT key. A 
control (header) specification screen in 
formatted format is automatically 
displayed. 
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Y 


HEADER SPECIFICATION 













LINE - 1.0000 









SEQUENCE NUMBER: 6 FORM TYPE H 






COMPILATION MODE: _ 8 ERROR DUMP: _ 9. OPERATOR CONTROL: 










DEBUG: _ 18 





CURRENCY SYMBOL: _ 










INVERTED PRINT: _ 26 ALTSEQ: _ 






BINARY SEARCH: _ 40 





SIGN HANDLING: _ 












FORMS ALIGNMENT: _ 42 





INDICATOR INIT.: _ 








FILE TRANSLATION: _ 70 





CCA NAME: 





74 SUBROUTINE: _ 75 PROGRAM ID: (a0. 







NEXT SPECIFICATION TYPE, ST, OR CMD: (fJ__) 


Here, we key in our source statement 
on the appropriate underlines. On the 
next screen identification line, we 
specify what we want displayed next. 
Because we keyed in F, after we 
transmit the screen, a file specification 
(in formatted format) is displayed. 
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& FILE SPECIFICATION 











LINE -~ 2.9000 


1 SEQUENCE NUMBER: (QR) 6 FORM TYPE F 7 FILENAME:QXEME) 15 FILE TYPE: 


FILE;DESIGNATION: J 17 EOF: § 18 SEQ: f] 19 FILE FORMAT: f] 20 BLK LEN: 






RECORD LEN: &{ #28 FILE PROCESSING MODE: _ 29 KEY OR FIELD LENGTH: 









RECORD ADDRESS TYPE: _ 32 FILE ORGANIZATION: _ 33 OVERFLOW INDICATOR: _ 









KEY FLD STARTING LOC: = 339 EXTENSION/LINE CTR CODE: #40 DEVICE: [RRS 















CONT LINES: J 54 OPTION: 6@ ENTRY/STORAGE/KEY LOC: 





FILE ADDITION AND CYL OVF % /KEY-LENGTH: _ 68 # OF EXTENTS/KEY OPTIONS: __ 





REWIND: _ 71 FILE CONDITIONERS: __ 


NEXT SPECIFICATION TYPE, ST, OR CMD: (___ 






Again, we key in our source statement, 
specify the next screen display, and 
transmit. Because we transmitted the 
screen without keying in an entry on the 
next screen identification line, another 
file specification screen in formatted 
format is displayed. 
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FILE SPECIFICATION 







LINE - 





3.0000 
SEQUENCE NUMBER: 6 FORM TYPE F 7 FILENAME: == 15 - FILE TYPE:Q 










16 FILE DESIGNATION: _ 17 EOF: _ 18 SEQ: _ 19 FILE FORMAT: 20 BLK LEN: (B_ 








RECORD LEN: (RJ 28 FILE PROCESSING MODE: _ 29 KEY OR FIELD LENGTH: __ 
31 RECORD ADDRESS TYPE: _ 32 FILE ORGANIZATION: _ 33 OVERFLOW INDICATOR: 


35 KEY FLD STARTING LOC: ____ 39 EXTENSION/LINE CTR CODE: _ 4@ DEVICE: 









CONT LINES: | 54 OPTION: 6@ ENTRY/STORAGE/KEY LOC: 












FILE ADDITION AND:CYL OVF %/KEY-LENGTH: 68 # OF EXTENTS/KEY OPTIONS: __ 





REWIND: _ 71 FILE CONDITIONERS: __ 


NEXT SPECIFICATION TYPE, ST, OR CMD: (Bij) 


display. 


SPECIFICATION TYPE DISPLAY 








ENTER SPECIFICATION TYPE: (fi) 
wee SPECIFICATION TYPES **** 











HEADER IF - INPUT FIELD ALTSEQ 
- FILE C - CALCULATION FT - *FILES 
EXTENSION OR - OUTPUT FILE EQ - *EQUATE 

- LINE COUNTER OF - OUTPUT FIELD FF - FREE FORM/ 
INPUT RECORD T TELECOMMUNICATION COMMENTS 
AUTO REPORT AC AUTO REPORT (/COPY) - TABLE/ARRAY 
OPTIONS DELIMITER 














rman st 
1 



























appears next. 


Like the previous file specification 
screen, again we key in our source 
statement, specify the next screen 
display, and then press the XMIT key. 
The next screen is the specification type 


Select the specification screen we want 
next. Key in the appropriate abbreviation 
and press the XMIT key. The input 
specification screen (record identification) 


1-14 
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a INPUT SPECIFICATION RECORD IDENTIFICATION 







LINE - 4.0000 











SEQUENCE NUMBER: (2G) 6 FORM TYPE IR (RECORD ID) 





FILENAME: PREM) 814 _ 15 SEQUENCE: 17 NUMBER: _ 18 OPTION: 





RECORD IDENTIFYING INDICATOR, DS, OR **: 
RECORD POSITION 
IDENTIFICATION 21 









CHARACTER 
27 (1 
















CODES 28 32 33 34 


35 39 40 4d 













42 STACKER SELECT: _ 


NEXT SPECIFICATION TYPE, ST, OR, CMD: (i> 


NOTE: 










The remainder of the _ specification 
screens in this example (except for the 
final screen) operate in this manner. We 
key in the source statement, specify the 
next screen display (on the next screen 
identification line), and then transmit. 


INPUT SPECIFICATION FIELD DESCRIPTION 


LINE - 5.0000 


SEQUENCE NUMBER: 6 FORM TYPE IF 


DATA FORMAT: _ 44 FROM: __ 48 TO: _ 


DECIMAL POSITIONS: _ 53 FIELD NAME: 

CONTROL LEVEL: __ 61 MATCHING/CHAINING FIELDS: __ 
FIELD RECORD RELATION: __ 

PLUS: __ 67 MINUS: __ 69 ZERO/BLANK: 


NEXT SPECIFICATION TYPE, ST, OR CMD: (@__) 
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CALCULATION SPECIFICATION 





LINE - 


SEQUENCE NUMBER: (B{RR) 6 FORM TYPE C 7 CONTROL LEVEL: __ 


INDICATORS: 9: (MJ 12: _ 15: 18 FACTOR 1: 


OPERATION: GU) 33 FACTOR 2: 43 RESULT FIELD: Qe 
RESULT FIELD LENGTH: Bj 52 DECIMAL POSITIONS: @ 53 HALF ADJUST: _ 


ARITHMETIC: PLUS MINUS ZERO 
COMPARE 1>2 1<2 1=2 
LOOKUP (FACTOR 2) IS: HIGH LOW EQUAL 
RESULTING INDICATORS: 54 56 58 


COMMENTS: NEXT SPECIFICATION TYPE, ST, OR CMD: (QQ > 








OUTPUT SPECIFICATION (FILE IDENTIFICATION AND CONTROL) 


LINE ~ 7.0000 
SEQUENCE NUMBER: (QR) 6 FORM TYPE OR 


FILENAME: [i 14 _ (AND/OR COL 14-16) 
TYPE (H/D/T/E): 16 STACKER/FETCH: _ (ADD/DEL COL 16-18) 
SPACE BEFORE/AFTER: B = 19 SKIP BEFORE: 


SKIP AFTER: __ 


OUTPUT INDICATORS: 23 FJ 26 _ 29 


AUTO REPORT (*AUTO): 


NEXT SPECIFICATION TYPE, ST, OR CMD: (@jj ) 
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OUTPUT SPECIFICATION (FILE IDENTIFICATION AND CONTROL) 


LINE - 8.0000 


SEQUENCE NUMBER: (ZR) 6 FORM TYPE OR 


FILENAME: 14 J CAND/OR COL 14-16) 

TYPE (H/D/T/E): _ 16 STACKER/FETCH: _ (ADD/DEL COL 16-18) 
SPACE BEFORE/AFTER: _ 19 SKIP BEFORE: __ 

SKIP AFTER: __ 

OUTPUT INDICATORS: 23 QJ 26 ___ 

AUTO REPORT (*AUTO): 


NEXT SPECIFICATION TYPE, ST, OR CMD: (@j ) 





OUTPUT SPECIFICATION (FIELD DESCRIPTION AND CONTROL) 


1 SEQUENCE NUMBER: 6 FORM TYPE OF 
OUTPUT INDICATORS - 23 26 29 
FIELD NAME: 

EDIT CODES: _ 


BLANK AFTER: _ 


END POSITION: __ 


DATA FORMAT: _ 


NEXT SPECIFICATION TYPE, ST, OR CMD: 
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OUTPUT SPECIFICATION (FILE IDENTIFICATION AND CONTROL) 





LINE - 10.9000 
SEQUENCE NUMBER: (QA) 6 FORM TYPE OR 


FILENAME = 14 _ CAND/OR COL 14-16) 


TYPE (H/D/T/E): Q 16 STACKER/FETCH: _ CADD/DEL COL 16-18) 


SPACE BEFORE/AFTER: 19 SKIP BEFORE: __ 
SKIP AFTER: __ 

OUTPUT INDICATORS: 23 (MJ 26 ___ 

AUTO REPORT (*AUTO): 


NEXT SPECIFICATION TYPE, ST, OR CMD: (@jj_) 








OUTPUT SPECIFICATION (FIELD DESCRIPTION AND CONTROL) 


LINE - 11.0000 


1 SEQUENCE NUMBER: 6 FORM TYPE OF 
OUTPUT INDICATORS - 23 26 __ 29 


FIELD NAME: 
EDIT CODES: _ 


BLANK AFTER: _ 


END POSITION: 


DATA FORMAT: _ 


CONSTANT OR EDIT WORD: 
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6 


@ OUTPUT SPECIFICATION (FILE IDENTIFICATION AND CONTROL) 


LINE - 12.9000 
SEQUENCE NUMBER: 6 FORM TYPE OR 


FILENAME: 14 _ CAND/OR COL 14-16) 


TYPE (H/D/T/E): 146 STACKER/FETCH: — (ADD/DEL COL 16-18) 


SPACE BEFORE/AFTER: § 19 SKIP BEFORE: __ 
SKIP AFTER: __ 

OUTPUT INDICATORS: 23 MQ 26 ___ 

AUTO REPORT (*AUTO): 


NEXT SPECIFICATION TYPE, ST, OR CMD: (Qj > 





OUTPUT SPECIFICATION (FIELD DESCRIPTION AND CONTROL) 


LINE - 13.0000 
1 SEQUENCE NUMBER: 6 FORM TYPE OF 
OUTPUT INDICATORS - 23 26 = 29 
FIELD NAME: 
EDIT CODES: _ 


BLANK AFTER: _ 


END POSITION: _ By 


DATA FORMAT: _ 


CONSTANT OR EDIT WORD: nS ee 


NEXT SPECIFICATION TYPE, ST, OR CMD: (() 
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OUTPUT SPECIFICATION (FIELD DESCRIPTION AND CONTROL) 













LINE - 14.0000 






1 SEQUENCE NUMBER: (2QURY) 6 FORM TYPE OF 







OUTPUT INDICATORS - 23 26 ___— 29 


32 FIELD NAME: @@i 
38 






EDIT CODES: _ 







39 BLANK AFTER: _ 


40 END POSITION: _ 








44 DATA FORMAT: _ 


CONSTANT OR EDIT WORD: 


On the last output screen, we key in the 
final statement of the program. 
However, instead of _ selecting a 
particular specification screen or the 
specification type display on the next 
screen identification line, we key in 
CMD. This puts the RPG II editor into 
the update mode (EDT command mode) 
so we can store our program. Then we 
press the XMIT key. 












(3) @WRITE MO=SFIL,FIL=FIL1,VSN=PUBDSK , SIZE=2, SAT=Y 
(4) @RPG END 
(5) @DELETE 
(6) // JOB JCLFIL 
//SFIL RPG IN=(PUBDSK,FIL1) 
,ERRFIL=(PUBDSK ,PROG1,MERRFIL) 
/& 
(7) @WRITE MO=JCLFIL,FIL=FIL2, VSN=PUBDSK , SIZE=2,SAT=Y 
(8) @HALT 
(9) AL MI,FIL=PROG1,VSN=PUBDSK , SIZE=2 
(1a) RV JCLFIL:(FIL2,PUBDSK) 
(1) EDT aEFP 
MERRFIL,PROG1, PUBDSK Enter module name, file name (Iblname), 
(2) @EFP and volume serial number of the error 
Correct RPG II source file. The screen displays the number of 
program using EDT errors in your program. 





commands 
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dEFP END 


(5) @DELETE 


(16) : Enter data 


© Q@WRITE MO=SFIL,FIL=FIL1, VSN=PUBDSK 


(7) WRITE FIL=MFIL,VSN=PUBDSK , SIZE=2,RCSZ=80 
(8) @DELETE 
(19) // JOB BAB 
// DVC 20 
// LFD LIST 
// DVC 50 
// VOL PUBDSK 
// LBL MFIL 
// LED INDATA 
//SFIL RPGLG IN=(PUBDSK,FIL1) 
/8 
2) AWRITE MO=BAB,FIL=FIL3,VSN=PUBDSK ,SIZE=2, SAT=Y 
(21) @HALT 
22 RV BAB: (FIL3,PUBDSK) 
@ 


LOGOFF 


Compilation Listing: 


6 3... 


@10 FINDATA IPEAF 89 86880 DISK 
@20 FLIST i) F 132 132 PRINTER 
010 IINDATA AA 91 


020 I 1 8@ INREC 
010 C 1 COUNT COUNT 30 
010 OLIST H 207 


020 

030 28 ‘STAFF FILE LISTING! 
040 

050 80 

060 

670 25 ‘TOTAL RECORDS LOADED='! 
080 COUNT Z 35 





@) Printed Report: 


STAFF FILE LISTING 
FRANKLIN, KEN TOTAL SALES $200,000 
ASHLEY, BROOKE TOTAL SALES $100,000 
CAMEO, SHAYNE TOTAL SALES $130,000 


GRAEF, MARSHA TOTAL SALES $100,000 
& TOTAL RECORDS LOADED= 4 
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Explanation: 


1 


10 


11 


12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 


23 


The LOGON command, plus the identification, connects the workstation to the 
operating system. 


Activates the general editor (EDT) and the RPG II editor. 
Stores the RPG II program in a file. 
Terminates the RPG II editor. 


Deletes all lines of the EDT workspace so no statements carry over into the next 
session. 


Job control stream that compiles the program and creates an error file. 

Stores the job control stream in a file. 

Terminates the general editor. 

Allocates the error file used by the error file processor. 

Compiles the program. 

Activates the general editor and the error file processor so you can correct 
compilation errors. A screen prompts you to enter the module name, file name, and 
volume serial number of the error file. 

Displays the error and the statement so you can correct the errors using EDT. 
Stores the corrected program back to its original file. 

Terminates the error file processor. 

Deletes all lines in the EDT workspace. 

Data for the RPG II program. 

Stores the data in a MIRAM file. 

Deletes all lines in the EDT workspace. 

Job control stream that executes the program. 

Stores the job control stream in a file. 

Terminates the general editor. 

Executes the program. 


Disconnects the workstation from the operating system. 
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24 Compilation listing of the source program. 
25 Printed report resulting from the execution of the program. 


Figure 1—1 illustrates the process you have just completed. 


DETERMINE 
PROGRAM 
REQUIREMENTS 


LOG ON WORKSTATION 










CALL 
GENERAL EDITOR (€0T) 








APG Il EDITOR 








OUTPUT FORMAT 
SPECIFICATIONS FORM 
CALCULATION 
SPECIFICATIONS FORM 
INPUT FORMAT 
SPECIFICATIONS FORM 
TELECOMMUNICATIONS 
SPECIFICATIONS FORM 


LINE COUNTER 
SPECIFICATIONS FORM 











FILE EXTENSION 
SPECIFICATIONS FORM 








FILE DESCRIPTION 
SPECIFICATIONS FORM 


CONTROL CARD 
SPECIFICATIONS FORM 










AUTO REPORT OPTIONS 
SPECIFICATIONS FORM 









WRITE JOB CONTROL 
STREAMS 






COMPILE 
THE 
PROGRAM 







ALL EDT 
TO CORRECT COMPILATION ERRORS 


EXECUTE 
PROGRAM 


LOG OFF WORKSTATION 


F 









Figure 1-1. Using RPG Il via Workstation 
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INPUT 


CARD 
FILES 













DETERMINE WHAT 
CAUSED YOUR 
PROGRAM TO TERMINATE 
AND MAKE NECESSARY 
CORRECTIONS 









EXECUTE THE 
PROGRAM 


PRINTED LISTING 
THAT CONTAINS 
ERROR MESSAGES 
AND CONTENTS OF 
MAIN STORAGE 
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OUTPUT FORM 
SPECIFICATIONS FORM 
CALCULATION 
SPECIFICATIONS FORM 
(NPUT FORMAT 
SPECIFICATIONS FORM 
TELECOMMUNICATIONS 
SPECIFICATIONS FORM 


LINE COUNTER 
SPECIFICATIONS FORM 





@ WRITE THE PROGRAM 


























FILE EXTENSION 
SPECIFICATIONS FORM 






FILE DESCRIPTION 
SPECIFICATIONS FORM. 


CONTROL CARD 
SPECIFICATIONS FORM 


AUTO REPORT OPTIONS 
SPECIFICATIONS FORM 








KEYPUNCH 
THE FORMS 


KEYPUNCHING MAKE NECESSARY 
ERRORS CORRECTIONS 
TO SOURCE DECK 


SOURCE STATEMENT 
LISTING AND ANY 
ERROR MESSAGES 


DETERMINE WHAT 
CORRECT ERRORS OCCURRED 
LUINK-EOIT AND MAKE NECESSARY --— 
ERRORS CORRECTIONS 














OBJECT 
MODULE 








LEINK-E0IT 
MAP AND ANY 
ERROR MESSAGES 









LINKAGE EDITOR 


PROGRAM 
EXECUTION 
















PRINTED REPORTS 


Figure 1-2. Using RPG Il via Cards 
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1.3. HOW TO USE RPG II WITH CARDS 

Figure 1-2 shows the logical steps you follow each time you write an RPG Il program. 
You use the same procedure when you write a payroll program, inventory control 
program, or any other type of program. The circled numbers in the figure refer to the 
numbered explanations. 

Explanation of steps in Figure 1—2: 


1. Determine Program Requirements 


Before you start writing your program, determine what information your program 
must process and the results you want. For example, ask yourself: 


a. What is the format of my input files and how many input files are there? 
b. What fields in the input records will | use? 
c. What calculations must be performed? 
d. What format do | need for my output records? 
e. What totals do | have to accumulate? 
f. What format do | want for my printed reports? 
2. Write the Program 
After you establish your program goals and decide on file and report formats, describe 
them by filling out the various RPG II specifications forms. RPG {I uses the entries on 


these forms to generate the program. 


a. You describe the options you want to use with the output from auto report on the 
auto report options specifications form. 


b. You furnish special information about your program and your system on the 
control card specifications form. 


c. You describe all the files used or created by your program on the file description 
specifications form. 


d. If you use tables, arrays, input chaining, or record address files, you provide 
information about them on the file extension specifications form. 


e. If you need intermediate printer files (you are going to temporarily store your 
reports on tape or disk), you provide information about these files on the line 
counter specifications form. 


f. If you intend to send data to or receive data from a remote terminal, you provide 
information about this on the telecommunications form. 


(continued) 
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g. You describe your input files on the input format specifications form. 


h. You describe the calculations you want performed on the _ calculation 
specifications form. 


i. You describe how your data is to appear on your output files and the layout of 
your printed reports on the output format specifications form. 


Keypunch the Forms 


Once you fill out the specifications forms, keypunch them. One card is punched for 
each line on each specifications form. The resulting deck is called the source program 
deck. 


Compile the Program 


The source program deck is processed by the RPG II compiler at this point. The 
compilation generates an object program (the executable machine language for your 
program) and a listing that contains the source statements and a main storage 
assignment map. If errors occur during compilation, one or more compilation time 
messages, as shown in Appendix D, will be printed on the listing. 


If the compilation is error free, perform step 5. If not, perform step 4A. 
Correct Coding and Keypunching Errors 


Correct the coding and keypunching errors detected during compilation and repeat 
step 4. 


Link-Edit the Program 


When you have an error-free object module, it must be link-edited. The linkage editor 
transforms the object module into a relocatable load module. The linkage editor also 
produces a link-edit map. This map lists: the link edit control stream and any error 
messages, unresolved references, and all reference definitions, including type, 
address, and phase number. It also contains a phase structure diagram, a main 
storage allocation map, and an ending message. If the link-edit is error-free, your 
program is now in a form that can be loaded and executed, as described in step 6. If 
not, perform step 5A. 


Correct Link-Edit Errors 


Examine the link-edit map to determine what errors occurred. Make the necessary 
corrections and repeat steps 4 and 5. 


Execute the Program 


The load module is loaded into the system at this point and processing begins. The 
input files are read, the calculations are performed on the input data, and the desired 
results are produced if there are no program logic errors. If so, your work on this 
program is finished. You now have a program you can execute any time you need to. 
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If errors occur during execution, your program terminates and a listing is printed that 
contains one or more execution time messages, as shown in the system messages 
programmer reference manual and the contents of main storage. If this happens, 
perform step 6A. 

6A. Debug the Program 
Examine the printed listing to determine what caused your program to terminate. 
Make the necessary corrections and repeat the preceding steps. 

1.4. RPG if GENERAL PROGRAM LOGIC 

All programs generated by the RPG II compiler are handled in the same way. When the 

program is executed, each record processed goes through the same general program cycle. 

This cycle consists of three basic logical steps: 

1. Read a record from an input file. 

2. Perform calculations with the information contained in the record. 


3. Produce the desired output. 


In each program, there are two different points in time when the calculation and output 
operations are performed. These points in time are called deta// time and total time. 
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2.1. 


2. RPG Il File and Data Handling 
Capabilities 


FILE CHARACTERISTICS 


RPG Il allows you to use files in a variety of ways. Consequently, when you write a 
program you must describe how each file is used in the program. You do this by specifying 
the file characteristics for each file. You specify what the file type is and what its function 
is in relation to the other files in your program. 


2.1.1. File Type 


The types of files you can use in your program are input, output, combined, update, and 
display. 


Input File 

An input file supplies input to your program. It can be a data file (data records to be 
processed), a table or array file, a record address file, or a tag file (a file created by 
using the ADDROUT option of sort/merge). 

Output File 


An output file is any data file that is written, printed, or punched during the execution 
of your program. 


Combined File 

A combined file is used for both input and output. It can be a communications file, a 
file that is on a card punch with the read/punch feature, a diskette, or a workstation 
file. 


Update File 


An update file is a disk file in which the data records may be read, updated, and 
written back onto the file in the locations from which they were read. 


Display File 


A display file contains data that is to be displayed on the system console. The system 
operator may modify the display data or he may make a reply. 
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2.1.2. File Designation 


Except for output and display files, all other files in your program must have their function 
described; that is, a file is a primary data file, secondary data file, table or array file, record 
address or tag file, chained file, or demand file. 


Primary Data File 


A primary data file is the main file from which data records are read during execution 
of your program. Only one primary file is permitted in a program. 


Secondary Data File 


A secondary data file is any input file other than the primary file when more than one 
file is used for input. 


Table or Array File 


A table or array file is a sequential input file, loaded at execution time, that contains 
table or array records. 


Record Address or Tag File 


A record address or tag file is an input file that supplies parameters that indicate how 
a disk file is to be processed. 


Chained File 


A chained file is a disk file that is processed randomly. It can be an input or update 
file chained by chaining indicators or by the CHAIN operation code. 


Demand File 


A demand file is processed sequentially by the READ operation. 


2.2. FILE ORGANIZATION 


The arrangement of records in a file is called the file organization. RPG Il is capable of 
processing files that are organized as sequential access method files (SAM), indexed 
sequential access method files (ISAM), direct access method files (DAM), multiple indexed 
random access method files (MIRAM), or indexed random access method files (IRAM). 
Before you write your program, decide which file organization is best suited to your 
application. If your files are not in the desired format, you must create these files before you 
write your program. 
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2.2.1. Sequential Files 


In a sequential file, the arrangement of data records is determined by the order in which 
they are placed on the file. The first record placed on the file is always in the first record 
position, the second is always in the second record position, and so on. Card and magnetic 
tape files are always sequential files; however, disk files may also be indexed sequential or 
direct files. A sequential file is used when your application calls for processing an entire 
file starting with the first record, then the second, and so on until the file is exhausted. 


2.2.2. Indexed Sequential Files 


An indexed sequential file records data in ascending sequence by record key in prime data 
and overflow areas on a disk. These data areas consist of successive tracks on one or 
more cylinders in the disk file. The overflow area is used to store records that are added to 
a file. Figure 2-1 illustrates how data appears on an indexed or extended indexed 
sequential file. 


In Figure 2-1, each block in the prime data area contains five records. Each number 
shown in the prime data area and the overflow area represents the highest key in each 
block. As each block is written in the prime data area, the highest key is entered in a block 
index. Entries are not made in the indexes for overflow records. After the last block is 
written, the last entry in each track on the block index is placed in the top index. The 
advantage of this type of file organization is that these indexes allow you to quickly locate 
the approximate position of data records in the file; thus, it is possible for you to retrieve 
records randomly or within specified ranges. 


2.2.3. Direct Files 
A direct file stores data records on disk in any sequence. Some of these records may be 
blank (unoccupied). Figure 2-2 provides an example of how data appears on a typical 


direct file. 


Direct file organization is useful in those applications where your processing requirements 
are as follows: 


= Anticipated file activity is low. 
. File size is stable. 
. Unordered (random) transactions are processed. 


a Immediate inquiry capability is required. 
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Figure 2—1. Indexed Sequential File Structure (Part 1 of 2) 
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LEGEND: 


K = highest key in block index 
T = track in block index 


Figure 2—1. Indexed Sequential File Structure (Part 2 of 2) 
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Figure 2—2. Direct File Structure 
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2.2.4. MIRAM Files 


A multiple indexed random access method (MIRAM) file stores records and consequently 
allows you to retrieve records, either sequentially or randomly. MIRAM files are permitted 
when operating either under the System 80 environment or in a mixed-mode environment, 
that is, both the System 80 and Series 90 environment. To specify MIRAM files, code as if 
for IRAM (indexed random access method) files. See 18.2.3 for more details. 


2.2.5. IRAM Files 


An indexed random access method (IRAM) file stores records and consequently allows you 
to retrieve records, either sequentially or randomly. IRAM files are permitted when 
operating in a Series 90 environment. 


2.3. FILE FORMAT 


RPG Il allows you to process or produce files containing fixed-length or variable-length 
records. When you write a program, you must describe how the records are recorded on 
each file used by the program. 


The allowable file format for a file in a given application is governed by the type of 
medium the file is stored or written on. The allowable file formats are shown in Table 2-1. 


Table 2—1. Allowable File Formats 


Storage or 
Recording File Organization 
Medium 


Magnetic tape Sequential Fixed, unblocked 
Fixed, blocked 
Variable, unblocked 
Variable, blocked 
Sequential Fixed, unblocked 
Fixed, blocked 
Variable, unblocked 
Variable, blocked 


Indexed Fixed, unblocked 

sequential Fixed, blocked 
Variable, unblocked 
Variable, blocked 


MIRAM Fixed 
Variable* 


* There is no provision for blocking in MIRAM files. 


Allowable File 
Format 
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2.3.1. Fixed-Length Records 


A file that contains fixed-length records is one in which each data record in the file is the 
same size (occupies the same number of character positions). The individual data records 
may appear on the file as individual data units or in groups of two or more units. In the 
former case, the file format is described as fixed-length, unblocked, and in the latter case 
as fixed-length, blocked. These formats are shown in Figure 2-3. 





Lr -s0—| L-F-a0—>| |+-ri-20->| |+-ri-20->| |AL-20-»| |-ri-so-»| 


a. Fixed-length, unblocked format (sequential and direct files) 


BLOCK 1 BLOCK 2 
BL=320 BL=320 





Loses =80 arenes an eras oe =80 RL= aS epee Mee doutesave a are sca 


b. Fixed-length, blocked format (sequential files) 


}-——— 125 1 BLOCK 2 
BL=257 BL=257 
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c. Fixed-length, blocked format (indexed sequential! files) 








LEGEND: 


BHB Biock header bytes - two bytes that specify the count of the data in the block, including the BHB and PTR 
BL Block length 

PTR Pointer - five bytes in the form rrrbb, where rrr is the relative block number and bb is the byte displacement 
RL Record length 

Ss Space between records or blocks 


Figure 2—3. Fixed-Length File Formats 
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As shown in Figure 2-3, records in unblocked format are preceded and followed by a 
space or blank area. This space is used to distinguish between the beginning and end of a 
record. Similarly, there is a space between each block in the blocked format. The 
difference between the two formats is that there are fewer spaces between the data 
records in the blocked format. Input/output is more efficient with the blocked format 
because only one data access is required for more than one record as opposed to one data 
access for each record with the unblocked format. When unblocked records are specified 
for an indexed sequential file on the file description specifications form, these records are 
processed as blocked records in the format shown in Figure 2-3. 


The block header bytes (BHB) and the pointer (PTR) are required control fields. These fields 
are automatically included when data records are written by RPG II on an indexed 
sequential file in fixed-length file format. 


2.3.2. Variable-Length Records 


A file that contains variable-length records is one in which the data records vary in size. 
(Each record does not occupy the same number of character positions.) Variable-length 
records may appear on the file in unblocked or blocked format. These formats are shown 
in Figure 2-4. 


As shown in Figure 2-4, the formats for variable-length records vary from those for fixed- 
length records in that a field that specifies the record length is present in each record. The 
beginning and end of records in unblocked format and of blocks in blocked format are 
indicated in the same manner as for fixed-length records. Also, as with fixed-length 
records, input/output is more efficient if the records are blocked. Note that when variable- 
length records are specified for an indexed sequential file on the file description 
specifications form, these records will be processed as blocked records in the format 
shown in Figure 2-4. The block length field (BLF), the block header bytes (BHB), the 
pointer (PTR), and the record length field (RLF) are required control fields. The BLF and RLF 
are automatically included by RPG II when data records are written on a sequential file in 
variable-length file format. The BHB, RLF, and PTR are automatically included by RPG Il 
when data records are written on an indexed sequential file in variable-length file format. 
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a. Variable-length, unblocked format (sequential files) 
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b. Variable-length, blocked format (sequential files) 
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c. Variable-iength, blocked format (indexed sequential files) 





LEGEND: 


BHB Block header bytes - two bytes that specify the count of the data in the block, including the BHB, PTR, and RLF 


BL Block length 

BLF Block length field - four bytes that specify the block length and include the data bytes RLF and BLF 

PTR Pointer - five bytes in the form rrrbb, where rrr is the relative block number and bb is the byte displacement 

RL Record length 

RLF Record length field. For indexed sequential files, two bytes that specify the length of the record, including the 
data bytes and the RLF. For sequential files, four bytes that specify the length of the record, including the data 
bytes and the RLF. 

Ss Space between records or blocks 


Figure 2—4. Variable-Length File Formats 
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2.4. DATA FORMATS 
The data processed by your program can be in alphanumeric, binary, packed numeric, or 


unpacked numeric format. When you write your program, you must describe how the data 
is formatted in each input and output field. 


2.4.1. Alphanumeric Format 


The format of an alphanumeric field is shown in Figure 2-5. 


1BYTE 1 BYTE 1 BYTE 1 BYTE 1 BYTE 


| Zone | DIGIT | ZONE | \ | DIGIT | ZONE DIGIT | zone | DIGIT 








Figure 2—5. Alphanumeric Data Format 


in this format, one alphanumeric character is placed in each byte (character position) of 
the field. Each byte consists of a zone portion and a digit portion. 


2.4.2. Binary Format 


The format of a binary field is shown in Figure 2-6. 


2 or 4 bytes 


r 
—__— integer value 
N 





Figure 2—6. Binary Data Format 


In this format, a field contains the sign in the leftmost bit position and an integer value in 
the remaining bit positions. Positive numbers have a O in the sign position. Negative 
numbers have a 1 in the sign position, and the integer value is the binary complement of 
the positive number. 
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2.4.3. Packed Numeric Format 


The format of a packed numeric field is shown in Figure 2-7. 


1 BYTE 1BYTE 1 BYTE 1 BYTE 1BYTE 
ne ee 


eee ee 








Figure 2—7. Packed Numeric Data Format 


In this format, two decimal digits are placed in each byte (character position) except the 
rightmost byte of the field, which contains one digit and the sign. 


2.4.4. Unpacked Numeric Format 


The format of an unpacked numeric field is shown in Figure 2-8. 


1 BYTE 1 BYTE 1 BYTE 1 BYTE 1 BYTE 





Figure 2—8. Unpacked Numeric Data Format 


In this format, one decimal digit is placed in each byte (character position) of the field. 
Each byte except the rightmost byte consists of a zone portion and a digit portion. The 
rightmost byte contains the sign in the zone portion. 











PART 2. RPG II SPECIFICATIONS FORMS 
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3. General Specification Information 


TYPE AND NUMBER OF SPECIFICATIONS FORMS REQUIRED 
FOR A PROGRAM 


As you know, you write RPG II programs by making entries on preprinted forms. The 
number and type of forms you use depends on the program's complexity. But at the very 
least, you must use four of the nine available specifications forms: 


Control Card Specifications Form 

To specify the compilation mode and provide control information. 

Fite Description Specifications Form 

To describe all files used or created by your program. 

Input Format Specifications Form 

To identify the types of records and describe record fields within the input files. 
Output Format Specifications Form 


To describe how data is to appear on your output reports. 


If your program involves more than reading an input file, editing the information, and 
writing an output file or producing a printed report, you will have to use additional types of 
specifications forms. For example: 


Calculation Specifications Form 
lf your program requires operations. 
File Extension Specifications Form 


If you are going to use tables, arrays, or use one file to retrieve records from another 
file. 
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= Telecommunications Specifications Form 
lf you intend to send data to or receive data from a remote terminal. 
a Auto Report Options Specifications Form 
If you want to specify the options you want to use with the output from auto report. 


a Line Counter Specifications Form 


If you want to store a report on an intermediate tape or disk file for printing at a later 
date. 


As you can see, the contro/ card specifications form, the file description specifications 
form, the input format specifications form, and the output format specifications form are 
required for all programs. 


The calculation specifications form, the file extension specifications form, the 
telecommunications specifications form, the auto report options specifications form, and 
the /ine counter specifications form are used only when they are needed. 


3.2. COMMON FIELDS 


If you examine the RPG II specifications forms, you'll see that each form has a page 
number field, a line number field, a form type field, and a program identification field in 
the same position. These fields are provided to help you when you write your program. 
With the exception of the form type field, you do not have to use these fields. There are, 
however, certain advantages in using these fields that we'll cover in our discussions of the 
individual fields. 


3.2.1. Page Number (Columns 1 and 2) 


You use this field to number the specifications forms and indicate the order in which they 
should be processed. If you number the forms, they should be in ascending order from 01 
through 99. Another advantage in using this field is that RPG Il automatically checks the 
sequence of the statements during compilation and prints an error message on the source 
program listing if any are out of sequence. This sequence checking takes place whether 
the line number field is used or not. Table 3-1 gives you a summary of when RPG Il 
performs sequence checking during compilation. 


3.2.2. Line Number (Columns 3 through 5) 


You use this field to number the individual lines on a specifications form. As you can see, 
columns 3 and 4 are preprinted, and column 5 is blank so that you can insert your own 
number. If you number your lines 010, 020, 030, and so on, you can insert up to nine 
lines between any two previously written lines. To insert a line, number the line in 
ascending sequence within the preceding and succeeding lines. Figure 3-1 is an example 
of inserting a line between line 010 and 020. 














ge RPG Il 
SPERRYS-FUNIVAC OUTPUT FORMAT SPECIFICATIONS 


PROGRAM PROGRAMMER DATE PAGE _____. OF _______ PAGES 


STACKER SELECT/ é 
Ff FETCH OVERFLOW SKI OUTPUT INDICATORS 
OATA FORMAT CODES 


PIB/LIR: NEGATIVE VALUE INDICATION 














END 
POSITION 
IN 
OUTPUT 











CONSTANT OR EDIT WORD 


$ EDIT CODES 
8 6 BLANK AFTER 


19 20$21 22423 


BEFORE 
See | 














te ey a pe ee gs 


NTS RECEIVABLE’... 1 
MENT. pe Ppa ty ti 


ss aE 
























































OTAMT MP ic edt ue peta ey A I ogi oy oil 2h 
LT .NE, ; JBIE, INSERTEO, BETWEEN LINE... 











(te ie ee Pe ee et 






































Figure 3—1. Line Insertion Example 
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As you can see in Figure 3-1, you write the line being inserted after the last line with a 
preprinted line number. The line being inserted is numbered 011. Since line 010 and 020 
already are written on the form, the presence of a number other than zero (1 through 9) in 
the third position’ (column 5) indicates that you want this line inserted between line 010 
and 020. If you use insertion lines in your program, the cards that contain these lines 
must be inserted in their proper sequence in your source program deck before you compile 
your program. 


As with the page number field, RPG Il automatically checks the sequence of the 
statements during compilation and prints an error message on the source program listing 
if any are out of sequence. This sequence checking takes place whether the page number 
field is used or not. Table 3-1 gives you a summary of conditions when RPG II performs 
sequence checking during compilation. 


From Table 3-1, we see that RPG II performs sequence checking during compilation when 
the page number or the line number field is used or when both fields are used. 


Table 3—1. RPG Il Sequence Checking during Compilation 


Page Number Line Number Does RPG I! 
Field Used? Fietd Used? Perform Sequence 
(Cotumns 1 and 2) (Columns 3 — 5) Checking? 





3.2.3. Form Type (Column 6) 
Each RPG Il specifications form has a unique letter preprinted in this field. This letter 
identifies the specification type for each statement you write on a form. It must be 
punched on all source program cards when these forms are transcribed into a source 
program deck. 

C Identifies a calculations specifications statement 

E Identifies a file extension specifications statement 

F Identifies a file description specifications statement 

H Identifies a control card (header) statement 


I Identifies an input format specifications statement 


L Identifies a line counter specifications statement 
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O Identifies an output format specifications statement 
T Identifies a telecommunications specifications statement 
U_ Identifies an auto report options specifications statement 


One obvious advantage of using these identifying letters is that if your source program 
deck is disarranged, you can readily place the cards back in order by using the statement 
identifying letter along with the page and the line number. 


3.2.4. Compiler Directives (Columns 7 through 74) 


Three directives control the source listing produced by the compiler: /EJECT, /SPACE n, ~< 
and /TITLE. You can place them anywhere in the RPG II program. 


m /EJECT (columns 7 through 12) 


This directive prints all specifications after this entry on a new page. The /EJECT 
directive itself is not printed in the compilation listing. 


a /SPACE n (columns 7 through 14) <_ 


The /SPACE n directive causes blank lines immediately following the directive on 
the compilation listing. The spacing occurs only at the point where the /SPACE n 
directive appears with n specifying the number of lines (1 to 3) to be spaced. A 
blank is required in column 13 and n in column 14. If the number you specify is <+ 
greater than the number of lines remaining on the current page, the next RPG Il 
specification is printed on the next page. If you don’t specify a number from 1 to 
3, the default is a single blank line. The /SPACE n directive itself is not printed on 
the compilation listing. 


mw /TITLE (columns 7 through 74) 


The /TITLE directive specifies the heading information that is printed at the top of 
each page of the compilation listing. Compiler heading information is printed before 

the /TITLE heading information on the first page. You enter the /TITLE heading y 
information in columns 14 through 74. A blank is required in column 13. /TITLE 
ejects to the top of the next page before printing the title information. If a title is 
specified on the first page, /TITLE must be the first program statement. You can 

use more than one /TITLE directive in a program. The heading information stays in 4 
effect until a new /TITLE directive is used. The /TITLE directive itself is not printed 

on the compilation listing. 


3.2.5. Comments (Columns 7 through 74) 


You can insert a comment at any point among your specification statements by placing an 
asterisk (*) in column 7 and the comment text in columns 8 through 74. The asterisk in 
column 7 indicates to RPG Il that the associated text is a comment rather than a 
specification statement. When your program is compiled, RPG II prints any comment lines 
that are present on the source program listing. These lines are not included in your 
program. 
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The main use for comment lines is to write notes or reminders that will help you during 
program testing. For example, you can use a comment line to identify each section of your 
program or to indicate what a series of statements is used for. Lines 130 and 140 in 
Figure 3-1 show an example of the way in which you can use comment lines. 


3.2.6. Program Identification (Columns 75 through 80) 


You use this field to identify individual specification statements. This is true for all RPG II 
specifications forms, except the control specifications form. If you use this field, RPG Il 
treats the entry as a comment and prints it on the source program listing opposite the 
associated specification statement. Any combination of alphanumeric characters can be 
used in this field. 


On the control card specifications form, you use this field to name your program. This is a 
specialized use of this field so we'll cover it later in our discussion of the control card 


specifications form. 
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4. Control Card Specifications Form 


4.1. GENERAL DESCRIPTION 


You must have a control card specifications form (Figure 4-1) in all programs. This form 
specifies the compilation mode you want used when your program is compiled, assigns a 
unique name to your program, and supplies other control information. 


4.2. FORM ENTRIES 


In the following subsections you'll see what the fields are used for and how your entries 
in these fields affect your program. 


NOTE: 


Columns labeled “‘not used’ in Figure 4—1 are not checked for blanks. Any characters 
you enter are ignored. 


4.2.1. Compilation Mode (Column 7) 


You use this field to specify the compilation mode for your program. There are four 
compilation modes: SPERRY UNIVAC OS/3 mode, SPERRY UNIVAC 9200/9300 mode, 
IBM 360/20 mode, and IBM System/3 or System/34 mode. The OS/3 mode is the 
normal mode and should be specified for all new programs you write. The other modes are 
provided so that programs you have written for these systems do not have to be rewritten. 
Instead, you specify the required compilation in this field, and the RPG !| compiler will 
compile the program. 


If you are writing a new program, leave this field blank. 


lf your program is written for the IBM 360/20 systems, enter 2 in this field. For other 
IBM 360 or 370 systems, leave this field blank. 


If your program is written for the SPERRY UNIVAC 9200/9300 System, enter 3 in this 
field. 


If your program is written for the IBM System/3 or System/34, enter 4 in this field. 
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4.2.2. Error Analysis Dump (Column 8) 


You use this field to specify if you want a formatted error analysis dump of main storage 
printed when an error occurs during the execution of your program. When you test your 
program, you should specify an error analysis dump because, if an error occurs, the dump is 
formatted to help you find the cause of the error. After your program is error free, you 
should change the entry in this field and recompile your program. We recommend this 
because the error analysis dump option requires an additional 5642 (hexadecimal 160A) 
bytes of main storage. 


If you do not want an error analysis dump or you have specified operator control (1 in 
column 9), leave this field blank. 


If you want an error analysis dump, enter a D in this field. The error analysis dump uses 
the PRNTR file, so you must include a // LFD PRNTR statement in the job stream used to 
execute your programs. 


If you do not want an error analysis dump but you want an unformatted cancel dump, 
leave this field blank, but include a /7/AOPTIONADUMP statement in the job control 
stream used to execute your program. 


For IMS action programs, this field is ignored. 


4.2.3. Operator Control (Column 9) 
You use this field to control program termination when a halt indicator is set on during 


program execution. A halt indicator can be one that you specified in your program (H1 
through H9), or it can be the HO indicator, which is set on as a result of an error condition. 


If you do not want operator control or you have specified an error analysis dump (D in 
column 8), leave this field blank. This field is ignored for IMS action programs. 


If you want operator control, enter a 1 in this field. This causes the message 
RPGO31 RPGII| OPERATOR CONTROL, TYPE IN AVAILABLE OPTION (0, 1, 2, 3) 
| 


to be displayed on the system console when a halt indicator is set on. If a halt indicator 
specified in your program (H1 through HQ) is set on, the message 
RPGO28 USER SET HALT INDICATORS ARE: 
Hn, Hn, ... Hn 
is displayed on the system console preceding the operator control message. If the HO 
indicator is set on as the result of an error, the appropriate execution time error message 


in the form 


RPGnnn explanatory text 
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is displayed on the system console preceding the operator control message. In either case, 
type in the appropriate option; that is: 


0) 
Continues. Control is returned to the program and processing continues at the 
instruction immediately following the error condition. 

1 
Bypass. The remainder of the program cycle is bypassed, and the next record is 
read. 

2 
Controlled termination. LR processing is performed. 

3 


Immediate termination. Program terminates immediately. 


Only option O, 2, or 3 should be used in reply to the RPGO28 message. The operator 
control options that can be used with the individual execution time error messages are 
shown in the system messages programmer/operator reference. 


4.2.4. Generate Debug Code (Column 15) 


You use this field to include one or more DEBUG operations in your program on the 
calculation specifications form. It determines if the output produced by the DEBUG 
operation is printed during the execution of your program. The DEBUG operation is a 
program testing aid that prints the indicators that are on and any specified field or literal 
when it is executed. If you use DEBUG operations in your program, you should specify that 
you want the DEBUG operation output printed when you test your program. After your 
program is error free, you should change the entry in this field and recompile your 
program. 


If you do not want the DEBUG operation output printed or you did not include any DEBUG 
operations, leave this field blank. 


If you want the DEBUG operation output printed, enter a 1 in this field. 


4.2.5. Currency Sign (Column 18) 

Use this field to specify a currency sign other than the dollar sign ($) in edit words. 

If you want to use the dollar sign ($) as the currency symbol, leave this field blank. 

lf you want to use a different symbol as the currency sign, enter any character except: 
Oo*,&.-CR 

These characters have a special meaning when used in edit codes and words. The 


character you select can be used as a fixed or floating currency symbol when output data 
is edited. 
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4.2.6. Inverted Print (Column 21) 


You use this field to specify the system date format and how commas and decimal points 
are used to punctuate numeric fields. If you leave this field blank, the system date format 
is mm/dd/yy (mm=month, dd=day, yy=year), and commas and decimal points are used to 
punctuate numeric fields in the normal manner. 


If you enter a D in this field, the system date format is dd/mm/yy, and commas and 
decimal points are used to punctuate numeric fields in the normal manner. 


If you enter an | in this field, the system date format is dd.mm.yy, and the use of commas 
and decimal points is reversed; the comma is used as a decimal point and the decimal 
point as a comma. For example, $3,600.42 would appear as $3.600,42 in this format. 


lf you enter a J in this field, it is the same as if you entered an | except that all zero 
balances or balances with a zero to the left of the decimal comma are printed with one 
leading zero. For example, 0,00 or 0,79. 


4.2.7. Alternate Collating Sequence (Column 26) 


You use this field to specify a collating sequence other than the normal EBCDIC collating 
sequence. The EBCDIC collating sequence (arrangement order in ascending value for 
comparison purposes) is blanks followed by special characters, alphabetics (A through 2), 
and numerics. lf the data you are processing requires a different collating sequence or you 
want certain characters to be considered equal, you must supply this information via 
ALTSEQ (alternate sequence) records in your input deck at compilation time. 


If you intend to use the normal EBCDIC collating sequence, leave this field blank. If you 
are going to use an alternate collating sequence, enter an S in this field. 


4.2.8. Binary Search (Column 31) 


You use this field to specify that a binary search is to be used on sequenced tables and 
arrays for LOKUP operations. If you leave this field blank, a sequential search is used for 
LOKUP operations. If you enter a 1 in this field, a binary search is used on all sequenced 
tables and arrays in the program. All rules for LOKUP operations apply. In addition: 


= Tables and arrays specified as sequenced must remain sequenced during program 
execution. 


= §©6At least two elements must be searched. For a subscripted array, the subscript must 
be at least one less than the array size. 


Tables and arrays should contain at least 50 elements for the binary search to be efficient. 
Search time improves as the number of table or array elements is increased. For example, 
the binary search is approximately eight times faster than a sequential search on a table 
of 500 elements and 60 times faster on a table of 2500 elements. 
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4.2.9. Sign Handling (Column 40) 


You use this field to specify whether you want the signs of numeric fields checked when 
data is moved to or from them. A hexadecimal! D is the negative sign for both input and 
output fields. A hexadecimal C is the positive sign for input fields and a hexadecimal F is 
the positive sign for output fields. 


If you want the signs of both the input and output fields checked to see if they are positive 
or negative, either enter an S or leave this field blank. If a field does not contain a sign, 
RPG II will insert one. It is your responsibility to ensure that signs of packed numeric input 
fields (P in column 43 of input format specifications form) are valid. If a hexadecimal 6 is 
used to indicate a negative sign in an input field, it is automatically changed to a 
hexadecimal D when the field is read. If you do not want the signs of the input or output 
fields checked, enter a B in this field. 


If you do not want the signs of the input fields checked, enter an | in this field. 
if you do not want the signs of the output fields checked, enter an O in this field. 


If input sign control is specified, program check island code is generated. If you do not 
want this feature, enter an | or a B in this field. 


4.2.10. Forms Alignment (Column 41) 


You use this field to specify whether or not you want first page forms alignment for your 
printed reports when your program is executed. We suggest that you use this because it 
allows you to make sure that your forms are properly aligned in the printer before you 
start. If you specify first page forms alignment, the first detail line conditioned by the 1P 
(first page) indicator for the first printer file is printed and your program waits. A message 
that asks the operator if the form is aligned is then displayed on the system console. If the 
form is aligned, the operator types in Y on the system console and program processing 
resumes. If the form is not aligned, the operator can adjust the form and type in N to have 
the line printed again. 


If you do not want to use first page forms alignment, leave this field blank. If you want to 
use first page forms alignment, enter a 1 in this field. 


For IMS action programs, this field is ignored. 


4.2.11. Indicator Initialization (Column 42) 


You use this field to specify whether the zero or blank indicators specified on the input or 
calculation specifications form are to be set on when your program begins execution. 


If you want the zero or blank indicators set on, enter an S in this field. When you use this 
entry and a field on the output format specifications form is to be blanked after it is placed 
in the output record, the first indicator that tests this field for zero or blank is set on after 
the field is placed in the output record. 
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4.2.12. File Translation (Column 43) 

You use this field to specify that all data in the input or output files you select is to be 
translated in accordance with a translation table that defines the characters that are to 
replace existing characters in the input and output data. If you want file translation, you 
must supply the file translation table via file translation records in your input deck at 
compilation time. 

If you are not using file translation, leave this field blank. 


lf file translation is required, enter an F in this field. 


4.2.13. CCA Name (Columns 70 through 73) 


You use this field to specify the name of the ICAM communications control area (CCA) 
when telecommunications are used in your program. 


If you do not use telecommunications in your program, leave this field blank. If you do use 
telecommunications, enter the name of the CCA in this field. 
4.2.14. Subroutine or Action Program (Column 74) 


You use this field to specify whether the program is to be compiled as a main program, a 
subroutine, or an IMS action program. 


If the program is to be compiled as a main program, leave this field blank. 
If the program is to be compiled as a subroutine, enter an S in this field. 


If the program is to be compiled as an IMS action program, enter an A in this field. 


4.2.15. Program Identification (Columns 75 through 80) 

You use this field to give a unique name to your program. This name is assigned to your 
program during compilation. If you don’t specify a name in this field, RPG Il automatically 
assigns RPGOBJ as your program name. 

If you do not want to name your program, leave this field blank. 

If you want to name your program, enter a 1- to 6-character name in this field. The first 
character must be an alphabetic character, A through Z. The remaining characters may be 


any combination of alphanumeric characters. 


When you make an entry in this field, it must be left-justified. 
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4.3. EXAMPLES OF ENTRIES ON THE CONTROL CARD SPECIFICATIONS FORM 


Figure 4-2 provides examples of typical entries on the control card specifications form. 


CONTROL CARD SPECIFICATIONS 


ALTERNATE |__ FORMS ALIGNMENT o SUBROUTINE OR y/ 
x FILE TRANSLATION ACTION PROGRAM z 











NOT USED 


& F OR BLAN 








rT q INT GC re 
OumP x GENERATE |J SEQUENCE SIGN HANDLING = 
% DEBUG 
oi < non | BINARY SEARCH 
Ne uUsED not |e 


us Pa 
[J 
15/16 17118 21)22 25 


Figure 4—2. Examples of Entries on Control Card Specifications Form 


Explanation of entries in Figure 4-2: 


Compile the program using the OS/3 mode (column 7 is blank). If an error occurs during 
program execution, print an error analysis dump (D in column 8). Print an output record 
when a DEBUG operation is executed (1 in column 15). The system date format is 
mm/dd/yy, and commas and decimal points are used to punctuate numeric fields in the 
normal manner (column 21 is blank). Use the normal EBCDIC collating sequence (column 
26 is blank). Check the signs of the input and output fields to see if they contain a positive 
or negative sign (S in column 40). Use first page forms alignment (1 in column 41). Set the 
1P (first page) on at the start of program execution (column 42 is blank). File translation is 
not used (column 43 is blank). Telecommunications is not used in this program (columns 
70 through 73 are blank). The program is a main program (column 74 is blank). Assign the 
name PROGO1 to the program (PROGO1 in columns 75 through 80). 
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5. File Description Specifications Form 


5.1. GENERAL DESCRIPTION 


You must have a file description specifications form (Figure 5-1) in all your programs. It 
describes the files you are going to use. You describe each file by naming it. Then, you tell 
how the file is used, the size of the data records and how they are arranged, where the 
key field is located in the records, how the file is processed, the type of input/output 
device the file is stored on or to be written on, how file labels are handled, the amount of 
main storage you want reserved for the top index if you have an indexed sequential (ISAM) 
file, the percentage of each cylinder that is reserved for cylinder overflow if you have an 
indexed sequential file that you are going to add records to at a later time, how the tape 
reel is to be rewound if you have a magnetic tape file, and what external indicator controls 
the file. 


5.2. FORM ENTRIES 


In the following subsections you'll see what each field is used for and how your entries in 
these fields affect your program. 


5.2.1. File Name (Columns 7 through 13) 


You identify the file you want to describe by putting the name in this field. The file name 
consists of from one to seven alphanumeric characters. The first character must be an 
alphabetic character A through Z or a special character $, #, @, /, %, ?, +, or &. The 
remaining characters may be alphabetic, A through Z; numeric, O through 9; or the special 
characters $, #, @, /, %, ?, +, and &. You cannot use any other special characters or the 
space character. When you make an entry in this field, it must be left-justified. The $ must 
not be the first character in a console output file. 


lf you are using a SPERRY UNIVAC 9200/9300, IBM System/3, or IBM 360/20 source 
program, RPG II accepts an 8-character file name. 


When you use table or array files, the point in time when these files are to be loaded 
determines if they are described on this form. If you are going to load a table or array file 
at compilation time, you must not enter the name of this file in this field. You identify this 
file on the file extension specifications form. If you are going to load a table or array file at 
execution time, you must enter the name of this file in this field and also on the file 
extension specifications form. 
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5.2.2. File Type (Column 15) 


You use this field to specify the file type for each file in your program. The entry you 
make in this field in conjunction with the entry in the file designation field (column 16) 
tells how you want this file used in your program. Entries and instructions on file use 
are summarized in Table 5—1, which follows the description of the file designation field 
(5.2.3). A file can be a combined file, a display file, an input file, an output file, or an 
update file. You specify the file type by entering a letter in this field: 


C Specifies a combined file 
D Specifies a display file 

I Specifies an input file 

O Specifies an output file 
U = Specifies an update file 


A combined file is used for both input and output. It can only be a communications file, 
a diskette, a workstation terminal, or a card file that resides on a card punch device that 
contains the prepunch read feature. This specification must not be used for IMS action 
programs. 


A display file contains data for display on the system console. The system operator may 
modify the displayed data by making a reply. This specification must not be used for IMS 
action programs. 


An input file contains data records, a record address file, an array file, a table file, or a tag 
file (a file created by using the ADDROUT option of the sort/merge). 


An output file is any data, array, or table file that is written, punched, or printed during the 
execution of the program. 


An update file is a disk file containing records that may be retrieved, updated, and written 
back on the file in locations from which they were read. The updating process must not 
alter the record characteristics in any way. The field length, record length, and field 
location must remain the same. When an update file is used, data can only be updated at 
detail time, except in the case of data from a chained update file. This file can be updated 
at either detail or total time. The file name of the update file must be specified on both the 
input and output format specifications forms. Only those fields that are to be updated 
should be specified on the output format specifications form. 


When you write your program, you can list files of different types in any order. You 
must have at least one output file (output, combined, or update). You can use a 
maximum of 20 files in your program; however, there are specific restrictions on how 
many files can be used to perform certain functions. These restrictions are shown in 
Table 5-1. 
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5.2.3. File Designation (Column 16) 





You use this field to specify the function of each input, combined, and update file in your 
program. If you use a display or output file, this field must be left blank. The entry you 
make in this field in conjunction with the entry in the file type field (column 15) tells how 
you want this file used in your program. 


These entries and how files may be used are summarized in Table 5-1. 


Table 5—1. File Use 
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A file can be a chained file, a demand file, a primary file, a record address or tag file, a 
secondary file, or a table or array file. You specify the file designation by entering a letter 
in this field. 


C Specifies a chained file 

D Specifies a demand file 

P Specifies a primary file 

R Specifies a record address or tag file 
S Specifies a secondary file 

T Specifies a table or array file 


A chained file is an indexed sequential file that is processed randomly. It may be an input 
or update file processed by input chaining indicators (C1 through C9) specified on the 
input format specifications form or by a CHAIN operation on the calculation specifications 
form, or a direct file that is being created using the CHAIN operation. 


A demand file is a file processed by a READ operation on the calculation specifications 
form. It can be an input, combined, or update file. 


A primary file is the main file that records are read from during program execution. 
When you have more than one input file in your program (multifile processing), the 
primary file controls the order in which the records are selected for processing. If you 
don't specify a primary file, the first secondary file is assumed primary. If there are no 
primary or secondary files, you are responsible for terminating your program by setting 
on the LR indicator. 


NOTE: 


If you choose a workstation, you can designate it as a primary file or a demand file. If you 
designate a workstation file as a primary file, secondary files are prohibited. If you 
designate a workstation file as a demand file, a primary file is not required. 


A record address file supplies the parameters that control how an indexed sequential or 
direct file is processed. This file contains upper and lower address limits when only a 
certain portion of an indexed sequential! file is to be processed (sequential processing 
between limits), or it contains record keys when the file is to be processed randomly. For a 
direct file, the record address file contains relative record numbers. 


A tag file supplies the required processing sequence for a sequential disk file that is to be 
processed randomly. You use the ADDROUT option of sort/merge to create a tag file. The 
tag file is made up of the addresses of the records on the sequential file. The order that 
the addresses are written on the tag file determines how the records on the sequential file 
are selected for processing. 
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A secondary file is any file except the primary file when multifile processing is involved. 
Secondary files are processed in the order that they appear on this form. 


A table or array file is a file that contains table or array records. Make an entry in this field 
only for a table or array that is loaded at execution time. You do not make an entry if a 
table or array is to be loaded at compilation time or written on an output file. For an IMS 
action program, a table or array file may not be a SAM file; however, it may be a 
sequential, nonindexed IRAM file. 


When you write your program, you can only have one record address or tag file in your 
program and this file must also be defined on the file extension specifications form. If you 
use an input chaining file (C1 through C9 chaining) or table or array files at execution 
time, these files must also be defined on the file extension specifications form. 


5.2.4. End of File (Column 17) 


You use this field to specify which input, combined, or update file is to be completely 
processed before the last record indicator, LR, is turned on. The file must be used as a 
primary, secondary, or record address file. If the file is a display file, output file, table file, 
or array file, this field must be left blank. 


If you leave this field blank for all files, all the records in each file are processed before the 
LR indicator is turned on. If it is not blank for all files, all the records from this file may or 
may not be processed before the LR indicator is turned on. 


If you enter an E in this field, all the records in this file are processed before the LR 
indicator is turned on. 


If you specify an E for only one file, the LR indicator is turned on when all the records 
from this file have been processed, regardless of whether all records in the other files in 
the program have been processed. 


lf you specify E for more than one file, the last record indicator is turned on when all 
records from these files have been processed. 


If you specify E for all files, this is the same as leaving this field blank for all files. 


5.2.5. Sequence (Column 18) 


You use this field to specify the sequence of the data records within an input, combined, 
or update file when you want RPG II to check the sequence of the data records in a file or 
when you want to process more than one file using the matching records technique. If you 
make an entry in this field, you must make a matching field entry in columns 61 and 62 of 
the input format specifications form for each input field that contains sequencing 
information. 
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If you specify matching field entries for only one file, RPG II will check the sequence of the 
records in that file. 


If you specify matching field entries for more than one file, RPG Il will check the sequence . 
of the records in each file and process the files, using the matching records technique. In 
this case, you do not have to make a sequence entry for each file because RPG II assumes 
that the sequence entry for the first file that has matching fields applies to all files. If you 
make a sequence entry for the other files, these entries must be the same as for the first 
file. If they are not, the sequence for the first file applies. 


If the matching fields are in ascending order, leave this field blank or enter an A in it. If 
the matching fields are in descending order, enter a D in this field. 


Sequence checking is not performed in the IBM System/3 mode if this field is left blank. 


This field must be blank for demand, output, record address and display files, and for any 
file processed randomly. 


5.2.6. File Format (Column 19) 


You use this field to specify format of the data records on a file. All records on a file can 
be the same or variable in length. If they are the same length, the file contains fixed- 
length records. If the records vary in length, the file contains variable-length records. This 
field is used in conjunction with the entries in the block length field (columns 20 through 
23) and the record length field (columns 24 through 27). 


If all the records in the file are the same length or the file is a table, array, workstation 
terminal, or special file, enter an F in this field. F must be specified for all disk files in the 
IBM System/3 mode. 


If the records vary in length or the file is a line counter file, enter a V in this field. 


lf the file contains variable-length ASCII (American Standard Code for Information 
Interchange) records, enter a D in this field. 


An entry is not required for card, printer, display, or direct files. 


5.2.7. Block Length (Columns 20 through 23) 


You use this field to specify the number of data characters contained in each block in a 
blocked file (a file where the data records are grouped into blocks containing two or more 
records). The entries in this field are used in conjunction with the entries in the file format 
field (column 19) and the record length field (columns 24 through 27). These entries are 
summarized in Table 5-2, which follows the description of record length (5.2.8). If the file 
is an unblocked file, leave this field blank. 
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If the file is a blocked file, enter the logical number of data characters (bytes) in the block &@ 
in this field. The entry must be right-justified; leading zeros may be omitted. The allowable 
biock length ranges for the devices that blocked files can be stored on or written on are: 








Minimum Maximum 
Block Block 
Device Length Length 
UNISERVO VI-C or 10 
Magnetic Tape Subsystem 18 8191 
UNISERVO 12/16 or 20 
Magnetic Tape Subsystem 18 9999 
8411 disk subsystem 6 3618 
8413 diskette subsystem 1 1023 
8414 disk subsystem 6 7287 
8415 disk subsystem 6 9999 
8416 disk subsystem 6 9999 
8417 disk subsystem 6 9999 
8418 disk subsystem 6 9999 
8419 disk subsystem 6 9999 
8424 disk subsystem 6 9999 
8425 disk subsystem 6 9999 
8430 disk subsystem 6 9999 
8433 disk subsystem 6 9999 
0768 printer subsystem 3 132 
0770 printer subsystem 3 132 or 160* 
0773 printer subsystem 3 120, 132* or 144* 
0776 printer subsystem 3 120 or 136* 
0778 printer subsystem 3 120 or 136* 





*Requires a printer subsystem equipped with special features 
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If your file is a fixed-format file on tape or disk, the block length must be a multiple of the 
logical record length. If it is not, the block length will be automatically increased to the 
nearest multiple. If it is a variable format file, the block length must be equal to or greater 
than the logical record length. 


When using a console, workstation terminal, or special file, this field must be left blank. 
At compilation time, RPG Il adjusts the block length specified in columns 20 through 23 to 
allow space for data management block and record descriptors. The adjustments are based 


on the following formulas. 


s Tape and Nonindexed Sequential Disk Files 


- Fixed format files b=nr 
- Line counter files b=rd+t9 if |! =r or unblocked 
b=14+4if|l#r 
- Other variable format files b = r + 8 if |! = r or unblocked 
b=1+4ifl#r 
7 Indexed Disk Files 
- Fixed format files b = 2 + n (r+5) 
~ Variable format files b=r+9 if | =r or unblocked 
b=lI1+2ifl|¥r 
where: 
b 
Is total number of physical bytes required for data and control fields per 
block. 
n 


Is number of records per block. 


Is logical record length specified in columns 24 through 27. 


Is logical block length specified in columns 20 through 23. 


In the IBM System/3 mode, the block length does not affect the way records are written 
on a disk file. Its function is to specify the amount of main storage to use for the 
input/output area. 


For IMS action programs, a block length specification will be ignored. However, a block 
length must be specified during IMS configuration. 
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5.2.8. Record Length (Columns 24 through 27) 


You use this field to specify the number of data characters in each record in a file. The 
entries in this field are used in conjunction with the entries in the file format field (column 
19) and the block length field (columns 20 through 23). These entries are summarized in 
Table 5-2. 


If the file is other than a tape file, disk file, workstation file, or a file stored on or to be 
written on a user-Supported device, you can leave this field blank, and the default record 
length for the device is assumed. 


lf the file is a tape file, disk file, workstation file, or a file stored on or to be written on a 
user-supported device, or if you do not want the default record length assumed, you must 
enter the logical number of characters (bytes) in a record in this field. The entry must be 
right-justified; leading zeros may be omitted. The allowable record length ranges for the 
various devices are: 





Maximum Default 
Device Record Length Record Length 
0716, 0717, or 0719 80 80 
card reader subsystem 
0716, 0717, or 0719 51 51 
card reader subsystem 
with 51-column read feature 
0716, 0717, or 0719 66 66 
card reader subsystem with 
66-column read feature 
0716 card reader 96 80 
subsystem with 96-column 
read feature 
0768 printer subsystem 132 120 
0770 printer subsystem 132 or 160* 120 
0773 printer subsystem 120, 132*, or 144* 120 
0776 printer subsystem 120 or 136* 120 
0778 printer subsystem 120 or 136* 120 
UNISCOPE 100 60 60 


Display Terminal (system console) 


*Requires a printer subsystem equipped with special features 
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Maximum Default 
Device Record Length Record Length 
UNISERVO VI-C or 10 8191 246 
Magnetic Tape Subsystem 
UNISERVO 12/16 or 20 9999 246 
Magnetic Tape Subsystem 
8411 disk subsystem 3618 - 
8413 diskette subsystem 128 80 
8414 disk subsystem 7287 - 
8415 disk subsystem 9999 - 
8416 disk subsystem 9999 - 
8418 disk subsystem 9999 - 
8424 disk subsystem 9999 - 
8425 disk subsystem 9999 - 
8430 disk subsystem 9999 - 
8433 disk subsystem 9999 - 
User-supported device 9999 ~ 
(SPECIAL) 
Workstation terminal 1920 - 


If the lines on a printed report are not longer than 120 characters, you should specify that 
you want your report file written in device-independent format. By doing this, your 
program can use any type of printer subsystem that is available at execution time. If you 
want a report file written in this format, you must specify a record length of 120 
characters or less in this field and specify that any printer subsystem can be used in the 
job control stream device assignment statements for your program. 


The entry you make in this field is used by RPG Il to calculate the actual record length 
according to the formulas that follow. The actual record length is the sum of the data 
characters in the record and any required control fields. These control fields are present in 
all files that are created using OS/3 data management; that is, the control fields are 
present in your input files, and they will be included in your output files. 





UP-8067 Rev. 6 SPERRY UNIVAC OS/3 5-12 
RPG II 





The RPG Il actual record length calculation formulas are: 





= =§=6©Tape and Nonindexed Sequential Disk Files 
- Fixed format files r=b 
- Line counter files r=b+5 
- Other variable format files r= b+ 4 


a Indexed Disk Files 


- Fixed format files r=b+5 
- Variable format files r=b+/7 
where: 


Is actual record length. 


Is logical record length specified in columns 24 through 27. 





Table 5—2. Summary of File Format, Block Length, and Record Length Entries 


R F 
oepte Forney Column 19 Columns 20 through 23 Columns 24 through 27 
File Format Block Length Record Length 
Fixed, unblocked Blank or same as Required 
record length 
Variable, unblocked Blank or same as a 
record length 
Vv 
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5.2.9. File Processing Mode (Column 28) 


You use this field to specify the file processing mode for a disk file. If the file is a card or 
tape file, this field must be left blank. The entries in this field are used in conjunction with 
the entries in the record address type field (column 31) and the file organization field 
(column 32). These entries are summarized in Table 5-3, which follows the description of 
file organization (5.2.12). If the file is a sequential file, indexed file, or direct file that is 
processed sequentially or a record address or tag file, leave this field blank. This field is 
left blank for record address or tag files because these are sequential files that are 
processed sequentially. This field should also be left blank if the file is a sequential, 
indexed, or direct file that is processed consecutively in the IBM System/3 mode. 


Enter an L in this field if the file is an indexed file that is processed sequentially between 
limits by using a record address file to supply the upper and lower limits or by using a 
SETLL operation to supply the lower limit. 


Enter an R in this field if the file is an indexed file that is processed randomly by using a 
record address file, a chaining file, a tag file, or the CHAIN or REFER operation. You also 
use R if the file is a sequential file that is processed randomly using a tag file, or if it is 
a direct file that is processed randomly by using the CHAIN operation to supply relative 
record numbers, or if you are creating a direct file with relative record numbers supplied 
with the CHAIN operation. 


5.2.10. Key or Record Address Field Length (Columns 29 and 30) 

You use this field to specify the length of the entries in a record address or tag file, or the 
length of the key field when the record address type (column 31) is specified as 
alphanumeric (A) or packed decimal (P). 

The minimum key length for an indexed file is 3. 

The minimum key length for a MIRAM file is 1. 

The maximum key length for IRAM, MIRAM, and IBM System/3 mode files is 80. 


If the file is a tag file, 10 must be entered in this field. 


The entry in this field must be right-justified; leading zeros may be omitted. 


5.2.11. Record Address Type (Column 31) 


You use this field to specify how data records are retrieved from a file. The entries in this 
field are used in conjunction with the entries in the file processing mode field (column 28) 
and the file organization field (column 32). These entries are summarized in Table 5-3. 
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Data records can be retrieved sequentially, by record key, by record address, or by 
relative record number. If data records are retrieved sequentially, they are retrieved in 
the order they appear on the file; that is, the first record on the file is the first one 
retrieved and so on. If the data records are retrieved by record key, the record keys are 
supplied by a record address file, chaining file, or the CHAIN or REFER operation, and 
the records are retrieved randomly from the data file based on the record keys that are 
supplied. If data records are retrieved by record address, the record addresses are 
supplied by a tag file, and the records are retrieved from the data file based on the 
record addresses that are supplied. If the data records are retrieved by relative record 
number (the position of the record relative to the beginning of the file), the relative 
record numbers are supplied by the CHAIN operation and the data records are retrieved 
based on the relative record numbers that are supplied. 


If the data records are retrieved sequentially, leave this field blank. This entry is not 
required for a sequential file. If any other entry is made for a sequential file, it is treated 
as if it were a blank. When your program is executed in the IBM System/3 mode, indexed 
files are processed consecutively. 


If the data records are retrieved by alphanumeric keys, enter an A in this field. This entry 
can be used only for an indexed file. 


If the data records are retrieved by a tag file, enter an | in this field. This entry is also 
interpreted in this way when your program is executed in the SPERRY UNIVAC 
9200/9300 mode, IBM 360/20 mode, or IBM System/3 mode. 


If your program is executed in the SPERRY UNIVAC 9200/9300 mode, a K in this field is 
interpreted the same as if it were an A. If your program is executed in the OS/3 mode, 
this entry is interpreted as if it were a P. 


If the data records are retrieved by packed decimal key, enter a P in this field. This entry 
can be used only for an indexed file. 


If the data records are retrieved by relative record number, enter an R in this field. 


5.2.12. File Organization (Column 32) 


You use this field to specify how a file is organized and how many input/output areas you 
want assigned to that file. A file can be a sequential file with one or two input/output 
areas, an indexed file with one or two input/output areas, a direct file, or a tag file. The 
entries in this field are used in conjunction with the file processing mode field (column 28) 
and the record address type field (column 31). These entries are summarized in Table 5-3. 


If the file is a sequential file or record address file, leave this field blank. This field must 
also be left blank if the file is a combined table, array, or special file or if the file is a card 
input or output file and you want to use stacker selection. 
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Table 5-3. Summary of File Processing Mode, Record Address Type, and File Organization Column Entries 


Column Entries 


File Retrieval 28 31 32 
File Record File 
Processing Address | Organization 
Mode Type 


Sequential file processing 
Sequentially or record address file Blank Blank Blank 
Sequentially with additional |/O areas requested Blank Blank 
Randomly by using tag (ADDROUT) file to supply addresses R | 


Indexed file processing 
Sequentially 


Sequentially with additional |/O areas requested (ISAM files only) <—_ 
Sequentially between limits by using record address (RA) 

file or SETL operation to supply upper and lower limits 
Sequentially between limits by using record address (RA) file 


or SETL operation to supply upper and lower limits 
with additional 1/O areas requested (ISAM files only) 

Randomly by using a record address (RA) file, C1 to C9 
chaining, or CHAIN or REFER operation code 


t 


t 


Direct file processing 


Randomly by relative record numbers supplied with 
CHAIN operation 


IBM System/3 mode 
Tag (ADDROUT) file 
Sequential file processed randomly by using a tag 
(ADDROUT) file to supply addresses 
Indexed file processed randomly by a tag (ADDROUT) file 


Direct file processed randomly by relative record number 
File processed consecutively 


SPERRY UNIVAC 9200/9300 mode 


Indexed file processed sequentially between limits by 


using a record address (RA) file to supply upper 
and lower limits 
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If the file is a sequential file and you want two input/output areas assigned to the file, 
enter a 2 in this field. If 1 or 3 through 9 is specified, it is treated as if 2 were specified. If 
the file is a card input or output file and you enter 2 in this field, you cannot use the 
stacker selection. If the file is a nonsequential file and you enter a 2 in this field, the entry 
is ignored. 


If the file is an indexed file, enter an | in this field. 


If the file is a direct file or a sequential file processed randomly by using a tag (ADDROUT) 
file to supply addresses, enter a D in this field. 


lf the file is a tag file, enter a T in this field. 


If the file is an indexed file and you want two input/output areas assigned to the file, 
enter an X in this field. This is allowed only for ISAM files. It is not allowed in IBM 
System/3 or System/34 mode, or for IRAM or MIRAM files. 


For IMS action programs, a tag (ADDROUT) or a record address file may not be a SAM 
file. However, either file may be a nonindexed, sequential IRAM file. Tape or disk input 
files may not be sequential access (SAM) files; they may be nonindexed, sequential 
IRAM files. 


Additional 1/O areas may not be specified for an IMS action program. They must be 
specified, however, during IMS configuration. 


5.2.13. Overflow Indicator (Columns 33 and 34) 


You use this field to specify a unique overflow indicator for a printer or line counter file. 
The indicator that you specify will be set on when page overflow occurs during the 
printing of the file. This field must be left blank for all files other than printer or line 
counter files. The entries in this field are used in conjunction with the entries in the 
output indicators fields (columns 23 through 31) on the output format specifications form. 
These entries control the printing of heading information and any associated processing 
when page overflow occurs. The interaction of these entries is summarized in Table 5-4. 
You specify the overflow indicator by specifying two letters in this field. You can use OA 
through OG, or OV. If you have more than one printer or line counter file in your program, 
you must specify a different overflow indicator for each file. lf you do not specify an 
overflow indicator for a printer or line counter file, an automatic skip to the top of the next 
page occurs when overflow is detected. OF is assumed as the overflow indicator if your 
program is a SPERRY UNIVAC 9200/9300 program. 
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Table 5—4. Summary of Interaction between the Overflow and Output Indicators 


File Description Output Format 
Specifications Form, Specifications Form, 
Columns 33 and 34 | Columns 23 through 31 
(Overflow indicator) (Output Indicator) 


Blank Automatic skip to the top of the next page when 
the overflow condition occurs 


OA—OG, or OV An error will be noted at compilation time. An 
automatic skip will be made to the top of the next 
page when the overflow condition occurs. 


OA—OG, OV Same entry as on Sets overflow indicator on and performs overflow 
file description processing 
specifications form 


OA—OG, OV Sets overflow indicator on and continues printing 
{overflow processing is ignored) without skipping 
to the top of the next page 





5.2.14. Key Field Starting Location (Columns 35 through 38) 


You use this field to specify the starting location of the key field in the data records on an 
indexed file. This entry can range from 0001 through 9999. The entry must be right- 
justified; leading zeros may be omitted. If the file is an indexed file, you must make an 
entry in this field. 


5.2.15. Extension or Line Counter Code (Column 39) 


You use this field to indicate to the RPG Il compiler that additional information concerning 
this file is provided on the file extension specifications form or the line counter 
specifications form. 


If the file is a table or array file loaded at execution time, a chaining file, or a record 
address file, you must enter an E in this field. The E indicates that additional information 
concerning the file will be found on the file extension specifications form. 


If the file is a line counter file (a print image file that is to be stored on tape or disk), you 
must enter an L in this field. 

5.2.16. Device (Columns 40 through 46) 

You use this field to specify the type of input/output device that each file in your program 


resides on or is to be written on. The names that you use to specify the various types of 
input/output devices are shown in Table 5-5. 
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Table 5—5. Summary of Device Field Entries 


















IBM 
System/3 
Mode 


Input/Output 
Devices 


Job control stream reader 


Series 90: 0716 or 0717 card 
reader 
System 80: 0719 card reader 


0716, 0717, or 0719 card reader 
with 51-column read feature ; 
0716, 0717, or 0719 card reader 
with 66-column read feature 








CTLRDR* 






~ READO1 
MFCU1 


READER* 
























































PUNCH* PUNCH PUNCH20, Series 90: 0604 or 0605 card 
ae ROWPNCH PUNCH42, punch 

READ40, System 80: 0608 card punch 
READ42, 
MFCM1 

CRP* CRP,RRP CRP20 READ42 Series 90: 0604 or 0605 card 
READ20 MFCU2 punch with prepunch read 
READ4O0, MFCU1 feature, or 8413 diskette 
READ42, MFCM1 subsystem 
MFCM1, MFCM2 System 80: 0608 card punch 
MFCM2 






PRINTER* PRINT16, 
PRINT48, 
PRINT63, 
PRINTOR 


TAPE TAPE, TAPE TAPE 
TAPE7 







PRINTER, PRINTER Series 90: 0768, 0770, 0773, 
PRINTLF, PRINTR2 0776, or 0778 printer 
PRINTUF, PRINT84 



















System 80: 0776 or 0789 printer 





Series 90: UNISERVO V1-C, 
UNISERVO 12/16, UNISERVO 10, 
UNISERVO 14, or UNISERVO 20 

magnetic tape subsystem 


















DISC DISC DISK, DISK Series 90: 8411, 8414, 8415, 
DISK DISK11, DISK40 8416, 8418, 8424, 8425, 8430, or 
DISK11F, DISK45 8433 disk 
DISK14 System 80: 8417 or 8419 disk 
DISCVS a eae Series 90: 8411, 8414, or 8430 disk 
DISKET DISKET DISKET Series 90: 8413 diskette subsystem 





System 80: 8420 or 8422 diskette 
subsystem 


CONSOLE UNISCOPE 100 display termina! or 
CRT77 workstation 


SPECIAL Any user-supported input/output 

device 

WORKSTN WORKSTN WORKSTN WORKSTN SPERRY UNIVAC 3560 or 3561 
workstation 


*These devices may not be specified for an IMS action program. 


REMOTE 


SPECIAL 
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The entry in this field must be left-justified. Devices tnat are vaiia tor one mode are valid 
for every mode. For example, READO1 is valid for the OS/3 mode. 


If you have a disk file and you use a variable sector disk whose sector sizes are not 256- 
byte multiples, you may specify DISCVS in this field. If you do not, the block size will be 
increased to the next highest 256-byte multiple. 


To access a data set label diskette with RPG, specify DISKET in the device field. To 
access a format label diskette, specify DISK in this field. For instructions on how to 
prepare diskettes for information on the job control to be used with diskettes, refer to 
consolidated data management concepts and facilities, UP-9978 (current version). 


If CONSOLE is specified and the file is specified as a display file (D in column 15), the 
DSPLY operation mut be used in conjunction with this file. Note that only those 
characters in the basic UNISCOPE 100 display terminal character set will be displayed 
and that nondisplayable characters in an output record will be displayed as blanks. The 
internal representation of the nondisplayable characters remains unchanged. 


If CONSOLE is specified and the file is specified as an input file (I in column 15), this will 
allow you to enter input records via the system console. If this is done, the following 
message is displayed with the appropriate job message identification number. 


RPGII REQUESTS INPUT FOR file name 


Input records can then be entered via the system console beginning with the 
appropriate job identification number. If the first typed character is a space, the system 
assumes it is a separator character and it is not passed to the program. 


The records that are entered will be treated as any other input records. Each character 
must be typed in. The characters must be typed in as you would punch a card; that is, the 
fields of the record must be left- or right-justified as required and you must space where 
blanks are required in the record. When all of the characters in the record have been 
typed in, press the TRANSMIT key. If more characters have been typed in than are 
specified in columns 24 through 27, the excess characters are truncated. 


If you specify CONSOLE and also enter the CONSOLE=filename parameter in the 
// PARAM job control statement, the operator can enter input to an executing 
RPG Il program from a workstation in a manner that is compatible with the IBM 
System/32 and IBM System/34. Workstation prompts generated from the field name 
on the input format specifications form prompt the operator to enter the data. See 
13.16 for more information on interactive data entry. 


Except for table or array files, CTLRDR can only be specified once in a program. 


if a O605 card punch subsystem is used, the record length for a punch output file must be 
an even number. 


When you choose a workstation terminal, the nature of data is determined by screen 
formats that you create. For example, if you want to add a new employee to a payroll 
program, you call up the payroll format, which might display NAME:, followed by 20 
dots, and EMPLOYEE NUMBER.:, followed by six dots. You write the employee’s name 
and number over the dots. For details on creating formats, see the screen format 
services concepts and facilities, UP-8802 (current version). 
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5.2.17. Labels (Column 53) 


You can use this field to specify the type of labels on tape or disk files and how you want 
them processed. A tape or disk file can be unlabeled, can contain standard labels followed 
by user labels, can contain nonstandard labels, or can contain standard labels. If the file is 
unlabeled or SPECIAL is specified in columns 40 through 46, leave this field blank. 


If the file contains standard labels followed by user labels, enter an E in this field. RPG Il 
processes the standard labels and then transfers control to the external label processing 
routine you have supplied. The name of your label processing routine must be entered in 
columns 54 through 59, and you must include this routine in your program at link-edit 
time. You must supply a label processing routine if the file is an output file. If it is an input 
file and you do not want to process the user labels, you do not have to supply a label 
processing routine. 


if the file contains nonstandard labels, enter an N in this field. RPG Il immediately 
transfers control to the external label processing routine you have supplied. The name of 
your label processing routine must be entered in columns 54 through 57, and you must 
include this routine in your program at link-edit time. You must supply a label processing 
routine if the file is an output file. If it is an input file and the labels are separated from 
the data by a tape mark, you do not have to supply a label processing routine. 


If the file contains standard labels, enter an S in this field. 


This field is ignored for IMS action programs. 


5.2.18. Continuation Lines (Columns 53 through 69) 


You use these fields to indicate that the tape file defined on the preceding line is an 
ASCII file and to provide additional information about the file. 


For IBM System/3 mode or MIRAM files, these fields are also used to provide an 


additional amount of main storage for the index buffer of the indexed disk file defined 
on the preceding line. 


For workstation files, the continuation line is used to name the field that contains the 
workstation identification or to handle multiple workstations and workstation error 
processing. 


For multikey MIRAM files (both background and IMS action programs), the continuation 
line is used to specify the complete key structure of an existing or new file. 


For MIRAM file sharing, the continuation line specifies a file sharing environment for the 
file. 


For MIRAM files, the continuation line supports record control bytes. 


The entries in these fields are summarized in Table 5-6. 
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Table 5—6. Summary of Continuation Line Entries 












































Continuation Option Entry Entry ae i 
Line Indicator | (Columns 54 (Columns 60 | (Columns 66 iéa — ee n Len 
(Column 53) through 59) through 65) and 67) oumn ‘column 


ASCII 
input or output 
tape file 








ASCII 
input file 

with block 
prefix 







ASCIi Blank (Line 1) Blank Blank Blank 
BUFOFF 0-99 (Line 2) Blank Blank Blank 
IBM System/3 INDEX Blank Blank Blank 
mode or MIRAM 
disk file with 
index buffer 


ID 









Workstation fieldname 







NUM 1-99° 














SAVDS data structure 


name 


data structure 
name 


1-99 










subroutine name 


KEY 1-KEY5 starting location Blank 
or or 
D Cc 
KEY 1—-KEY5 starting location Blank Blank, 
or P, or 
D D 
ACCESS EXC,EXCR, Biank : 
SRD,SRDO, 
SADD 


* If the ID field is not used, the number may range from 1 to 255. 










Multikey 
MIRAM file 





Multikey 
MIRAM file 
action program 









MIRAM file 
sharing 









MIRAM file 
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5.2.18.1. Continuation Line Indicator (Column 53) 


You use this field to indicate whether or not this line is a continuation line. If this is not a 
continuation line, leave this field blank. 


If this is a continuation line, enter a K in this field. When you specify a continuation line, 
columns 7 through 52 must be blank, the option field (columns 54 through 59) must 
contain an entry, and the entry fields (columns 60 through 69) may require an entry. 


If you are dealing with a tape file, one or two continuation lines may be specified. 


5.2.18.2. Option (Columns 54 through 59) 


You use this field to specify ASCII tape files. For IBM System/3 mode or MIRAM files, 
this field is used to specify that an additional amount of main storage is required for the 
index buffer of an indexed file. If you are dealing with an ASCII tape input or output 
tape file, enter ASCII in this field. If an input file contains a block prefix, you must enter 
BUFOFF in this field on a second continuation line and this line must immediately follow 
the first continuation line. The second continuation line must also specify the length of 
the block prefix in the entry field (columns 60 through 75). 


If you are dealing with an indexed disk file (IBM System/3 mode only) that requires 
additional main storage for the index buffer, enter INDEX in this field and specify the 
required amount of additional main storage in the entry field (columns 60 through 65). 


If you are dealing with workstation files, you can use any or all of the following six 
options. 


a ID 
For the identification continuation line. 
es NUM 


For the maximum number of workstations that can be attached to the file at the same 
time. It is required for the SAVDS and IND options. 


# SAVDS 


For the data structure saved and restored for each workstation attached to the file. It 
requires the NUM option. 


rT] INFDS 
For the data structure that contains the identification of the error that occurred and 


the workstation operation that caused the error. It provides status and record 
information to the program. 
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= IND 


For the number of indicators saved and restored for each workstation attached to the 
file. It requires the NUM option. 


. INFSR 


For the user-written calculation subroutine that receives control when a workstation 
error occurs during a NEXT, READ, primary input, EXCPT, or normal cycle output. 


If you are dealing with multikey MIRAM files, enter KEYn, where n is a number from 1 
through 5. These entries must be in sequence, and complete, on successive source 
statements. For example, if the file has three keys, you must specify KEY1, KEY2, and 
KEY3 in that order. 


If you are dealing with MIRAM file sharing, enter ACCESS. 


If you are dealing with MIRAM files containing a record control byte, enter RCB. Once a 
file is created with a record control byte, the RCB continuation statement must always 
be specified for the file. 


5.2.18.3. Entry (Columns 60 through 65) 


You use this field to specify the length of the block prefix for ASCII tape input files. In the 
IBM System/3 mode, this field is used to specify the amount of additional main storage 
required for the index buffer of an indexed file. 


If you are dealing with an ASCII tape input file that has a block prefix (BUFOFF specified in 
columns 54 through 59), enter the length of the block prefix in this field. This entry must 
be right-justified and may range from O to 99. If the ASCII tape input file is a variable- 
blocked or variable-unblocked file, enter O or 4 in this field. 


If you are dealing with an indexed file (IBM System/3 mode or MIRAM) that requires 
additional main storage for the index buffer (INDEX specified in columns 54 through 59), 
enter the amount of main storage in this field. This entry must be right-justified and may 
range from 1 to 9. The entry represents the number of 256-byte increments of main 
storage that are required. If INDEX is used when creating the file, it must be used in 
each job that accesses it. 


When dealing with workstation files: 


= If you entered ID in columns 54 through 59, then enter the name of a 2-character 
alphanumeric field for the workstation identification continuation line. The ID field is 
updated whenever a record is read from the WORKSTN file. The ID field contains a 
number (starting from O01) that identifies the workstation. 


« If you entered NUM in columns 54 through 59, then enter the maximum number of 
workstations (right-justified) that can be attached to the file at the same time. The 
number may range from 1 to 99. If the ID field is not used, the number may range 
from 1 to 255. If you don’t specify a number, 1 is the default. If this number is 
exceeded at execution time, an error message is issued and the program 
terminates. 
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m If you entered SAVDS in columns 54 through 59, then enter the name of the data 
structure to be saved and restored for each workstation attached to the file. If you 
didn't specify the SAVDS option or if you specified 1 for the NUM option, no 
saving and restoring is done. 


s If you entered INFDS in columns 54 through 59, then enter the name of the data 
structure that contains the identification of the error that occurred and the 
workstation operation that caused the error. The information in the data structure is 
updated for each workstation operation. If you didn't specify the INFDS option, the 
information is not available to the program. 


You define the INFDS data structure on the input format specification form. Make 
sure the name on the input form matches the name you specify here. Also, on the 
input specifications form, you must enter a special reserved word (left-justified in 
columns 44 through 50) that identifies the location of self-defining subfields 
containing the status information. You must also assign field names (columns 53 
through 58) on the input form to each reserved word to reference the subfields. (See 
6.3.2.) 


a If you entered IND in columns 54 through 59, then enter the number of indicators 
to be saved and restored for each workstation attached to the file. All indicators 
from 01 up to and including the indicator you specify are swapped. The number 
may range from 1 to 99. Indicator swapping isn't done if you didn’t specify the IND 
option or if you specified 1 for NUM. 





For the SAVDS and IND options, only the copy of the indicators and data structure 
for the workstation from which the last input was read is available. The copy that 
is available changes every time there is an input operation. The current copy in the 
program is written to the save area for the workstation from which the last input 
was read. The copy in the save area for the workstation being read is then written 
to the program area. The workstation save areas are initialized with the values in 
the program areas at the time the first workstation connects. 


When a data structure contains numeric subfields that redefine a result field, the 
subfields must be initialized to numeric values before you use them in any 
calculation operations. When you use the SAVDS option, these fields must be 
initialized when each workstation connects instead of just once during the cycle. 
One way to do this is to condition the initializing statements with the indicator 
identifying the initial blank screen. 


o If you entered INFSR in columns 54 through 59, then enter the name of a user- 
written calculation subroutine that receives control when a workstation error occurs 
during a NEXT, READ, primary input, EXCPT, or a normal cycle output operation. If 
you didn't specify the INFSR option, RPG Il handles error recovery. 


Specify the INFSR subroutine on the calculations specifications form. It can perform 
any function that is normally allowed in a subroutine. Make sure the name in factor 1 
of the BEGSR operation on the calculations form matches the name you specify here. 
You can optionally specify a factor 2 entry in the ENDSR operation that indicates a 
point to which control is returned. (See 7.3.2.4.4.) 
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& If you are dealing with multikey MIRAM files, enter the starting location of the key field 
in the data record. This number must be right-justified. 


If you are dealing with MIRAM file sharing, enter one of the following file sharing 
environments (left-justified). 


a EXC 


Indicates an exclusive environment. This is the default if you didn’t specify ACCESS 
in columns 54 through 59. While you are using the file, your program can read 
from or write to it but no other program can access it. 


m EXCR 


Indicates an environment where your program can read from or write to the file but 
other programs can also read from it. 


a SRD 


Indicates an environment where your program can read from the file but other 
programs can read from or write to it. You can only specify this environment for 
input files. 


@ = SRDO 


Indicates a read-only environment. Your program and other programs can read from 
the file but no program can write to it. You can only specify this environment for 
input files. 

=m SADD 


Indicates an environment where both your programs and other programs can read 
from or write to the file. 


Table 5-7 summarizes the file sharing environment. 


Table 5—7. Summary of File Sharing Environments 


Read/write - 
Read/write Read 


Read Read/write 
Read Read 
Read/write Read/write 





& If you are dealing with MIRAM files containing a record control byte, leave this field 
blank. 
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5.2.18.4. Key Length (Columns 66 and 67) 
You use this field to specify the length of the key field for multikey MIRAM files. 


Enter from 1 to 80 for the length of the key field. 


5.2.18.5. Duplicate Record (Column 68) 
You use this field to specify that duplicate records are allowed for multikey MIRAM files. 


If you don’t want duplicate records, leave this field blank. Duplicate records will then result 
in an error. 


If you want duplicate records, enter D. 


You can't use duplicate records on the key defined as the primary key for IMS action 
programs. You must specify duplicate records in the IMS configuration. 
5.2.18.6. Change Keys (Column 69) 


You use this field to specify that keys are allowed to change during an update for MIRAM 
files. 





If you don’t want to change keys during update, leave this field blank. Then, a change of 
key will cause error processing. 


If you want to change keys during update, enter C. 


You specify the change key for IMS action programs in the configuration, not in the 
continuation line. 


You must specify a primary key for IMS action programs with multikey files by entering 
a P in column 69. The primary key must be the same as the one defined in the IMS 
configuration. You can’t use duplicates or change keys on the primary key. 


If you want to use another key besides the primary key for sequential processing, enter 


an R in column 69. You can override this specification for random processing by using 
the SETK operation. 
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5.2.19. Name of Label Exit or Name of User Device Routine (Columns 54 through 59) 


You use this field to specify the name of your external label processing routine if you have 
specified E or N in column 53, or to specify the name of your external device handling 
routine if you specified SPECIAL in columns 40 through 46. 


The name you enter in this field can range from one to six alphanumeric or special 
characters. This entry must be left-justified. The first character must be alphabetic; the 
rest of the characters may be alphabetic or numeric. 


lf SPECIAL is specified in columns 40 through 46, this entry must specify the name of 
your external device handling routine that provides all the required input/output functions 
for the nonstandard input/output devices. 


lf E or N is specified in column 53, this entry must specify the name of your external label 
processing routine that provides all the required label processing functions. In either case, 
you must include the external routine in your program at link-edit time. 


During execution time, the RPG I! input/output interface routine will access the external 
user device handling routine. The function of the interface is to determine the required 
operation and pass pertinent information to the user routine. The information is supplied 
through five registers known as linkage registers. The role of each linkage register is as 
follows: 
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& Register Contents 

@) Type of operation to be performed: 

O = read a record 

4 = write a record 

8 = close the file 
1 Address of input/output buffer area in the RPG Il program 
13 Address of the register save area in the RPG II program 
14 Address of the location in the calling program (object program) to which 


control should return after the user routine is executed 


15 Address of entry point in your device handling routine. Return code from 
your device handling routine: 


O = normal 
4 = EOF for input or terminate for output 
Other code = terminate the job 


It is the responsibility of your device handling routine to open the device the first time it is 


& called. 


5.2.20. Number of Bytes in Main Storage to Be Reserved for Index 
(Columns 60 through 65) 


You use this field to specify the number of bytes in main storage you want reserved for 
the top index of an ISAM file. For IRAM or MIRAM files, use the INDEX continuation 
statement. By using this field, you minimize or eliminate the hardware search of the top 
index during random retrieval or addition of records to an indexed sequential file, thus 
increasing your processing speed. 


If you do not want to reserve main storage space for the index or if the file is an 
output, input, or update file to be processed sequentially, leave this field blank. 


If you want to reserve main storage space for the index, enter the number of bytes in 
this field. The minimum number is 256, and the maximum is 32,767. The actual number 
of bytes used by a given indexed sequential file for the top index is shown in the 
volume table of contents (VTOC) listing for that file. This entry must be right-justified; 
leading zeros may be omitted. 


For IMS action programs, this field is ignored. 
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5.2.21. File Addition/Unordered Load (Column 66) & 


You use this field to indicate that new records are being added to an existing sequential 
output file or indexed input, output, or update file. The new records will be added to the 
file in their proper key sequence in relation to the records that the file already contains. In 
the IBM System/3 mode this field is also used to indicate that records in unordered key 
sequence are to be loaded and an indexed file is to be created with the records in their 
proper key sequence. The entry in this field is used in conjunction with the entries in the 
file type field (column 15) and columns 16 through 18 of the output format specifications 
form. These entries are summarized in Table 5-8. If you are not going to add new records 
to the file or load records in unordered key sequence (IBM System/3 mode), leave this 
field blank. 


If you are going to add new records to the file, enter an A in this field. You should specify 
the addition of new records to an existing file only when absolutely necessary, because 
this function requires more main storage than any other indexed file function. 


lf you want to load records in unordered key sequence (IBM System/3 mode only) and 
create an indexed file, enter a U in this field. This field is valid only for IRAM files. 


When you use this field, you must leave the cylinder overflow space percentage (X10) field 
(column 67) blank. 





Table 5—8. Summary of File Addition Entries 










File Description Specifications 


Form 
Form, Columns 


(File Type) (File Addition) 
Column 15 Column 66 16 Through 18 
| (input) Blank No file addition The existing file is processed without adding new 

entry records or updating existing records. 


om . 


U (update) 


U (update) 






Output Format 
Specifications 







Function Performed 








New records are added to the existing file without 
updating the existing records. 















A new file is created or an existing sequential file 
is extended. The extend option must be specified at 
job control time. 


No file addition 
entry 









New records are added to the existing indexed file or 
an existing sequential file is extended. The job control 
extend option is not used. RPG II sets the extend 
option. 









IBM System/3 mode, IRAM file. Load records in 
unordered key sequence and create indexed file. 


No file addition 
entry 


No file addition 
entry 












The existing file is processed and updated without 
adding new records. 






The existing file is processed, existing records are 
updated, and new records are added. 





U 
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Examples 1 and 2 demonstrate the specifications necessary for adding to and deleting 
from an indexed file. 


Example 1: 


FILE DESCRIPTION SPECIFICATIONS 









FILE TYPE HALE POUL SoING MODE 







EXTENSION OR 
























FILE DESIGNATION KEY OH HECORD LINE COUNTER NuMuen 
ADOHESS FIELD LENGTH cont NAME OF aN aan 
SEQUENCE HEGCORD ADDEESS 1 ¥PE LABEL EXIT STORAGE 






OR NAME OF 
USER DEVICE 
OVERFLOW ROUTINE 

INDIUATOH DEVICE 





FILE FORMAT 





FIL bk ORGANIZATION TO BE RESERVED 
FOR 









A/U OR BLANK 


\ 


INDEX 




















BLOUK 
LENGTH 


RECORD 
LENGTH 





KEY RIELO 
STARTING 
LOCATION 


















STACKER SELECT! 
F FETCH OVERFLOW 








POSITION, 
IN 









CODES 
pepe eromeceieen sc aan al COMMAS 
NEGATIVE VALUE INDICATION |  nsenteo 
£ 
END — me 
[xo] 


CR 
A 
8 
€ 
oumor £ 
HeCORD 





EDIT CODES 
B BLANK AFTER 


CONSTANT OR EDIT WORD, 






































2. Kk. A, Ff laa paoaeat daaaanta daa laauaaaoain 
3 KEN i iio peta a ae a ae a ee 
& A. DAT A, | BO pe an Sie aya ed i 
Line Number Explanation 
1 The A in column 66 indicates that new records will be added to the 
file. 
2 through 4 Output specifications needed for the addition. Note columns 16 


through 18 on line 2 contain the word ADD. 


NOTE: 


A sequential file may be extended by adding records to the end of the file in a similar 
manner. In this case, however, there would be no index information in columns 29 
through 32 and columns 35 through 38. 
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Example 2: 


FILE DESCRIPTION SPECIFICATIONS 


FILE TYPE FILE PROCESSING MODE EXTENSION OR 
FILE DESIGNATION KEY OR RECORD LINE COUNTER 
ADDRESS FIELD LENGTH CODE 
SEQUENCE RECORD ADORESS TYPE 
FILE FORMAT FILE ORGANIZATION 


OVERFLOW 


INDICATOR DEVICE 
BLOCK RECORO 


LENGTH LENGTH 


NOT USED 
VOIC/UID 
P/S/R/C/D/T 
W/T/DIX 12 








CONDITIONS CALCULATION 


INDICATORS RESULT FIELD 
FACTOR 1 OPERATION. FACTOR 2 NAME 
un 27] 28 32]33 4243 48 
| 4 Fre ae ne eee 


= HALF ADJUST 


= 
& 
x 





mr) 
2 
9 
e 
g 
ro} 
a 
4 
ft 
2 
5 
wb 
a 
52 


z 
& 


[fe 
| fs 
a N*NOT 


| |e 
ae) 


E 
Sik CHA 


STACKER SELECT/ 


F=FETCH OVERFLOW DATA FORMAT 


PrBILIR NEGATIVE VALUE INDICATION 
None [ca [| 


FIELD 
ENO 








NAME 
POSITION 


IN 





BEFORE 
AFTER 


OUTPUT 
RECORD 


8 EDIT CODES 
B BLANK AFTER 


i. 
fo} 
2 a 2 *AUTO 
z 2 
23 | 24] 25} 26 | 27 | 28] 29} 30] 31}32 37 
O}/ 


Line Number Explanation 








1 Records will be deleted from an IMS action program. The U in column 
15 indicates that the file is an update file. (Deleted records must be 


read first before they are deleted.) 


2 The CHAIN operation reads records for possible deletions. 


3 The last record read from the file MASTER is deleted. Note columns 
16 through 18 contain DEL. 
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5.2.22. Cylinder Overflow Space Percentage (X10) (Column 67) 
You use this field only when you initially create an indexed file that you intend to add new 


records to at a later time. It specifies the percentage of each cylinder that is reserved for 
adding new records to the file. 


If you are not creating an indexed file that new records are to be added to, leave this field 
blank. 


If you are creating an indexed file that new records are to be added to, enter 1 through 8 
to indicate the percentage, in increments of 10 to each cylinder that is reserved for adding 
new records. When you use this field, the file addition field (column 66) must be blank. 


This field is not used for IRAM files (IBM System/3 mode). 


This field is ignored for IMS action programs. 
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5.2.23. Number of Extents (Columns 68 and 69) 


You use this field to specify whether the disk file you are creating or processing in the IBM 
System/3 mode will have all volumes of the file online (all volumes are mounted), or if it 
will have some of the volumes offline (volumes are mounted one at a time). 


If you are creating or processing a single volume file or a multivolume with all volumes 
online, leave this field blank or enter a 1. 


If you are creating or processing a multivolume file with some of the volumes offline, enter 
a number ranging from 2 through 50. The entry must be right-justified. 


The way a file is created governs the way it is processed; that is, a multivolume file 
created with all volumes online must be processed with all volumes online and a file 
created with some of the volumes offline must be processed with only one volume online 
at a time. 

Files created or processed by relative record number must have all volumes online. Files 
processed consecutively, indexed sequentially, or randomly by key may be created with all 
volumes online or with one volume online at a time. 


This field is ignored for IMS action programs. 
5.2.24. Tape Rewind Option (Column 70) 
You use this field to specify whether a magnetic tape file is to be rewound at initialization 


or termination time. The entries for this field are summarized in Table 5-9. 


Table 5—9. Summary of Tape Rewind Options 


Activity 


Rewind without lock Rewind without lock 


U Rewind with lock (Operator Rewind with lock (Operator 
intervention will be required intervention will be required 
before the file on the tape before the file on the tape 
drive can be accessed again.) drive can be accessed again.) 





This field is ignored for IMS action programs. 
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5.2.25. File Conditioners (Columns 71 and 72) 


You use this field to specify an external indicator that controls the opening of an input, 
output, update, or combined file. When you specify an external indicator for a file, the 
indicator must be set on prior to program execution by a //ASETAUPSI job control 
statement. If this is not done, the file cannot be opened. !f you do not want to control the 
opening of the file with an external indicator, leave this field blank. 


If you do want to control the opening of the file, enter U1 through U8 in this field. We will 
cover the use of these external indicators when we discuss how you use indicators in your 
program. 


This field is ignored for IMS action programs. 


5.3. EXAMPLES OF ENTRIES ON THE FILE DESCRIPTION SPECIFICATIONS 
FORM 


Figure 5-2 shows you examples of typical entries on the file description specifications 
form. 


Explanation of entries in Figure 5-2: 
Line Number Explanation 


010 The file named INPUT is the primary input file (I in column 15 and P in 
column 16). It is in fixed format (F in column 19). Each record is 80 
characters in length (80 in columns 24 through 27). The matching fields in 
the file are in ascending sequence (A in column 18). All records in the file 
must be processed (E in column 17). Dual input/output areas are used in 
processing this file (2 in column 32). The file is referenced on the file 
extension specifications form as a chaining file (E in column 39). The file is 
read from a card reader (READER in columns 40 through 46). 


020 The file named MASTER is a chained input file (! in column 15 and C in 
column 16). It is a fixed-blocked format (F in column 19 and 160 in columns 
20 through 23). Each record is 80 characters in length (80 in columns 24 
through 27). The records are retrieved by alphanumeric keys (A in column 
31). The file is an indexed sequential file (I in column 32). The key field in 
the record is 8 characters in length and begins in position 1 of the record (8 
in columns 29 and 30 and 1 in columns 35 through 38). The file contains 
standard labels (S in column 53). The file is read from a disk (DISC in 
columns 40 through 46). 


030 The file named RAF is an input record address file (| in column 15 and R 
in column 16). It is in fixed format (F in column 19). Each record is 80 
characters in length (80 in columns 24 through 27). The length of each 
record address field is 8 characters (8 in columns 29 and 30). The file is 
further described on the file extension specifications form (E in column 
39). The file is read from a card reader (READER in columns 40 through 
46). 
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Line Number Explanation 


040 


050 


060 


070 


080 


090 


The file named UPDATE is an update file that is used for input and is 
updated after each record is processed (U in column 15). It is a secondary 
file (S in column 16). The file is in fixed-blocked format (F in column 19 and 
160 in columns 20 through 23). Each record is 40 characters in length (40 
in columns 24 through 27). The file will be processed randomly via a record 
address file (R in column 28). The key field is 8 characters in length and 
begins in position 1 of the record (8 in columns 29 and 30 and 1 in columns 
35 through 38). The keys are alphanumeric (A in column 31). The file is an 
indexed sequential file (I in column 32). New records may be added within 
the file or at the end of the file (A in column 66). One thousand bytes are 
reserved in main storage for the indexed sequential cylinder index (1000 in 
columns 60 through 65). The file is contained on a disk (DISC in columns 40 
through 46). 


The file named TABLE is an input table or array file (I in column 15 and T 
in column 16). It is in fixed format (F in column 19). Each record is 40 
characters in length (40 in columns 24 through 27). The file is further 
described on the file extension specifications form (E in column 39). The 
file is read from a card reader (READER in columns 40 through 46). 


The file named OUTBLE is an output file (O in column 15). The file is in 
fixed-blocked format (F in column 19 and 100 in columns 20 through 23). 
Each record is 50 characters in length (50 in columns 24 through 27). 
Standard labels are used (S in column 53). The file is to be written on disk 
(DISC in columns 40 through 46). 


The file named LINECNT is an output file (O in column 15). The file is in 
variable format (V in column 19). The maximum record is 60 characters in 
length (60 in columns 24 through 27). The file is further described on the 
line counter specifications form (L in column 39). Standard labels are used 
(S in column 53). The file is written on tape (TAPE in columns 40 through 
46). The tape is not rewound at either initialization or termination (N in 
column 70). 


The file named COMB is a combined file (C in column 15), It is a secondary 
input file (S in column 16). The file is in fixed-unblocked format (F in column 
19 and columns 20 through 23 are left blank). Each record is 80 characters 
in length (80 in columns 24 through 27). As a combined file, information is 
read from the input cards and, during processing, additional information is 
punched onto the input cards. As a result, a card-read-punch device is 
required (CRP in columns 40 through 46). 


The file named PRINT is an output file (O in column 15). The file is in fixed- 
unblocked format (F in column 19 and columns 20 through 23 are left 
blank). Each record is 120 characters in length (120 in columns 24 through 
27). OF is used as the overflow indicator for this file (OF in columns 33 and 
34). The file is written on printer (PRINTER in columns 40 through 46). 
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Line Number Explanation 


100 The file named DEVICE is a secondary input file (I in column 15 and §S in 
column 16). The file is in fixed-unblocked format (F in column 19 and 
columns 20 through 23 are left blank). The file is read from a nonstandard 
peripheral device for which the user has supplied an input/output program 
(SPECIAL in columns 40 through 46). The user-supplied input/output 
program is named IOCTRL (IOCTRL in columns 54 through 59). The file is 
used only when the external indicator U1 is on (U1 in columns 71 and 72). 


110 The file named DSPLAY is a display file (D in column 15). The file is in 
fixed-unblocked format (F in column 19 and columns 20 through 23 are left 
blank). Each record is 40 characters in length (40 in columns 24 through 
27). The file is displayed on a console device (CONSOLE in columns 40 
through 46). 


120 The file named TAPE is the primary input file (I in column 15 and P in 
column 16). The file is in variable-unblocked format (V in column 19 and 
200 in columns 20 through 23). The maximum record size is 200 characters 
in length (200 in columns 24 through 27). Dual input/output areas are used 
in processing this file (2 in column 32). The file is read from a tape (TAPE in 
columns 40 through 46). The tape is rewound at both initialization and 
termination (U in column 70). 


130 The file named DEMAND is an input demand file (I in column 15 and D in 
column 16). The file is in fixed format (F in column 19). Each record is 80 
characters in length (80 in columns 24 through 27). The file is read from a 
card reader (READER in columns 40 through 46). 


140 The file named DIRECT is a secondary input file (Il in column 15 and S in 
column 16). The file is in fixed-unblocked format (F in column 19 and 
columns 20 through 23 are left blank). Each record is 80 characters in 
length (80 in columns 24 through 27). The file is a direct file (D in column 
32). The file is processed randomly (R in column 28) and the records are 
retrieved by relative record numbers (R in column 37). The file is read from a 
disk (DISC in columns 40 through 46). 


150 The file named TAG is a tag file (Il in column 15 and R in column 16). The 
file is in fixed-blocked format (F in column 19 and 80 in columns 20 through 
23). Each record is 10 characters in length (10 in columns 24 through 27). 
The length of the key field is 10 characters (10 in columns 29 and 30). The 
file is a tag (ADDROUT) file (T in column 32). The file is further defined on 
the file extension specifications form (E in column 39). The file is read from 
a disk (DISC in columns 40 through 46). 
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6. Input Format Specifications Form 


6.1. GENERAL DESCRIPTION 


You must have an input format specifications form (Figure 6-1) in all programs. This form 
describes the data records in each input file. 


As you can see, the form is divided into two areas: record identification and field 
description. 


You use the record identification area to: 

w Identify the input files 

= Identify the different types of records in each file 

= Indicate if a specific sequence of data records is required in a file 

= Indicate if one or more of a given type of record can appear in a file 

= Indicate if a specific type of record must be present in a file 

After you have made the record identification entries for a file, you then use the field 
description area to describe the individual fields in each type of data record. When you 
describe a field, you specify the data format of the field, the location and length, the 
number of decimal positions if the field is a numeric field, the field name, whether the 
field is a control field or a matching or chaining field, when the field is used by the 
program, and the indicators that are on if the contents of a numeric field meet certain 
conditions. 


6.2. RECORD IDENTIFICATION ENTRIES (COLUMNS 7 THROUGH 42) 


In the following subsections you'll see what each record identification field on the form is 
used for and how the entries in these fields affect your program. 


NOTE: 


When using a workstation, specify a blank record as the first record on the input format 
specifications form. 
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6.2.1. File Name (Columns 7 through 13) 


You use this field to identify the input file that contains the data records you want to 
describe. The file that is being described can only be an input, update, or combined file. A 
file name must be entered in this field on the first record identification line for each file 
that you describe. The file name must be the same as the name that you specified for this 
file in columns 7 through 13 on the file description specifications form. 


6.2.2. Sequence (Columns 15 and 16) 


You use this field to indicate whether or not a specific sequence of data records is 
required within a given file. An entry is required in this field on the first specification line 
for each record type you describe for a file. The entries in this field are used in conjunction 
with the number field (column 17) and the optional field (column 18). These entries are 
summarized in Table 6-1. 


If a record type does not have to be in any specific sequence in relation to the rest of the 
record types in the file, enter AA through ZZ in this field. 


If a record type must be in a specific sequence in relation to the rest of the record types in 
the file, enter O01 through 99 in this field. If more than one record type must be in a 
specific sequence, you must enter 01 in this field for the first record type in the sequence. 
You can use any other 2-digit combination for other record types in the sequence; 
however, these entries must be in ascending order. 


If you use more than one record identification entry for a record type (AND or OR lines 
indicated by AND or OR in columns 14 through 16), you must place the sequence entry on 
the first line of the record identification group. 


If you use alphabetic (AA through ZZ) or numeric (01 through 99) entries for different 
record types in the same file, the record types with alphabetic entries must precede the 
record types with numeric entries on the form. 


When a record is out of sequence, the HO indicator is set on, and the error code C 
(hexadecimal C3) is placed in the *ERROR field (a field that RPG II stores error information 
in). The HO indicator remains on until the completion of the current operating cycle. If it is 
not set off before the next cycle begins, the program goes through end-of-job processing 
and terminates. If you don’t want your program to terminate when this type of error 
occurs, you can prevent it by including a routine on the calculation specifications form that 
tests the *ERROR field for error condition C when the HO indicator is set on and sets the 
HO indicator off when the error code is present. 


6.2.3. Number (Column 17) 


You use this field to specify whether one or more records of a given type may appear in a 
file. The entries in this field are used in conjunction with the entries in the sequence field 
(columns 15 and 16) and the optional field (column 18). These entries are summarized in 
Table 6-1. 
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lf the entry in the sequence field is alphabetic, leave this field blank. & 





If the entry in the sequence field is numeric, enter a 1 if only one record of this type may 
appear in the file before another record type is encountered or enter an N if one or more 
records of this type may appear together in the file. 


6.2.4. Optional (Column 18) 

You use this field to specify whether a specific type of record must be present in the file. 
The entries in this field are used in conjunction with the entries in the sequence field 
(columns 15 and 16) and the number field (column 17). These entries are summarized in 


Table 6-1. 


If this record type must be present in the file or the entry in the sequence field is 
alphabetic, leave this field blank. 


If this record type may or may not be present in the file, enter an O in this field. 


Table 6—1. Summary of Sequence, Number, and Optional Field Entries 


Entries 


Sequence Number Optional Interpretation 
(Columns 15—16) (Column 17) (Column 18) 
AA—ZZ Blank Blank The record type does not have to be in any specific sequence 
in relation to the rest of the record types in the file. 
Blank ’ Only one record of this type may appear in the file before 
another type of record is encountered. 


This type of record is optional; it may or may not appear in 
the file. If it does appear, only one record of this type 

may appear in the file before another type of record is 
encountered. 





This type of record is optional, it may or may not appear 
in the file. If this type of record appears in the file one 
or more records of this type may appear together in the file. 





6.2.5. Record Identifying Indicator (Columns 19 and 20) 


You use this field to associate an indicator with the record type defined on this line. Each 
record type that you define requires an entry in this field. A record identifying indicator is 
not always required in IBM System/3 mode. It is only necessary if you are concerned 
about different record types. This field is used in conjunction with the record identification 
codes (columns 21 through 41). When a record is selected for processing that satisfies the 
identification requirements for a particular record type, the record identifying indicator 
associated with the record type is set on. This indicator can be used to condition when 
calculation and output operations are performed in your program. If a record identifying 
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indicator is set on, it remains on until you set it off or until the end of the cycle, when 
RPG II sets it off. You can specify a general indicator (01 through 99), a halt indicator (H1 
through H9), or a control level indicator (L1 through L9 or LR) as the record identifying 
indicator for a record type. The general indicators (01 through 99) are the ones that are 
generally used in this field. The setting on of one does not affect the setting of any of the 
others. These indicators can appear in any order; however, you must specify a unique 
indicator for each record for each record type. Except for chaining and chained files, only 
one general indicator is on at one time. 


When processing for a workstation terminal file, each screen format or record, including 
the first screen format which is always a blank dummy, should be identified on the input 
specification. 


You can also use the halt indicators (H1 through HQ) or the control level indicators (L1 
through L9, or LR). We do not recommend that you use these indicators as record 
identifying indicators because, unless you use extreme care, the results are 
unpredictable. When using data structures, enter DS in this field. 


When you use input format specifications for data structures, they must follow all other 
input format specifications. 


6.2.5.1. Look-Ahead Feature 


lf you want to use the RPG Il look-ahead feature, enter ** in this field to indicate that the 
associated data fields are look-ahead fields. The look-ahead feature allows you to look at 
information in the next record available for processing. You can look at the file that is 
currently selected for processing, as well as other files that are present but not selected 
for processing during this cycle. This feature is usually used with the FORCE operation to 
override normal file selection in multifile processing. The entry ** cannot be specified for 
AND or OR lines, chained files, demand files, files that require sequence checking (a 
numeric entry in columns 15 and 16), or workstation files. 


6.2.5.2. Spread Card Feature 


If you want to use the RPG II spread card feature, enter TR in this field to indicate that the 
associated fields are contained on spread cards. The spread card feature allows you to 
reduce the number of input cards, used with an input or combined file on a card device, by 
placing more than one detail record on a single punched card called a spread card. A 
spread card consists of a header portion followed by as many trailer portions (detail 
records) as are desired (within the space of a single card). Each trailer portion can contain 
several fields, but all trailer portions must contain the same fields in the same order. A 
trailer portion cannot be split between two spread cards. 


This feature may not be used in IMS action programs. 
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Figure 6-2 illustrates how the number of input cards can be reduced by using spread 
cards. As you can see, the original file consists of warehouse identification records 
followed by individual transaction records. The spread card file shows how the number 
cards can be reduced by using the warehouse identification records as header portions 
and the transaction records as the trailer portions. 


ITEM 
NO. QTy 
1 5'6 1011 15 
ITEM OTY 
NO. Third 
1 56 10°11 15 Warehouse 


WAREHOUSE ID 


1 15 
ITEM 
NO. aTy 
1 56 10°11 15 
ITEM QTY 
NO. Second 
1 56 10°11 15 Warehouse 


WAREHOUSE ID 


{TEM 


QTy 
NO. 
1 56 10°11 15 
ITEM QTY 
NO. 
1 56 10°11 15 
{TEM 
TY 
NO. 2 First 
1 5'6 1011 15 Warehouse 


WAREHOUSE ID 





a. Original file 


Figure 6—2. Spread Card Example (Part 1 of 2) 
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ITEM ITEM 
Y 
WAREHOUSE ID NO. QTY NO. QT 
1 15116 20121 25126 30/31 35136 40/41 45146 60 Third 
Warehouse 
ITEM ITEM 
QTY 
WAREHOUSE ID NO. QTY NO. 
4 15116 20121 25126 30/31 35136 40/41 45146 60 Second 


Warehouse 


WAREHOUSE ID 


First 
Warehouse 


Header Portion Trailer Portion 1 Trailer Portion 2 Trailer Portion 3 





b. Spread card file 


Figure 6—2. Spread Card Example (Part 2 of 2) 


During processing, the header portion of a spread card and one trailer portion are 
processed as one logical record in each program cycle; that is, the header portion and 
trailer portion are processed during one program cycle, the header portion and trailer 
portion 2 are processed in the next cycle, and so on. 


When you use spread card records, the record identification codes must be in the header 
portion and N must be specified in column 17 (on the first record identification line) if 
sequence checking is specified (a numeric entry in columns 15 and 16). The header 
portion fields must be described first. These fields may be specified as control level fields 
(L1 through L9), input chaining fields (C1 through C9), or matching fields (M1 through 
M9). After you have described the header portion fields, you describe the trailer portion 
fields. You do this by first entering TR in columns 19 and 20 and the line immediately 
following the last line of the header portion field descriptions and then specifying the 
trailer portion fields on the succeeding lines. The first and last positions of the trailer 
portion must be defined and referenced. The trailer portion fields may be specified as input 
chaining fields (C1 through C9) but may not be specified as control level or matching 
fields. Since all trailer portion fields are the same and are the same order, only one set of 
field descriptions is required. Figure 6-3 shows an example of how to specify spread 
cards. 
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6.2.6. Record Identification Codes (Columns 21 through 41) 


You use this area to specify the codes that identify a particular record type. The fields in 
this area allow you to enter from one to three record identification codes per line. If you 
need additional record identification codes, you can specify them by using one or more 
AND or OR lines. If only one record type is present in the file, entries are not required in 
these fields; however, you must make an entry in the sequence field (columns 15 and 16) 
and the record identifying indicator field (columns 19 and 20). 


As you can see, there are three groups of record identification code fields on each line of 
the form, and each group contains the same four fields: 


= Position 
Columns 21 through 24, 28 through 31, and 35 through 38 
=» N=NOT 
Columns 25, 32, and 39 
a C/Z/D (character, zone, digit) 
Columns 26, 33, and 40 
= Character 


Columns 27, 34, and 41 
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The groups of record identification code fields do not have to be used in sequence. For 
example, entries can be made in columns 35 through 38 without making entries in 
columns 21 through 27 or 28 through 34. If more than one group is used, the data record 
is checked for the identifying codes in the order that you specify them. Checking ends 
when conditions are met that set on a record identifying indicator. If the conditions are not 
met for any of the record types you have specified, the HO indicator is set on and the error 
code A (hexadecimal C1) is placed in the *ERROR field. The HO indicator remains on until 
the completion of the current operating cycle. If it is not set off before the next cycle 
begins, the program goes through end-of-job processing and terminates. This type of error 
can be provided for in one of two ways. The first way consists of specifying a record 
identifying indicator for undefined record types on the input format specifications form 
immediately after the last defined record type. This allows the identification code checking 
process to end normally when an undefined record type is encountered. If the record does 
not meet the requirements for any of the defined record types, it will meet the 
requirements for undefined record types. Figure 6-4 shows an example of how you 
provide for undefined record types on the input format specifications form. 


Three record types are defined in Figure 6-4 on lines 010 through O50. If a record is read 
that meets the requirements on any of these lines, the associated record identifying 
indicator is set on. If a record is read that does not meet the requirements for the defined 
record types on lines 010 through O50, it is an undefined record type, and it will set on 
record identifying indicator 04. 


The second way you can provide for undefined record types is to include a routine on the 
calculation specifications form that tests the *ERROR field for error condition A when the 
HO indicator is set on and, if present, it sets off the HO indicator. 
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Figure 6—4. Providing for Undefined Record Types 
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6.2.6.1. Position (Columns 21 through 24, 28 through 31, and 35 through 38) 


You use this field to specify the position in the data record that contains the record 
identification code. For card files, you enter the card column that contains the record 
identification code. For tape and disk files you enter the character position (byte). This 
entry can range from 0001 through 9999. The entry must be right-justified; leading zeros 
may be omitted. 


6.2.6.2. N=NOT (Columns 25, 32, and 39) 


You use this field to specify whether or not the record identification code defined by the 
C/Z/D and character fields (columns 26 and 27, 33 and 34, or 40 and 41) must be 
present in order to set the record identifying indicator on. 


If the record identification code must be present, leave this field blank. 


If the record identification code must not be present, enter an N in this field. 


6.2.6.3. C/Z/D - Characters, Zone, Digit (Columns 26, 33, and 40) 


You use this field to specify what part of the character in the character field (columns 27, 
34, or 41) is checked for a record identification code. You can specify that you want the 
entire character checked, the zone portion only, or the digit portion only. 


If you want the entire character checked, enter a C in this field. If you make this entry, the 
entire eight bits of the character position are checked. Only the presence of the specified 
character will satisfy the condition. 


If you want to check the zone portion of the character (the leftmost four bits), enter a Z in 
this field. Any character that has the same zone portion as the specified character will 
satisfy the condition except in those cases where &, - (minus), or blank is the specified 
character. In these cases, RPG Il interprets their presence as shown in Table 6-2. The 
interpretation in Table 6-2 is made to provide compatibility with Hollerith code. 


Table 6—2. Interpretation of & —, and Blank Characters 


C/2Z/D Character Position in Data Record 
(Column 26) (Column 27) that Satisfies Condition 
Pe | ae wromencernen noo pee | 


J—R, — (minus), or any character with an 1101, (X‘D’) zone 










Character in Specified 







O—9, blank, or any character with an 1111, (X’F’} zone 
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If you want to check the digit portion of the character, enter a D in this field. If you make 
this entry, only the digit portion of the character position (the rightmost four bits) is 
checked. Any character that has the same digit portion as the specified character will 
satisfy the condition. For example, if B is the specified character, B, K, S, 2, or any 
character with a 0010, (binary 2) digit portion will satisfy the condition. 


6.2.6.4. Character (Columns 27, 34, and 41) 


You use this field to specify the character you want compared to the character contained 
in a particular position in an input record. You can enter any EBCDIC character, including 
a blank. The comparison depends upon the entry you made in the C/Z/D field (columns 
26, 33, and 40). 


If you specify more than one record type for a file, the record identification codes for each 
record type should be different so that it will be impossible for an input record to satisfy 
the condition for more than one record type. 


6.2.7. Stacker Select (Column 42) 


You use this field to specify the stacker that you want the cards piaced in when you use a 
card device that has more than one stacker. 


The 0604 card punch subsystem is the only subsystem that you can specify a stacker 
selection for in your program. 


lf you are using the 0604 card punch subsystem and you want the cards placed in the 
normal stacker, leave this field blank. lf you want the cards placed in the alternate stacker, 
enter 2 through n in this field. 


If you are using an O605 card punch subsystem, or 0716 card reader subsystem, or an 
0717 card reader subsystem, you must leave this field blank because you cannot specify 
stacker selection for these subsystems. 


If you use stacker selection and you have AND lines for a record type, the stacker selection 
entry need only be made once. If you have OR lines for a record type, you must make the 
stacker selection entry on each line in the OR relationship. 


This field is ignored for IMS action programs. 
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6.2.8. AND/OR Relationship (Columns 14 through 16) 


You use this field to establish an AND or an OR relationship. You use an AND relationship 
when more than three record identification codes are required to identify a record type and 
an OR relationship when you need to identify two or more record types that have common 
data fields. 


You establish an AND relationship by placing the first three record identification codes for 
the record type on the first line and the additional codes on succeeding lines, with an AND 
entered in columns 14 through 16 on each additional line that is used. The number field 
(column 17), optional field (column 18), record identifying indicator (columns 19 and 20), 
and the stacker select field (column 42) must be left blank on AND lines. You establish an 
OR relationship by placing OR in columns 14 and 15. The record identifying indicator for 
the additional record type that has common data fields is placed in columns 19 and 20, 
and the record identification codes in columns 21 through 41 on the next line after the 
first group of record identification lines for the common data fields. If additional record 
types must be defined for the common data fields, these can be placed on succeeding OR 
lines. If you do not specify a record identifying indicator or an OR line and the conditions 
on this line are satisfied, the record identifying indicator on the line immediately above is 
set on. The sequence field (column 16), number field (column 17), and the optional field 
(column 18) must be left blank on OR lines. The stacker select field (column 42), however, 
may be used on OR lines. 


6.3. FIELD DESCRIPTION ENTRIES (COLUMNS 43 THROUGH 70) 


In the following subsections you'll see what each field description field on the form is used 
for and how the entries in these fields affect your program. The field description entries for 
a given record type are always written on the lines immediately following the record 
identification lines. For example, if lines 010, 020, and 030 contain the record identification 
entries for a given record type, you would write the first field description entry for this 
record type on line 040, the second on line 050, and so on. Columns 7 through 42 on a field 
description line must be left blank. 


6.3.1. Data Format (Column 43) 

You use this field to specify the data format of the input record field you are describing on 
this line. An input record field can be in alphanumeric format, unpacked numeric format, 
binary format, or packed decimal format, or it can be a numeric field that is preceded or 


followed by a plus or minus sign. 


If the input record field is in alphanumeric or unpacked numeric format, leave this field 
blank. 


If the input record field is in binary format, enter a B in this field. 


lf the input record field is in packed decimal format, enter a P in this field. 
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if the input record field is a numeric field preceded by a plus or minus sign, enter an L in 
this field. 


if the input record field is a numeric field followed by a plus or minus sign, enter an R in 
this field. 


6.3.2. Field Location (Columns 44 through 51) 


You use this field to specify the location and length of the input record field you are 
describing on this line. The starting position is specified in the FROM area and the ending 
position in the TO area. For workstation terminal fields, these values are the locations on 
the input record, not on the screen. The length of the field is the number of character 
positions (bytes) the field occupies within the overall area. The maximum field length for 
numeric fields is 8 bytes if the field is packed and 15 bytes if it is unpacked. The maximum 
length for alphanumeric fields is 256 bytes. These entries must be right-justified; leading 
zeros may be omitted. 


If L or R is specified in the data format field (column 43), the entries in the FROM and TO 
areas must allow for the preceding or following sign. This means that if the data in a 
numeric field occupies five character positions and L or R is specified, the field actually 
occupies six character positions - five positions for data and one for the sign. For example, 
assume that a numeric field occupies character positions 9 through 13 and L is specified. 
You would have to specify that this field occupies character positions 8 through 13 to 
allow for the preceding sign. Similarly, if you specified R for the same field, you would 
specify that this field occupies character positions 9 through 14 to allow for the following 
sign. 


lf B (binary) is specified in data format field, the entries in the FROM and TO areas can 
only indicate a 2- or 4-character position field because a binary format field must be either 
two or four bytes in length. The maximum decimal value allowed in a 2-byte field is 9999, 
and the maximum for a 4-byte field is 999999999. If the decimal value in the binary field 
will not exceed 9999, specify a 2-byte field. If the maximum value will range between 
10000 and 999999999, specify a 4-byte field. 


If you are dealing with workstation files and entered INFDS in columns 54 through 59 of 
the file description specifications form, you specify one of the following words that identify 
the location of self-defining subfields. (These words must be left-justified in columns 44 
through 50.) 


gs *STATUS 


Identifies the 5-digit numeric subfield containing a code that identifies the error { 
condition. The format of the field is 012nn, where nn is the error code from screen 
format services and corresponds to the screen format error message number 
(SFnn; see UP-8076). 


= *OPCODE t 
Identifies the 5-character alphanumeric subfield containing a value that indicates 


which workstation operation was executing when the error occurred. The value 
READ, NEXT, or WRITE is placed in *OPCODE. j= 
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= *RECORD 





Identifies the 8-character alphanumeric subfield containing the format name when 
the *OPCODE subfield contains the value WRITE or containing blanks when the 
*OPCODE subfield doesn’t contain the value WRITE. 


= *SIZE 


Identifies the 4-digit numeric subfield containing the character size of the display 
screen (1920 or 0960). 


ws *MODE 


Identifies a 2-digit numeric field that always contains the value zero. This word is 
provided so that you can compile an IBM System/34 program without getting an 
error. 


mw *INP 


Identifies a 2-digit numeric field that always contains the value zero. This word is 
provided so that you can compile an IBM System/34 program without getting an 
error. 


a *OUT 





Identifies a 2-digit numeric field that always contains the value zero. This word is 
provided so that you can compile an IBM System/34 program without getting an 
error. 


6.3.3. Decimal Positions (Column 52) 


You use this field to specify the number of decimal positions in a numeric field or a 
numeric array element. 


If the field is an alphanumeric field, leave this field blank. 
if the field is a numeric field or a numeric array element, enter the number of decimal 


positions in the field (0 through 9). The number of decimal positions cannot exceed the 
length of the field. 
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6.3.4. Field Name (Columns 53 through 58) 


You use this field to specify the name of the field, array, or array element you are 
describing on this line. Once the field, array, or array element is named, you can reference 
it throughout your program by using that name. This entry must be left-justified. 


If you specify a field or array name, enter the name in this field in the form of one to six 
alphanumeric characters. The first character of the name must be alphabetic. 


If you are specifying an array element name, enter the name in this field in the form: 
array-name, index 


The index is the number of the element in the array. If you specify an array name or array 
element, the control level field (columns 59 and 60), the matching or chaining field 
(columns 61 and 62), and the field record relation field (columns 63 and 64) must be 
blank. If you specify an array name, the field indicators (columns 65 through 70) must be 
blank. 


You can also use the RPG Il special field names PAGE, PAGE1 through PAGE7 and * 
ERROR in this field. PAGE and PAGE1 through PAGE7 are used to control automatic 
sequential page numbering on a printed report. An *ERROR is used for program testing 
(debugging). We will cover the use of these field names when we discuss printing 
techniques and program testing. 


If you are dealing with workstation files and entered INFDS in columns 54 through 59 of 
the file description specifications form, you must assign field names in columns 53 
through 58 that reference the subfields you defined in columns 44 through 50. 
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6.3.5. Contro! Level (Columns 59 and 60) 


You use this field to specify that the associated input record field is a control field. When 
an input record field is specified as a control field, its contents are compared with the 
contents of the control field of the previously processed record with the same control (L) 
level. If the contents of the control fields are not equal, a contro! break occurs (normal 
processing is interrupted), the specified control level indicator is set on, and the program 
performs the total time processing conditioned by the associated control level indicator. If 
the associated input record field is not a control field, or it is a binary or look-ahead field, 
or a chained or demand file is involved, leave this field blank. 


Control! level indicators are prohibited when using workstation terminal files. If the 
associated input record field is a control field, enter a control level indicator (L1 through 
L9) in this field. 


You can specify control level indicators in any sequence; that is, gaps may be left in the 
specification sequence. For example, if you need four control level indicators in your 
program, you could specify L1, L2, L3, and L4 or you could specify L1, L4, L6, and L8. 


If you specify more than one control level indicator in your program, the setting on of one 
control level indicator causes all lower control level indicators to be set on. For example, if 
the L6 control level indicator is set on, the L1 through L5 control level indicators are also 
set on. In addition, when the last record (LR) indicator is set on, all control level indicators 
(L1 through L9) are set on. 


RPG II also provides you with the ability to have two or more fields in an input record 
considered as one control field. You can do this by specifying the same control level 
indicator for each field that is to make up the composite control field. These fields do not 
have to occupy contiguous positions in the input record. 


When split control fields are specified, the first field listed on the form is placed in the 
high order position of the composite control field, the second field is placed immediately 
adjacent to the first field, the third field is placed immediately adjacent to the second field, 
and so on. For example, assume that three field names NAME, RANK, and SERNO are to 
be considered as one control field. If NAME is listed first on the form, RANK second, and 
SERNO third, the composite control field that is created is as follows: 


NAME RANK SERNO 


if RANK is listed first, SERNO second, and NAME third, the composite contro! field that is 


created is as follows: 
RANK SERNO NAME 


There are a number of things to take into consideration when you use control fields. These 
are: 


= Control levels may be written in any order and the control levels need not be 
successively assigned; e.g., L5 may appear before L2. 
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A control break is most likely to occur after the first record containing a control field 
is read. This control field is compared to a storage area that contains no data. Total 
calculations and total output operations are bypassed for the first record containing a 
control field because two control fields are not being compared. 


Control fields are initially set to zero or to the lowest alternate collating sequence 
value specified. 


If the same control level indicator is used in different files and record types, both the 
associated control fields must be the same alphabetic or numeric type and the same 
length. 


In the same record type, record columns in control fields may overlap, even though 
assigned different control level indicators. The total number of columns assigned as 
control fields must not be greater than 144, counting each control level only once. 


Because field names are ignored in control level operations, fields from different 
record types, assigned the same control level indicator, may have the same name. 


When numeric control fields are compared to see if a control break has occurred: 


- They are compared as if there were no decimal position; e.g., 3.95 is the same as 
395. 


- Only the digit portion is compared and is considered to be positive; e.g., plus one 
is the same as minus one. 


- Only the digit portion of each character in numeric control fields is compared to 
see if the information has changed. This occurs when any one of several control 
fields with the same control level indicator is described as numeric. 


Unwanted control breaks may occur if different record types in a file do not have the 
same number of control fields. See 12.2.2 for more information. 


Split control fields also require some special considerations. 


No other specifications may come between the lines that describe split control fields. 
If one portion of a split control field is numeric, the whole field is considered numeric. 


A split control field may be made up of either a packed decimal field or an unpacked 
decimal field. It cannot be made up of both. 


If the control field names are different: 
- For one control level indicator, a control field may be split in some record types 
and not in others. However, the length of the control field must be the same in 


all record types. 


- The length of the portions of a split control field may vary for different record 
types. However, the total length of the portions must be the same. 











a re casa sac caaaaacaacataaaaaaauaalaaaaacaaeaacaeacaaacacadammaaaacaaaaamccaiaaamiissiiaaial 


UP-8067 Rev. 6 SPERRY UNIVAC OS/3 6-17 
RPG Il 








= A numeric split control field may have more than 15 characters, if any one portion 
does not exceed 15 characters and the sum of all control fields is not greater than 
144 characters (counting each control level only once). 


6.3.6. Matching Fields or Chaining Fields (Columns 61 and 62) 


You use this field to specify which input record fields are used as matching or chaining 
fields when you process files in your program using matching records or input chaining. 


If the input record field is not a matching or chaining field, leave this field blank. If the 
input record field is a matching field, enter a matching field indicator (M1 through M9) in 
this field. 


If the input record field is a chaining field, enter a chaining field indicator (C1 through C9) 
in this field. 


Matching fields are prohibited when using workstation terminal files. 


6.3.6.1. Matching Fields 


Matching fields cannot be specified for arrays, chained files, binary fields, or look-ahead 
fields. The matching field indicators do not condition operations, and they are not affected 
by nor do they affect contro! level operations. They are used only to specify the fields that 
are used for matching records. 


All record types that you specify matching fields for must be in the same sequence; that is, 
the sequence specified in the sequence field (column 18) of the file description 
specifications form must be the same for all record types using matching fields. 


The same series of matching field indicators must be specified for ail record types. If the 
matching fields in the first record type are specified by M2, M3, and M4, every record type 
with matching fields must use this series. 


The length of a matching field for a given matching field indicator must be the same for all 
record types. If the length of the matching field specified by M1 in the first record type is 
10, the length of the matching field specified by M1 in every record must be 10. 


Matching fields need not be specified in order. If M1, M2, and M3 are used to specify 
matching fields, the line with M3 could appear between the lines containing M1 and M2. 
When more than one matching field indicator is specified, the record fields that the 
indicators are assigned to are considered as one composite field in which the field with 
the highest matching field indicator occupies the high order position of the composite field 
and the one with the lowest matching field indicator occupies the low order position. 


When any matching field indicator in a file record (M1 through M9) is specified with field 
record relation, all matching field indicators in that record must be specified once without 
field record relation. If all matching field indicators are not common to all record types in 
an OR relationship, dummy matching field indicators should be used to satisfy the above 
condition. These dummy matching fields are ignored during processing. 
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If all matching fields in a record are specified with field record relation, each field record 
relation indicator must have a complete set of matching fields associated with it. 


If you specify matching fields for a single sequential file (input, combined, or update), 
sequence checking is performed on the matching fields in each record in the file. When a 
record is out of sequence, the HO indicator is set on, and the error code B (hexadecimal 
C2) is placed in the *ERROR field. The HO indicator remains on until the completion of the 
current operating cycle. If it is not set off before the next cycle begins, the program goes 
through end-of-job processing and terminates. This type of error can be provided for by 
including a routine on the calculation specifications form that tests the *ERROR field for 
error code B when the HO indicator is set on; if present, it sets the HO indicator off. 


When you use matching fields to match records from the primary file with those from 
secondary files (matching records technique), the MR (matching record) indicator is set on 
when the matching fields in the record in the primary file completely match those in a 
record from a secondary file. The MR indicator remains on during the detail time 
processing of a matching record and through the total time processing that follows the 
record. The MR indicator can be used to condition calculation and output operations. 


When a record from a primary file completely matches records in more than one 
secondary file, the record from the primary file is processed first and the records from the 
secondary files are processed in the order that these files are specified on the file 
description form. 


6.3.6.2. Chaining Fields 
With RPG Il, there are two methods of chaining: 


# Input chaining by using the C1 through C9 chaining indicators on the input format 
specifications form. 


# Using the CHAIN operation on the calculation specifications form. 


Of the two methods, the CHAIN operation is preferred since it is more efficient. Since we 
are dealing with the input format specifications form, our discussion here will be limited to 
input chaining using the C1 through C9 chaining field indicators. 


A maximum of nine chaining fields may be specified for a record in the chaining file. You 
can specify the chaining field by entering a chaining field indicator (C1 through C9) in 
columns 61 and 62 on the line where the field is defined. If you specify a chaining field, 
you must also enter the chaining field indicator in columns 9 and 10 on the file extension 
specifications form on the same line you specify both the name of the chaining file and 
the chained file. Arrays, binary fields, look-ahead fields, and numeric fields with preceding 
or following signs cannot be used as chaining fields. 


You can also specify split chaining fields (either contiguous or noncontiguous fields) by 
using the same chaining field indicator on each line where the fields that make up the 
split chaining field are described. For example, assume that you have three fields named 
CNMBR, CNAME, and ADDR (located in record positions 7 through 12, 19 through 48, and 
55 through 80 respectively) that you want to specify as a split chaining field and you 











ate 
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@ intend to use chaining field indicator C1. In this case, you would indicate the split chaining 
field by entering C1 in columns 61 and 62 on each line where these fields are described. 
When you specify a split chaining field, the lines that specify it cannot be interspersed 

with other chaining field lines. 


When you use input chaining and a no-record-found error occurs during program 
execution (a record was read from the chaining file and a record with the same value as 
that in the chaining field was not found in the chained file), the HO indicator is set on. The 
error code R (hexadecimal D9) is placed in the *ERROR field if a direct file is involved, or 
the error code U (hexadecimal E4) is placed there if an indexed sequential file is involved. 
The HO indicator remains on until the completion of the current operating cycle. If it is not 
set off before the next cycle begins, the program goes through end-of-job processing and 
terminates. You can provide for this type of error by including a routine on the calculation 
specifications form that tests the *ERROR field for either error code R or U when the HO 
indicator is set on. If either is present, it sets off the HO indicator. 


6.3.7. Field Record Relation (Columns 63 and 64) 


You use this field when there is an OR relationship (OR in columns 14 and 15) between 
the records in an input file and when the fields in these records are not in the same 
location. This field is used to specify when a particular field is used by your program; that 
is, the field described on this line is only used when a particular record type is read or 
when any record type in the OR relationship is read. 


@ If the field described on this line is used when any record type in the OR relationship is 
read, leave this field blank. 


lf the field described on this line is only used when a particular record type is read, you 
associate this field with the record type by entering the record identifying indicator for the 
record type (from columns 19 and 20) in this field. 


If the field described on this line is only used when a matching condition occurs (file 
processing using matching records technique - the matching fields of the primary file 
match those of a secondary file and the matching record indicator, MR, is set on), enter 
MR in this field. 


If the field described on this line is only used when an external indicator (U1 through U8) 
has been set on, enter the appropriate external indicator in this field. 


When you use control level fields (specified in columns 59 and 60) or matching or 
chaining fields (specified in columns 61 and 62), those fields without a field record relation 
indicator must appear on the input format specifications form before those with field 
record relation indicators. Those fields with the same field record indicator must be 
grouped together. When the indicator is on, they will take precedence over those fields of 
the same level without field record relation indicators. 


When you use split chaining fields with field record relation indicators, you must specify a 
& complete chaining field for each record relation indicator you use. 


When all matching fields are used with field record relation indicators, you must specify a 
complete set of matching fields for each record relation indicator you use. 
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If one matching field is used without a field record relation indicator, you must specify a 
complete set of matching fields without a field record relation indicator. 


6.3.8. Field Indicators (Columns 65 through 70) 


As you can see, this area of the form contains three fields: PLUS (columns 65 and 66), 
MINUS (columns 67 and 68), and ZERO or BLANK (columns 69 and 70). You use these 
fields to test the contents of the input record field described on this line for a particular 
condition by entering an indicator in the appropriate field. If the condition is present, the 
indicator is set on. You can use this indicator to condition subsequent calculation and 
output operations. 


You can use the PLUS field to test the contents of a numeric field for a plus condition (the 
value in the field is greater than zero), the MINUS field to test the contents of a numeric 
field for a minus condition (the value in the field is less than zero), or the ZERO or BLANK 
field to test contents of a numeric field for a zero condition (the field contains all zeros) or 
an alphanumeric field for a blank condition (the field contains all blanks). 


If you have a numeric input record field, you can use any or all fields to test it. If you 
specify the same indicator for all fields, the indicator is set on regardless of the contents of 
the input record field. 


If you have an alphanumeric input record field, you can only use the ZERO or BLANK field 
to test it. The PLUS and MINUS fields cannot be used to test an alphanumeric field. These 
fields must be left blank for alphanumeric fields. 


A field indicator is initially set on when an input record is read that contains the field 
defined on this line whose contents meet the conditions specified (plus, minus, zero, or 
blank). The indicator remains on until the same type of record is read in again. At this 
time, the field from the new record is tested against the specified conditions; the indicator 
is set on if the conditions are met or it is set off if the conditions are not met. 


If you do not want to test an input record field for a particular condition, leave the 
appropriate field blank. 


If you want to test an input record field for a particular condition, enter an indicator in the 
appropriate field. You can use the general indicators (01 through 99) or the hait indicators 
(H1 through HQ) in these fields. If you specify a halt indicator, your program will halt after 
it processes the input record that meets the specified conditions. 


If you have specified an array name in the field name field (columns 53 through 58), the 
field indicators must be blank. 


6.4. EXAMPLES OF ENTRIES ON THE INPUT FORMAT SPECIFICATIONS FORM 


Figure 6-5 shows you examples of typical entries on the input format specifications form. 
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Page Line 
No. No. 
01 010 
01 020-040 


@ 01 060 


01 070-090 


Explanation of entries in Figure 6-5: 


Explanation 


The records on the input file named LEVFILE are not arranged in 
any special sequence (AA in columns 15 and 16). Indicator 01 (01 
in columns 19 and 20) is set on if a record is read that contains 
the character L in record position 1 (1 in columns 21 through 24, C 
in column 26, and L in column 27). 


RANK (RANK in columns 53 through 58 on line 020), SERNO 
(SERNO in columns 53 through 58 on line 030) and NAME (NAME 
in columns 53 through 58 on line O40) are noncontiguous 
alphanumeric fields located in record positions 60 through 80, 1 
through 10, and 30 through 44, respectively (60 in columns 44 
through 47, 80 in columns 48 through 51, and blank in column 52 
on line 020; 1 in columns 44 through 47, 10 in columns 48 
through 51, and blank in column 52 on line 030; 30 in columns 44 
through 47, 44 in columns 48 through 51, and blank in column 52 
on line 040). These fields are defined as a split control field that 
RPG Il will consider as one composite control field during 
processing because each field has the same control level specified 
for it (L1 in columns 59 and 60 on line 020, 030, and 040). 


The records in the input file named CFILE are not arranged in any 
special sequence (BB in columns 15 and 16). Indicator 02 (02 in 
columns 19 and 20) is set on if a record is read that contains the 
character 5 in record position 21 (21 in columns 21 through 24, C 
in column 26, and 5 in column 27). 


PARNO (PARNO in columns 53 through 58 on line 070), CLASS 
(CLASS in columns 53 through 58 on line 080), and REGN (REGN 
in columns 53 through 58 on line O90) are noncontiguous 
alphanumeric fields located in record positions 1 through 14, 32 
through 34, and 40 through 45, respectively (1 in columns 44 
through 47, 14 in columns 48 through 51, and blank in column 52 
on line 070; 32 in columns 44 through 47, 34 in columns 48 
through 51, and blank in column 52 on line 080; 40 in columns 44 
through 47, 45 in columns 48 through 51, and blank in column 52 
on line 090). These fields are defined as a split input chaining field 
that RPG Il will consider as one composite input chaining field 
during processing because each field has the same chaining 
indicator specified for it (C2 in columns 61 and 62 on line 070, 
080, and O90). 
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Page 
No. 





01 


01 


01 


01 


01 


01 


02 


Line 
No. 


110 and 
120 


130 


140 


150 and 
160 


170 and 
180 


190 and 
200 


010 


Explanation 


The records on the input file NEWMAS are not arranged in any 
special order (CC in columns 15 and 16 on line 110). Indicator 03 
(03 in columns 19 and 20) is set on if a record is read that 
contains the character H in record position 1 (1 in columns 21 
through 24, C in column 26, and H in column 27 on line 110), the 
character F in record position 2 (2 in columns 28 through 31, C in 
column 33, and F in column 34 on line 110), the character G in 
record position 3 (3 in columns 35 through 38, C in column 40, 
and G in column 41 on line 110) and the character E in record 
position 4 (4 in columns 21 through 24, C in column 26, and E in 
column 27 on line 120). 


Indicator 04 (04 in columns 19 and 20) is set on if a record is read 
that contains the character A in record position 5 (5 in columns 21 
through 24, C in column 26, and A in column 27). 


Indicator 05 (05 in columns 19 and 20) is set on if a record is read 
that contains the character B in record position 7 (7 in columns 21 
through 24, C in column 26, and B in column 27). 


If indicator 03 (03 in columns 63 and 64 on lines 150 and 160) is 
on, the first matching field (M1 in columns 61 and 62 on line 150) 
is DEP (DEP in columns 53 through 58 on line 150) and it is 
located in record positions 1 through 4 (1 in columns 44 through 
47 and 4 in columns 48 through 51 on line 150). The second 
matching field (M2 in columns 61 and 62 on line 160) is LOCT 
(LOCT in columns 53 through 58 on line 160) and it is located in 
record positions 5 through 8 (5 in columns 44 through 47 and 8 in 
columns 48 through 51 on line 160). 


If indicator 04 is on (04 in columns 63 and 64 on lines 170 and 
180) the first and second matching fields have the same names as 
those on lines 150 and 160 but they are located in record positions 
11 through 14 and 15 through 18 respectively. 


If indicator O5 is on (05 in columns 63 and 64 on lines 190 and 
200) the first and second matching fields have the same names as 
those on lines 150 and 160 but they are located in record positions 
21 through 24 and 25 through 28, respectively. 


The records on the input file OLDMAS are not arranged in any 
special sequence (DD in columns 15 and 16). Indicator 06 (O6 in 
columns 19 and 20) is set on if a record is read that contains the 
character A in record position 1 (1 in columns 21 through 24, C in 
column 26, and A in column 27). 
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090 
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Explanation 


Indicator 07 (07 in columns 19 and 20) is set on if a record is read 
that contains the character B in record position 1 (1 in columns 21 
through 24, C in column 26, and B in column 27). 


Indicator 08 (08 in columns 19 and 20) is set on if a record is read 
that contains the character C in record position 1 (1 in columns 21 
through 24, C in column 26, and C in column 27). 


if neither indicator O7 nor O08 is on (columns 63 and 64 are blank 
on lines 040 and 050), the first matching field (M1 in columns 61 
and 62 on line 040) is named DEP (DEP in columns 53 through 58) 
and it is located in record positions 1 through 4 (1 in columns 44 
through 47 and 4 in columns 48 through 51 on line 040). The 
second matching field (M2 in columns 61 and 63 on line 050) is 
named LOCT (LOCT in columns 53 through 58 on line O50) and it 
is located in record positions 5 through 8 (5 in columns 44 through 
47 and 8 in columns 48 through 51 on line 050). 


If indicator O07 is on (O7 in columns 63 and 64), the first and 
second matching fields then have the same names as those on 
lines 040 and 050, but the first matching field is located in record 
positions 9 through 12. In this case, the location of the first 
matching field is changed and the second remains the same. 


if indicator 08 is on (08 in columns 63 and 64), the first and 
second matching fields have the same names as those on lines 
040 and O50, but the second matching field is located in record 
positions 13 through 16. In this case, the location of the second 
matching field is changed and the first remains the same. 


The records in the input file named NFILE are not arranged in any 
special sequence (EE in columns 15 and 16). Indicator 09 (09 in 
columns 19 and 20) is set on if a record is read that contains the 
character 4 in record position 1 (1 in columns 21 through 24, C in 
column 26, and 4 in column 27), does not contain the character 5 
in record position 2 (2 in columns 28 through 31, N in column 32, 
C in column 33, and 5 in column 34), and contains the character A 
through | or any character with an X’C’ zone in record position 3 (3 
in columns 35 through 38, Z in column 40, and A in column 41). 


ALNUM (ALNUM in columns 53 through 58) is an alphanumeric 
field (columns 43 and 52 are blank) that is located in record 
positions 1 through 8 (1 in columns 44 through 47 and 8 in 
columns 48 through 51). 
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Explanation 


NMRC (NMRC in columns 53 through 58) is a numeric field that is 
located in record positions 9 through 15 (9 in columns 44 through 
47 and 15 in columns 48 through 51) and has 3 decimal positions 
(3 in column 52). If the field contains zeros, indicator 10 is set on 
(10 in columns 69 and 70). 


PACK (PACK in columns 53 through 58) is a numeric field in 
packed decimal format (P in column 43) that is located in record 
positions 18 through 20 (18 in columns 44 through 47 and 20 in 
columns 48 through 51) and has no decimal positions (O in column 
52). 


BNRY (BNRY in columns 53 through 58) is a binary field (B in 
column 43) that is located in record positions 21 and 22 (21 in 
columns 44 through 47 and 22 in columns 48 through 51) and has 
one decimal position (1 in column 52). 


LEFT (LEFT in columns 53 through 58) is a numeric field with the 
sign to the left of the data (L in column 43) that is located in record 
positions 26 through 30 (26 in columns 44 through 47 and 30 in 
columns 48 through 51) and has two decimal positions (2 in 
column 52). 


RITE (RITE in columns 53 through 58) is a numeric field with the 
sign to the right of the data (R in column 43) that is located in 
record positions 31 through 38 (31 in columns 44 through 47 and 
38 in columns 48 through 51) and has four decimal positions (4 in 
column 52). 
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7. Calculation Specifications Form 


7.1. GENERAL DESCRIPTION 


The calculation specifications form (Figure 7-1) is not required for every program. It is 
required, however, when your program has to perform operations on input data or data 
that results from other calculations. As you can see, the form is divided into three areas: 
conditions, calculation, and resulting indicators. 


You use the conditions area to specify when and under what conditions you want a 
calculation operation performed; that is, you specify that you want the operation performed 
at detail time, total time, or during the execution of a subroutine, and you also specify 
what indicators must be on or off in order for the operation to be performed. 


You use the calculation area to specify the operation you want performed, the data the 
operation is performed upon, and where you want the result of the operation to be stored. 
You use the resulting indicators area to specify the tests you want performed on the 
results of an operation and the indicators you want set on to condition subsequent 
calculation and output operations if the conditions of the specified tests are met. 


7.2. CONDITIONS ENTRIES (COLUMNS 7 THROUGH 17) 

In the following subsections you'll see what each conditions field on the form is used for 
and how the entries in these fields affect your program. 

7.2.1. Control Level (Columns 7 and 8) 

You use this field to specify when a calculation operation is performed. 

If you want the calculation operation performed at detail time, leave this field blank. 

If you want the calculation operation performed at total time even though a control break 
has not occurred, enter LO in this field. A typical use of this indicator in this field would be 


if you are printing a report and you want to accumulate totals for each page of the report 
even though there is no control break at the end of a page. 
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lf you want the calculation operation performed at total time when a control break occurs, 
enter the appropriate control level indicator (L1 through L9) in this field. This indicator 
must be the same as that specified for the control field in columns 59 and 60 on the input 
format specifications form. 


If you want the calculation operation performed when the last input record has been 
processed or when the LR (last record) indicator is set on during detail or total 
calculations, enter LR in this field. If you have more than one input file, the calculation 
operation is performed after the processing of input records from all files that are 
processed to end-of-file (those files that you have specified E in column 17 on the file 
description specifications form). If the calculation operation is part of a subroutine, enter 
SR in this field. When you use this field, the detail calculation operations (blank) must 
appear first, the total calculation operations (LO, L1 through L9) second, and the 
subroutine calculation operations (SR) third. 


7.2.2. Indicators (Columns 9 through 17) 


You use these fields to specify the indicators that are to be tested to determine if the 
calculation operation on this line is to be performed. Up to three indicators can be 
specified on a line. The indicators are specified in columns 10 and 11, 13 and 14, and 16 
and 17. Columns 9, 12, and 15 (labeled N=NOT) are used to specify whether the 
associated indicator must be on or off in order for the calculation operation to be 
performed. 


You leave these fields blank if you want the calculation operation always performed. If an 
indicator must be on before a calculation operation is performed, you specify this by 
placing that indicator in any of the indicator fields on this Jine. If an indicator must be off, 
you specify this by placing an N in one of the N=NOT fields and the indicator in the 
adjacent field. You can specify a general indicator (01 through 99), a control level indicator 
(LO through L9), the last record indicator (LR), the matching record indicator (MR), an 
overflow indicator (OA through OG, OV), a halt indicator (HO, H1 through H9), an external 
indicator (U1 through U8), or function key indicator (KA through KN and KP through KW). 


If you specify a record identifying indicator (from columns 19 and 20 on the input format 
specifications form), the calculation operation is performed only if a record of the type 
specified by the record identifying indicator is read. 


If you specify a field indicator (from columns 65 through 70 on the input format 
specifications form), the calculation operation is performed only if the input data field 
meets the conditions specified by the field indicator. 


If you specify a resulting indicator from a preceding calculation operation (columns 54 
through 59 on this form), the calculation operation on this line is performed only if the 
condition specified for the result of the preceding calculation is met. 


If you specify the matching record indicator (MR), the calculation operation is performed 
only when the matching record indicator is on. 


if you specify a halt indicator (HO, H1 through HQ), the calculation operation is performed 
when the specified indicator is set on. These indicators are normally used to cause a 
calculation operation to be performed when an error has been detected in the input data 
or in a previous calculation operation. 
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If you use an overflow indicator (OA through OG, OV), the calculation operation is 
performed only when page overflow occurs. 


If you specify an external indicator (U1 through U8), the calculation operation is performed 
only when the specified indicator is on. The external indicator must be set on by a 
//ASETAUPSI statement in the job control stream for your program. These indicators may 
not be used in an IMS action program. 


If you specify the function key indicators (KA through KN and KP through KW), they 
correspond to function keys 1 to 22. (There is no indicator KO.) When one of the function 
keys and the transmit key are pressed, the corresponding indicator is set on and the 
transmitted data is available to the program. All function key indicators are set off before a 
read to a workstation file is performed. If the function key is pressed, one indicator is set 
on after input. 


If you define function key 15 in your screen format, then indicator KP will be set on when 
this key is pressed. If you do not define function key 15 in your screen format, then this 
key, by OS/3 conversion, will mean end-of-file for your workstation file. 


lf you have two or more calculation lines that are to be performed when the same 
conditions are present, you can save time by specifying the conditions on the first line and 
then entering an asterisk (*) in column 11 on the succeeding lines. This indicates to RPG II 
that if the preceding line is performed, then the * line will be performed. If you use an * 
line, it must always be the same type as the preceding line. This means that if the 
preceding line is a detail time calculation or a total time calculation, the * line that follows 
must be the same type of line. If additional conditions must be met before the calculation 
operation on an * line can be performed, these can be specified in columns 12 through 17 
on that line. Figure 7-2 shows an example of how * lines are used on the calculation 
specifications form. 
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Figure 7—2. Using * Calculation Lines 
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As you can see in Figure 7-2, lines 010 and 020 are detail lines and line 030 is an * detail 
line. The calculation operation on line 030 is performed only if line 020 is performed. Lines 
040 and 050 are total lines and lines O60 and 070 are * asterisk total lines. The calculation 
operation on line O60 is performed only if line 050 is performed, and the operation on line 
070 is performed only if the conditions specified on line O50 are performed. 


7.2.3. AND/OR Relationship (Columns 7 and 8) 


You use this field to establish an AND or an OR relationship. You use an AND relationship 
when more than three indicators are required to condition a calculation operation and you 
use an OR relation when a calculation operation can be conditioned by more than one 
configuration of indicators. 


You establish an AND relationship by placing the control level entry (if needed) in columns 
7 and 8, the first three indicator entries in columns 9 through 17 on the first line of the 
group, and then the additiona! indicator entries on succeeding lines, with AN entered in 
columns 7 and 8 on each additional line that is used. 


You establish an OR relationship by placing the control level entry (if needed) in columns 7 
and 8, the first three indicator entries in columns 9 through 17 on the first line of the 
group, and then the alternate indicator entries on succeeding lines, with OR entered in 
columns 7 and 8 on each line that is used. When you use AN and OR lines the control 
level entry in columns 7 and 8 of the line immediately preceding the first AN or OR line 
applies to all AN or OR lines in the group. Columns 18 through 59 (calculation and 
resulting indicator fields) must be blank for all lines except the last in an AN/OR group. 
The last line in the group contains the entries for the calculation you want performed if 
the conditions are met. Note that the maximum you can specify for a given AN/OR group 
is seven AN/OR lines. 


lf you use an * line on the line immediately following an AN/OR group, you cannot specify 
indicators in columns 12 through 17 on the * line; that is, these columns must be blank in 
this case. 


Figure 7-3 shows an example of how AN/OR lines are used. The calculation on line 
020 is a detail time calculation (columns 7 and 8 on line 010 are blank) and it will be 
performed only if indicators 01, 02, 03, 04, and O5 are on. The calculation operations 
on lines 050 and O60 will be performed when a control break occurs (L1 in columns 7 
and 8-on line 030) and indicators 10, 11, 12, and 13 are on or if indicator 14 is on. 
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Figure 7-3. Using AN/OR Lines 
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7.3. CALCULATION ENTRIES (COLUMNS 18 THROUGH 53) 





In the following subsections you'll see what each calculation field on the form is used 
for and how the entries in these fields affect your program. 


7.3.1. Factor 1 and Factor 2 (Columns 18 through 27 and Columns 33 
through 42) 


You use these fields to specify the factors involved in the calculation operation you 
want performed. Factor 1 or factor 2 can be: 


= a field name (one to six characters defined on the input format or calculation 
specifications forms); 


= the name of an internal or external subroutine (defined elsewhere in the program); 
= a table name (defined on the file extension specifications form); 

™ an array name (defined on the file extension specifications form); 

m ~=an array element; 


@ an operation label; 





= an RPG Il special field name (PAGE, PAGE1 through PAGE7, UDATE, UMONTH, 
UYEAR, D?TE, and *ERROR); 


wa file name; 


= a numeric literal (1 to 10 digits that may be preceded by a sign and that may have 
a decimal point if required); 


=~ ~=an alphanumeric literal (one to eight characters enclosed in apostrophes); 


= a hexadecimal literal (a series of hexadecimal digits enclosed in apostrophes and 
preceded by an X); or 


= =a figurative constant (*BLANK, *BLANKS, *ZERO, and *ZEROS). 


Destination names used as factor 1 with TAG and ENDSR operations and as factor 2 
with GOTO operations must be from one to six characters long and begin with an 
alphabetic character. 
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The entry you make in factor 1 or factor 2 must be left-justified. The operation you want 
performed determines whether factor 1 or factor 2 is used and what type of entry you can 
make. We'll discuss these requirements when we cover the individual operations. 


7.3.2. Operation (Columns 28 through 32) 


You use this field to specify the operation you want performed using factor 1, factor 2, the 
result field, and the resulting indicators fields. The operation codes that you use in this 
field are discussed in the subsections that follow. Each discussion describes what the 
operation does and shows in chart form whether entries in the other fields (conditions 
fields, factor 1 and factor 2 fields, result fields and resulting indicators fields) are optional, 
required, or blank. These requirements are summarized in Table 7-1. 


7.3.2.1. Arithmetic Operations 


The fields, literals, table elements, or array elements that you use in arithmetic operations 
must be numeric and their length cannot exceed 15 digits. 


All arithmetic operations are performed algebraically. This means that the algebraic rules 
for signs apply. 


lf you are performing addition and the factors have like signs, the sign of the result is the 
same as the sign of the factors. If the factors have unlike signs, the sign of the result is 
the same as the sign of the larger factor. 


lf you are performing subtraction, the sign of the subtrahend (factor 2) is changed and the 
factors are added according to the rules for addition. 


If you are performing multiplication and the factors have like signs, the sign of the result is 
plus. If the factors have unlike signs, the sign of the result is minus. 


if you are performing division and the factors have like signs, the sign of the result 
(quotient) is plus. If the factors have unlike signs, the sign of the result is minus. The sign 
of the remainder is always the same as that of factor 1 (dividend). The result of an 
arithmetic operation is always signed (+ or -). A plus sign is a hexadecimal C and a minus 
sign is a hexadecimal D. 


When you are dealing with fields that have decimal positions, automatic decimal 
alignment occurs before the arithmetic operation is performed. Assume that you have two 
6-position fields, one with three decimal positions, the other with five decimal positions 
and you want to add these fields. The first field is 789.010 and the second is 5.43212. 
Before decimal alignment these fields appear as: 


First field 789.010 
Second field 5.43212 
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The decimal point is not stored as part of data. The position of the decimal point is 
determined by number of decimal positions you specify for the field in the field description 
and this information is stored as part of the field characteristics. After decimal alignment 
takes place the fields appear as: 


First field 789.010 
Second field 5.43212 
Result = 794.44212 


When the decimal points are aligned, the add operation is performed. You must take care 
to ensure that the result field is large enough to hold the result and that you specify the 
proper number of decimal positions. If you do not, the result of your operation will be 
truncated on either end depending on the characteristics you specify for the result. For our 
example, the correct result field characteristics are field length = 8 and decimal positions 
= 5. If you specified a field length of 5 and 3 decimal positions, the contents of the result 
field would be 94.442 instead of 794.44212. The high order 7 and low order 1 and 2 are 
dropped. If truncation occurs, the resulting indicators may not be set as required. 


7.3.2.1.1. Add (ADD) 








CONDITIONS FACTOR OPERATION FACTOR RESULT RESULTING 
1 2 FIELD INDICATORS 


(Cotumns 9-17) | (Columns 18-27) | (Columns 28—32) | (Columns 33—42) | (Cotumns 43—48) | (Columns 54—59) 


Optional Required Required Required Optional 








The ADD operation algebraically adds the contents of factor 2 to factor 1 and stores the 
result in the result field. 


7.3.2.1.2. Zero and Add (Z-ADD) 











CONDITIONS FACTOR OPERATION FACTOR RESULT RESULTING 
1 2 FIELD INDICATORS 


(Columns 9-17) | (Columns 18—27) | (Columns 28—32) | (Columns 33—42) | (Columns 43—48) | (Columns 54—59) 





Required Required Optional 


The Z-ADD operation adds the contents of factor 2 to a field of zeros and stores the result 
in the result field. 
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@ 7.3.2.1.3. Subtract (SUB) 






























FACTOR 
2 
(Columns 33-42) 


OPERATION RESULT 
FIELD 


(Columns 43—48) 


FACTOR 
1 
(Columns 18—27) 





RESULTING 
INDICATORS 
(Columns 54—59) 


Optional 


The SUB operation algebraically subtracts the contents of factor 2 from factor 1 and stores 
the result in the result field. 







CONDITIONS 
















(Columns 9-17) (Columns 28—32) 









Optional Required Required Required 








7.3.2.1.4. Zero and Subtract (Z-SUB) 























CONDITIONS 





FACTOR OPERATION FACTOR RESULT RESULTING 


1 2 FIELD INDICATORS 
(Columns 9-17) | (Columns 18—27) | (Columns 28—32) | (Columns 33—42) | (Columns 43—48) | (Columns 54-59) 


ee ee ee ee 


& The Z-SUB operation subtracts the contents of factor 2 from a field of zeros and stores the 
result in the result field. This causes the sign of the field to be changed. 























7.3.2.1.5. Multiply (MULT) 





CONDITIONS FACTOR OPERATION FACTOR RESULT RESULTING 


1 2 FIELD INDICATORS 
(Columns 9-17) (Columns 18—27) | (Columns 28—32) | (Columns 33—42) | (Columns 43—48) | (Columns 54-59) 


Optional Required Required Required Optional 








The MULT operation algebraically multiplies the contents of factor 1 by the contents of 
factor 2 and stores the result in the result field. Note that when this operation is used, the 
result field must be large enough to hold the product; however, keep in mind the 
maximum size that can be specified for the result field for arithmetic operations is 15. — 





UP-8067 Rev. 6 SPERRY UNIVAC OS/3 7-10 
RPG tl 





7.3.2.1.6. Divide (DIV) 





CONDITIONS FACTOR OPERATION FACTOR RESULT RESULTING 
1 2 FIELD INDICATORS 


(Columns 9-17) | (Columns 18-27) | (Columns 28—32) | (Columns 33—42) | (Columns 43—48) | (Columns 54~—59) 


Optional Required Required Required Optional 








The DIV operation algebraically divides the contents of factor 1 (dividend) by factor 2 
(divisor) and stores the result (quotient) in the result field. If there is a remainder, it is 
discarded unless the next operation is a move remainder (MVR) operation. If half adjust 
(column 53) is specified with a DIV operation, the result will be rounded based on the 
value of the remainder, and the remainder will then be discarded. Half adjust cannot be 
specified if the next operation is an MVR operation. When the DIV operation is used, the 
field length restrictions are as shown in the following formulas: 


fl, + (dp. - dp, + dp,) < 15 
fl, - (dp2 - dp; + dp,) < 15 
where: 
fl, = factor 1 (dividend) field length. 
fl, = factor 2 (divisor) field length. 
dp, = number of decimal positions in factor 1. 
dp, = number of decimal positions in factor 2. 


number of decimal positions in result field. 


dp, 


lf half adjust is specified, the following formula applies: 


fl, + (dp, = dp, ot dp,) < 14 


7.3.2.1.7. Move Remainder (MVR) 





CONDITIONS FACTOR OPERATION FACTOR RESULT RESULTING 
1 2 FIELD INDICATORS 


(Cotumns 9—17) (Columns 18—27) | (Columns 28—32) | (Columns 33—42) | (Columns 43—48) | (Columns 54—59) 





aie pitied 
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The MVR operation places zeros in result field and then moves the remainder of the 
immediately preceding DIV operation into the result field. If the DIV operation used factors 
with decimal positions, the result field for the MVR operation must be large enough to 
provide for the proper number of decimal positions for the remainder. The number of 
decimal positions required for the remainder is determined by the following formulas: 


dp2 ac dp, 
Whichever 
is or = number of decimal positions required for 
greater remainder 
dp, 
where: 
dp. 


is the number of decimal positions in factor 2 (divisor) of immediately preceding 
DIV operation. 


dp, 
Is the number of decimal positions in result field (quotient) of immediately 
preceding DIV operation. 


dp, 
Is the number of decimal positions in factor 1 (dividend) of immediately preceding 
DIV operation. 


The remainder will have the same sign as the dividend of the immediately preceding DIV 
operation. 


To illustrate how you determine the number of decimal positions required for the 
remainder in the result field, assume that you want to divide 12 by .87. You want the 
result field (quotient) to have two decimal positions, and you want to use the MVR 
operation immediately following the DIV operation. In this case, the number of decimal 
positions in factor 2 (divisor) is 2 (dp2 = 2), the number of decimal positions in the result 
field (quotient) is 2 (dp, = 2), and the number of decimal positions in factor 1 (dividend) is 


13.79<— (dp, =2) 

87/12.00,00 
T 487. 
(dp,=2) __f 3 30 
2 61 

(dp;=0) 690 
609 

810 


783 
27 ~«—remainder 


lf we use the formula, 


dp, + dp, =.4 
dp, = 0 
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Since dp, + dp, = 4, 4 is greater than dp, = O. The number of decimal positions for the & 
MVR is 4. You can check the accuracy of this by multiplying the quotient by the divisor 
and then subtracting the product from the dividend. 





13.79~—quotient 
x .87~<—divisor 
96 53 

11032 

11.9973 


12.0000~— original dividend 


~11.9973 
.0027 «— remainder 


7.3.2.1.8. Square Root (SORT) 





CONDITIONS FACTOR OPERATION FACTOR RESULT RESULTING 
1 2 FIELD INDICATORS 
(Columns 9-17) (Columns 18—27) | (Cotumns 28—32) | (Columns 33—42) | (Columns 43—48) | (Columns 54—59) 





The SQRT operation determines the square root of the contents of factor 2 and stores it in 
the result field. If factor 2 is zero, the result will be zero. If factor 2 contains a negative 
value and the operation is executed, the HO indicator will be set on and the program will 
terminate. Half adjust (column 53) may be specified with this operation. Half adjust takes 
place after the square root has been computed, and then the adjusted square root is 
placed in the result field. 





7.3.2.1.9. Cross-Foot (XFOOT) 





~— 
CONDITIONS FACTOR OPERATION FACTOR RESULT RESULTING 
1 2 FIELD INDICATORS 
(Columns 9-17) | (Columns 18—27) | (Columns 28—32) | (Columns 33~—42) | (Columns 43—48) | (Columns 54-59) 


Optional Required Required Optional 











The XFOOT operation adds the contents of the elements of the array specified in factor 2 
and places the sum in the result field. Half adjust (column 53) may be specified with this 
operation. Half adjust takes effect after the sum has been computed, and then the 
adjusted sum is placed in the result field. 





7.3.2.2. Move Operations & 


The move operations allow you to move part or all of a field (factor 2) to the result field. 
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There are two types of move operations: those that move alphanumeric or numeric 
characters from one field to another (MOVE, MOVEA, and MOVEL) and those that move 
the zone portion of a particular byte in one field to a particular position in another field 
(MLLZO, MLHZO, MHHZO, and MHLZO). 


You can use the MOVE and MOVEL operations to change a numeric field to an 
alphanumeric field and vice versa. To change a numeric field to an alphanumeric field, you 
specify factor 2 as numeric and the result field as alphanumeric. To change an 
alphanumeric field to a numeric field, you specify factor 2 as alphanumeric and the result 
field as numeric. 


When you move an alphanumeric field or its zone to a numeric field, the sign of the result 
field is set to hexadecimal C if it is plus or hexadecimal D if it is minus. If the sign zone 
already contains a hexadecimal C or D, the sign is not changed. 


When you move a numeric field or its zone to an alphanumeric field, a plus sign is 
changed to a hexadecimal F and a minus is left as a hexadecimal D. 


In the SPERRY UNIVAC 9200/9300 mode, the sign of the result field is changed as 
follows: hexadecimal 6 or 9 is changed to hexadecimal D; hexadecimal A through F is 
unchanged; and all others are changed to hexadecimal C. 


in the IBM 360/20 mode the sign of the result field is changed as follows: hexadecimal 6 
is changed to hexadecimal D only if the sign byte contains hexadecimal O06; hexadecimal C 
through F is unchanged; and all other cases are changed to hexadecimal C. 


When you use a move operation no decimal alignment is performed. You must also 
remember that no test is performed to ensure that valid numeric digits (O through 9) are 
moved to a numeric result field. If invalid digits (any characters other than O through 9) 
are moved and you attempt to perform an arithmetic operation with the field, an arithmetic 
exception will result. 


7.3.2.2.1. Move (MOVE) 





c= ~ T | 
CONDITIONS FACTOR OPERATION 
1 
(Columns 9-17) (Columns 18—27) | (Columns 28-32) 




















FACTOR 
2 
(Columns 33—42) 


RESULT RESULTING 
FIELD INDICATORS 
(Columns 43—48) | (Columns 54—59) 


soaik oe tee 


The MOVE operation causes the contents of factor 2, starting with the data characters in 
the rightmost positions, to be moved into the result field. If factor 2 is shorter than the 
result field, the leftmost characters in the result field are not disturbed. If factor 2 is longer 
than the result field, the leftmost characters in factor 2 in excess of the result field length 
are not moved. 






Optional Blank MOVE 














An alphanumeric field can be converted to a numeric field and vice versa. This is 
accomplished by moving an alphanumeric field in factor 2 into a numeric result field in the 
former case and vice versa in the latter case. 
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If an alphanumeric field is converted to a numeric field, each character is converted to its 
corresponding numeric character and then moved to the numeric result field. In the case 
of the rightmost character in an alphanumeric field, the zone portion is converted to a + or 
- as applicable; that is, all characters with a hexadecimal C zone (A-| and S-Z) are positive 
(+), and all with a D zone (J-R) are negative (-). This sign is then used as a sign of the 
result field. 


If a numeric field is converted to an alphanumeric field, all characters except the rightmost 
are moved without change into the alphanumeric result field. If the rightmost character of 
a numeric field is signed, it is converted to its alphanumeric equivalent, that is +1=A, 
+2=B, ... +9=I (hexadecimal 1C becomes hexadecimal C1) and -1=J, -2=K, ... -9=R 
(hexadecimal 1D becomes hexadecimal D1). If it is unsigned, it is moved without change. 
The effect of field length and field conversion on MOVE operations is shown in the 
following examples. 


Examples - Factor 2 Shorter Than Result Field: 


1. Alphanumeric field to alphanumeric result field 


Factor 2 Result Field 
Before MOVE operation SP2BC 3598777 
After MOVE operation SP2BC 35SP2BC 


2. Alphanumeric field to numeric result field 


Factor 2 Result Field 
Before MOVE operation  SP2BC 35798777 
After MOVE operation  SP2BC 35727223 


3. Numeric field to numeric result field 
Factor 2 Result Field 


Before MOVE operation 1987654 987651129 
After MOVE operation 1987654 981987654 


4. Numeric field to alphanumeric result field 
Factor 2 Result Field 


Before MOVE operation 1987654 FACEFRONT 
After MOVE operation 1987654 FA1987654 


Examples - Factor 2 Longer Than Result Field 
1. Alphanumeric field to alphanumeric result field 
Factor 2 Result Field 


Before MOVE operation BPPDSP2BC 98777 
After MOVE operation BPPDSP2BC SP2BC 
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2. Alphanumeric field to numeric result field 
Factor 2 Result Field 


Before MOVE operation BPPDSP2BC 98777 
After MOVE operation BPPDSP2BC 27223 


3. Numeric field to numeric result field 
Factor 2 Result Field 


Before MOVE operation 1987654 98765 
After MOVE operation 1987654 87654 


4. Numeric field to alphanumeric result field 
Factor 2 Result Field 


Before MOVE operation 1987654 FACEF 
After MOVE operation 1987654 87654 


Examples - Factor 2 and Result Field Are the Same Length: 


1. Alphanumeric field to alphanumeric result field 


Factor 2 Result Field 
Before MOVE operation SP2BC 98777 
After MOVE operation SP2BC SP2BC 


2. Alphanumeric field to numeric result field 


Factor 2 Result Field 
Before MOVE operation SP2BC 98777 
After MOVE operation SP2BC 27223 


3. Numeric field to numeric result field 


Factor 2 Result Field 
Before MOVE operation 98777 18966 
After MOVE operation 98777 98777 


4. Numeric field to alphanumeric field 
Factor 2 Result Field 


Before MOVE operation 98777 SP2BC 
After MOVE operation 98777 9877P 
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7.3.2.2.2. Move Array (MOVEA) 


CONDITIONS FACTOR OPERATION FACTOR RESULT RESULTING 


1 2 FIELD INDICATORS 
(Columns 9-17) | (Cotumns 18—27) | (Columns 28—32) | (Cotumns 33—42) | (Columns 43—48) | (Columns 54—59) 





The MOVEA operation moves data characters from factor 2 to the result field. The move 
proceeds from left to right, one character at a time. It begins with the first element of an 
array if only the array name is specified or the first character if a field name or literal is 
specified. If an array name with an index is specified, it begins with the indicated element. 
The MOVEA operation terminates when the last position of factor 2 or the result field is 
reached; that is, it may end in the middle of an array element. 


Both factor 2 and the result field must be alphanumeric, and at least one of them must be 
an array. Factor 2 and the result field can both be arrays; however, they cannot be the 
same array. 


The following examples show how the MOVEA operation works. In these examples, 
assume the following: 


ARA1 is a 5-element array with two character elements that contains AABBCCDDEE. 


ARA2 is a 4-element array with three character elements that contains 
111222333444. 


FIELD1 is a 12-character field that contains OPQRSTUVWXYZ. 
X is a 1-byte index field that contains the value 3. 


Y is a 1-byte index field that contains the value 2. 


Examples: 
Contents of Result 
Field After MOVEA 
Operation Factor 2 Result Field Operation 
MOVEA ARA1 ARA2 AABBCCDDEE44 
MOVEA ARA1,3 ARA2 CCDDEE333444 
MOVEA ARA1 ARA2,Y 111AABBCCDDE 


MOVEA ‘GRANDA’ ARAI1 GRANDADDEE 
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Contents of Result 
Field After MOVEA 


Operation Factor 2 Result Field Operation 
MOVEA ARA1,X ARA2 CCDDEE333444 
MOVEA FIELD1 ARA2,4 1112223330PQ 
MOVEA ARA1,Y FIELD1 BBCCDDEEWXYZ 


7.3.2.2.3. Move Left (MOVEL) 


CONDITIONS FACTOR OPERATION FACTOR RESULT RESULTING 
1 2 FIELD INDICATORS 
(Columns 9-17) | (Columns 18—27) | (Columns 28—32) | (Columns 33—42) | (Columns 43—48) | (Columns 54—59) 





The MOVEL operation causes the contents of factor 2, starting with the data characters in 
the leftmost positions, to be moved into the result field. If factor 2 is shorter than the 
result field, the rightmost characters in the result field are undisturbed. If factor 2 is longer 
than the result field, the rightmost characters in factor 2 in excess of the result field 
length are not moved. 


if factor 2 is shorter than the result field, the sign of the result field remains the same 
when data is moved to a numeric field. If factor 2 is the same length or longer than the 
result field, the sign of factor 2 becomes the sign of the result field. 


An alphanumeric field can be converted to a numeric field and vice versa. This is 
accomplished by moving an alphanumeric field in factor 2 into a numeric result field in the 
former case and vice versa in the latter case. 


If an alphanumeric field is converted to a numeric field, each character is converted to its 
corresponding numeric equivalent and then moved to the numeric result field. In the case 
of the rightmost character in an alphanumeric field, the zone portion is converted to a + or 
-; that is, all characters with a hexadecimal C zone (A-l) are + and all with a D zone (J-R) 
are -. This sign is then used as the sign of the result field regardless of whether the 
rightmost character is moved to the result field. 


If a numeric field is converted to an alphanumeric field, all characters except the rightmost 
are moved without change into the alphanumeric result field. If the rightmost character is 
signed and it is to be moved to the alphanumeric result field, it is converted to its 
alphanumeric equivalent before it is moved; that is, +1=A, +2=B, ... +9=I and -1=J, 
-2=K, ... -9=R. The effect of field length and field conversion on the MOVEL operation is 
shown in the following examples: 
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Examples - Factor 2 Shorter Than Result Field: 





1. Numeric field to numeric result field 


Factor 2 Result Field 
Before MOVEL operation 19876 987651129 
After MOVEL operation 19876 198761129 


2. Alphanumeric field to numeric result field 


Factor 2 Result Field 
Before MOVEL operation SP2BC 357987777 
After MOVEL operation SP2BC 272237777 


3. Numeric field to alphanumeric result field 


Factor 2 Result Field 
Before MOVEL operation 19876 FACEFRONT 
After MOVEL operation 19876 19876RONT - 


4. Alphanumeric field to alphanumeric result field 





Factor 2 Result Field 
Before MOVEL operation SP2BC 35798777A 


After MOVEL operation | SP2BC SP2BC777A . 
Examples - Factor 2 Longer Than Result Field: | 
1. Numeric field to numeric result field 
Factor 2 Result Field 


Before MOVEL operation 1987654 98765. 
After MOVEL operation 1987654 19876 | 


2. Numeric field to alphanumeric result field 
Factor 2 Result Field 


Before MOVEL operation 1084567 | FACEF 
After MOVEL operation 1084567 10845 
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@ 3. Alphanumeric field to numeric result field 
Factor 2 Result Field 


Before MOVEL operation BPPDSP2BC 10845 
After MOVEL operation BPPDSP2BC 27742 


4. Alphanumeric field to alphanumeric field 
Factor 2 Result Field 


Before MOVEL operation BPPDSP2BC FACEF 
After MOVEL operation BPPDSP2BC BPPDS 


Examples — Factor 2 and Result Field Are the Same Length: 


1. Numeric field to numeric result field 


Factor 2 Result Field 
Before MOVEL operation 19876 10845 
After MOVEL operation 19876 19876 


@ 2. Numeric field to alphanumeric result field 


Factor 2 Result Field 
Before MOVEL operation 19876 FACEF 
After MOVEL operation 19876 19870 


3. Alphanumeric field to numeric result field 


Factor 2 Result Field 
Before MOVEL operation BPPDN 80144 
After MOVEL operation BPPDN 27745 


4. Alphanumeric field to alphanumeric result field 


Factor 2 Result Field 
Before MOVEL operation BPPDN FACEF 
After MOVEL operation BPPDN BPPDN 
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7.3.2.2.4. Move Low Zone to Low Zone (MLLZO) 


CONDITIONS FACTOR OPERATION FACTOR RESULT RESULTING 


1 2 FIELD INDICATORS 
(Cotumns 9-17) | (Columns 18—27) | (Columns 28-32) | (Columns 33—42) | (Cotumns 43—48) | (Columns 54—59) 





The MLLZO operation moves the zone portion of the rightmost byte of factor 2 to the 
rightmost byte of the result field. Factor 2 and the result field may be alphanumeric or 
numeric. The following examples show how the zone portion is moved in each case. 


Examples: 


1. Numeric field to numeric result field. 


1 byte 


—_—— 





Result Field Numeric Field 


2. Alphanumeric field to numeric result field. 


1 byte 


_=_——_— 


Result Field Numeric Field 


3. Numeric field to alphanumeric result field. 


1 byte 


— 


Result Field Alphanumeric Field 
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4. Alphanumeric field to alphanumeric result field. 


1 byte 
— 


Result Field Alphanumeric Field 


7.3.2.2.5. Move Low Zone to High Zone (MLHZO) 


CONDITIONS FACTOR OPERATION FACTOR RESULT RESULTING 


1 2 FIELD INDICATORS 
(Columns 9-17) | (Columns 18—27) | (Columns 28—32) | (Columns 33-42) | (Columns 43—48) | (Columns 54—59) 





The MLHZO operation moves the zone portion of the rightmost byte of factor 2 to the 
leftmost byte of the result field. Factor 2 may be alphanumeric or numeric; however, the 
result field must be alphanumeric. The following examples show how the zone portion is 
moved in each case. 


Examples: 
1. Numeric field to alphanumeric result field. 


1 byte 


—_~— 


Result Field Alphanumeric Field 


2. Alphanumeric field to alphanumeric result field. 


1 byte 


—— 


Result Field Alphanumeric Fieid 
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7.3.2.2.6. Move High Zone to Low Zone (MHLZO) 





CONDITIONS FACTOR OPERATION FACTOR RESULT RESULTING 


1 2 FIELD t(NDICATORS 
(Columns 9-17) | (Columns 18—27) | (Columns 28—32) | (Columns 33—42) | (Columns 43-48) | (Coitumns 54—59) 





sake 


The MHLZO operation moves the zone portion of the leftmost byte of factor 2 to the 
rightmost byte of the result field. Factor 2 must be alphanumeric; however, the result field 
may be alphanumeric or numeric. 


The following examples show how the zone portion is moved in each case. 
Examples: 


1. Alphanumeric field to numeric result field. 





1 byte 
= 
Result Field Numeric Field 


2. Alphanumeric field to alphanumeric result field. 


1 byte 
es 


Result Field Alphanumeric Field 


7.3.2.2.7. Move High Zone to High Zone (MHHZO) 





CONDITIONS FACTOR OPERATION FACTOR RESULT RESULTING 
1 2 FIELD INDICATORS 
(Columns 9-17) {| (Columns 18—27) | (Columns 28—32) | (Columns 33—42) | (Columns 43—48) | (Columns 54—59) 





_ovtom | nm [tmz | set | meine | nt 
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The MHHZO operation moves the zone portion of the leftmost byte of factor 2 to the 
leftmost byte of the result field. Both factor 2 and the result must be alphanumeric. The 
following example shows how the zone portion is moved. 

Example: 


Alphanumeric field to alphanumeric result field 


1 byte 
———~ 
Result Field Alphanumeric Field 





7.3.2.3. Compare and Test Operations 


The compare and test operations allow you to test the contents of fields for certain 
conditions. You do this by specifying the fields or literals to be compared or tested and 
then you indicate the condition you want them tested for by entering an indicator in the 
appropriate resulting indicator field (columns 54 and 55, 56 and 57, or 58 and 59). If the 
condition is not met, that indicator is not set on. If it is met, the indicator is set on. 


These operations are generally used to condition subsequent calculation or output 
operations; that is, by using them you can control when other operations are performed. 
For example, if a certain condition is not present you want one series of operations and, 
when the condition is present, you want another series of operations performed. 


7.3.2.3.1. Compare (COMP) 




















FACTOR FACTOR RESUL1 RESULTING 
1 2 FIELD INDICATORS 


(Columns 9-17) (Columns 18—27) | (Columns 28—32) | (Columns 33—42) | (Columns 43-48, | (Columns 54-59) 


The COMP operation compares the contents of factor 1 with factor 2. The result of the 
operation is then checked for the condition that is specified in the resulting indicator fields 
(columns 54 through 59); that is, factor 1 is greater than factor 2, factor 1 is less than 
factor 2, or factor 1 is equal to factor 2. A combined condition test can also be specified 
(for example, whether factor 1 is greater than or equal to factor 2) by using the same 
indicator in the two applicable resulting indicator fields. If the condition is satisfied, the 
specified indicator is set on. Factor 1 and factor 2 may be alphanumeric or numeric fields 
or literals. An array name cannot be specified in a COMP operation. An array element, 
however, can be specified. In this case, the entry in factor 1 or factor 2 must be in the 
form: array name, index. 


CONDITIONS OPERATION 








Required 
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If alphanumeric fields are compared, the comparison is based upon the internal EBCDIC 
collating sequence, except when an alternate collating sequence has been specified. When 
the fields are unequal in length, the leftmost character of the shorter field is aligned with 
the leftmost character of the longer field. The.shorter field is then filled with blanks in as 
many character positions as are required to make it equal in length to the longer field. 


If numeric fields are compared, the comparison is algebraic. A field with a plus sign is 
always greater than a field with a minus sign. When the fields are unequal in length, they 
are aligned at the implied decimal point. The shorter field is then filled with zeros in as 
many character positions to the left or right of the decimal point as are required to make it 
equal in length to the longer field. 


A hexadecimal literal is considered alphanumeric and may only be compared with an 
alphanumeric field. 


7.3.2.3.2. Test Bit (TESTB) 





CONDITIONS FACTOR OPERATION FACTOR RESULT RESULTING 
1 2 FIELD INDICATORS 
(Columns 9~—17) (Columns 18—27) | (Cotumns 28—32) | (Columns 33—42) | (Columns 43-48) |} (Columns 54—59) 





ee 





The TESTB operation is used to test specific bits in a 1-character alphanumeric field. The 
field that is to be tested is specified in the result field. This field must be an alphanumeric 
field. Factor 2 is used to specify which bits in the result field are to be tested. The bits that 
are to be tested can be specified by a 1-character field or the numbers of the bits (0 
through 7) enclosed in apostrophes. 


If a 1-character field is specified in factor 2, the bits that are set on in this field will cause 
the corresponding bits in the result field to be tested. For example, if factor 2 contains 
hexadecimal 57 (01010111), the corresponding bits of the result field will be checked to 
see if they are on. In this case, bits 1, 3, 5, 6, and 7 would be checked. This could also be 
accomplished by specifying ‘13567’ in factor 2. 


if the bits specified by factor 2 are all zeros in the result field, the resulting indicator 
specified in columns 54 and 55 is set on. 


If the bits specified by factor 2 are mixed (O’s and 1's) in the result field, the resulting 
indicator specified in columns 56 and 57 is set on. 


If the bits specified by factor 2 are all ones in the result field, the resulting indicator 
specified in columns 58 and 59 is set on. 


lf a field containing all zeros is specified in factor 2, no resulting indicators will be set on. 


If only one bit is to be tested, a resulting indicator must not be specified in columns 56 
and 57 (mixed). 
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7.3.2.3.3. Test Numeric (TESTN) 


CONDITIONS FACTOR OPERATION FACTOR RESULT RESULTING 
1 2 FIELD INDICATORS 
(Columns 9—17) | (Columns 18—27) | (Columns 28-32) | (Columns 33—42) | (Columns 43—48) | (Columns 54—59) 


eet fm os 


The TESTN operation is used to determine if an alphanumeric result field contains numeric 
characters. If all the characters are numeric, the indicator specified in columns 54 and 55 
is set on. If the field contains leading blanks followed by numeric characters, the indicator 
specified in columns 56 and 57 is set on. If the field contains all blanks, the indicator in 
columns 58 and 59 is set on. Each character, except the low order character, must contain 
a hexadecimal F in the zone portion and a digit (O through 9) in the digit portion to be 
considered numeric. The low order character may contain a hexadecimal C, D, or F in the 
zone portion and a digit in the digit portion. 





The TESTN operation is used to validate data prior to moving it into a numeric field for 
arithmetic and editing operations. 


7.3.2.3.4. Test Zone (TESTZ) 


CONDITIONS FACTOR OPERATION FACTOR RESULT RESULTING 


1 2 FIELD INDICATORS 
(Columns 9-17) | (Cotumns 18-27) | (Columns 28—32) | (Columns 33—42) | (Cotumns 43-48) | (Columns 54—59) 


Optional Required Required 











The TESTZ operation tests the zone portion of the leftmost position of an alphanumeric 
result field for the condition specified in the resulting indicator field (columns 54 through 
59); that is, the zone portion is plus (hexadecimal C zone - includes A through 1,&), the 
zone portion is minus (hexadecimal D zone - includes J through R, -), or the zone portion 
is any zone other than hexadecimal C or D (includes S through Z, and all other characters). 
If the condition is satisfied, the specified indicator is set on. 


If the zone portion is plus, the indicator specified in columns 54 and 55 is set on. 
If the zone portion is minus, the indicator specified in columns 56 and 57 is set on. 


If the zone portion is any other zone, the indicator specified in columns 58 and 59 is set 
on. 


UP-8067 Rev. 6 SPERRY UNIVAC OS/3 7-26 
RPG Il 











7.3.2.4. Branching and Exit Operations 


The operations in your program are normally performed in the order they appear on the 
calculation specifications form. The branching and exit operations allow you to change this 
sequence. For example, when certain conditions are present you may want to perform a 
series of operations that apply only in this case, or you may have a subroutine (a series of 
operations performed at more than one point in your program) that you want performed at 
this point. 


7.3.2.4.1. Branch (GOTO) 















OPERATION 






CONDITIONS 








FACTOR FACTOR RESULT RESULTING 
1 2 FIELD INDICATORS 
(Columns 9—17) (Columns 18-27) | (Columns 28—32) | (Columns 33-42) | (Coftumns 43—48) | (Columns 54—59) 


The GOTO operation is used to transfer control to a point in your program other than the 
next sequential operation. The point you want to branch to is specified in factor 2. This is 
the name you have given to your destination point; that is, the name of the TAG or ENDSR 
operation you want to branch to. 





















You can branch either backward or forward from detail-to-detail calculations, total-to-total 
calculations, or detail-to-total calculations. You cannot, however, branch from total-to- 
detail calculations. 


You cannot use a GOTO operation that is outside of an internal subroutine to branch to a 
TAG or ENDSR within the subroutine. You can, however, use a GOTO operation within a 
subroutine to branch to the ENDSR operation in that routine. 


7.3.2.4.2. Tag (TAG) 


CONDITIONS FACTOR OPERATION FACTOR RESULT RESULTING 
1 2 FIELD INDICATORS 
(Columns 9—17) | (Columns 18-27) | (Columns 28—32) | (Columns 33—42) | (Cotumns 43—48) | (Columns 54—59) 


The TAG operation is used in conjunction with the GOTO operation to specify the name of 
the point to which the program may branch. This name, which can be one to six 
characters long, is specified in factor 1. When the GOTO operation is used, factor 2 of that 
operation must specify the same name as the one specified in the TAG operation for the 
point to which the program is to branch. If a TAG operation is branched to by a total time 
GOTO operation, the control level field (columns 7 and 8) for that TAG operation must 
contain LO through LR. 
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@ 7.3.2.4.3. Begin Internal Subroutine (BEGSR) 





CONDITIONS FACTOR OPERATION FACTOR RESULT RESULTING 
1 2 FIELD INDICATORS 


(Columns 9—17) | (Columns 18-27) | (Columns 28—32) | (Columns 33—42) | (Columns 43—48) | (Columns 54-59) 





wet rte fesse | me fmf | 


The BEGSR operation is the first statement in an internal subroutine (a subroutine that 
you have included in your program). It provides the name of the subroutine and indicates 
the point on the calculation specifications form where it begins. The subroutine name is 
specified in factor 1. 


The BEGSR operation can be referenced only by an EXSR operation that specifies the 
same subroutine name in factor 2 as the one specified in the BEGSR operation. 


All statements in an internal subroutine must have SR entered in the control level field 


(columns 7 and 8). 


7.3.2.4.4. End Internal Subroutine (ENDSR) 


CONDITIONS FACTOR OPERATION FACTOR RESULT RESULTING 
1 2 FIELD INDICATORS 
(Columns 9—17) | (Columns 18—-27) | (Columns 28—32) | (Columns 33—42) | (Columns 43—48) | (Cotumns 54—59) 





The ENDSR is the last statement in an internal subroutine. It indicates the point on the 
calculation specifications form where the subroutine ends. When the ENDSR operation is 
executed, it transfers control to the operation immediately following the EXSR operation 
that caused the subroutine to be executed. 


The ENDSR operation can be branched to by a GOTO operation that is within the 
subroutine. In this case, factor 1 of the ENDSR operation must contain a label that can be 
used by the GOTO operation. 
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Factor 2 can contain the following entries that indicate a point to which control is returned 
if you specified INFSR in columns 54 through 59 of the file description specifications form: 


a blank 


If you leave factor 2 blank and the EXSR operation calls the subroutine, control 
returns to the operation following the EXSR operation. If control automatically 
passes to the subroutine because a workstation error occurs, the subroutine 
executes and control goes to the RPG Il error handling routine, which normally 
stops the program and requires the operator to choose an option. 


= literal 

When you specify a literal, it must be enclosed in apostrophes. If you specify a literal 
and get an error trying to read a file, you must issue an output operation to the 
workstation file before attempting to read the file again. You can’t perform two 
consecutive reads to the same workstation file. You can specify the following literals: 
-  ‘*GETIN’ 

Indicates control returns to the beginning of a new cycle. 
- ‘*DETC’ 

Indicates control returns to the beginning of detail calculations. 
-  “*CANCL’ 

Indicates all files are closed and the program is cancelled. 


Indicates the same as leaving factor 2 blank (6 blank spaces). 
= §6array element or field name 


When you specify an array element or field name, it indicates a 6-character 
alphanumeric field that contains *GETIN, *DETC, *CANCL, or blanks (left-justified and 
padded with blanks). This field is set to blanks with each exit from the subroutine and 
allows you to put in a return point depending on the type of error. 


7.3.2.4.5. Execute Internal Subroutine (EXSR) 


CONDITIONS FACTOR OPERATION FACTOR RESULT RESULTING 


1 2 FIELD INDICATORS 
(Columns 9-17) | (Columns 18-27) | (Columns 28—32) | (Columns 33—42) | (Columns 43—48) | (Columns 54—59) 
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The EXSR operation transfers control to an internal subroutine. Factor 2 specifies the 
name of the internal subroutine. This name must also appear in factor 1 of the BEGSR 


operation of the subroutine that is to be executed. 


When the subroutine is completed, control is returned to the operation immediately 
following the EXSR operation that caused the subroutine to be executed. 


7.3.2.4.6. Exit to Linked Subroutine (EXIT) 





CONDITIONS FACTOR OPERATION FACTOR RESULT RESULTING 
2 FIELD INDICATORS 


1 


(Columns 18-27) | (Columns 28—32) | (Columns 33—42) | (Columns 43—48) | (Cotumns 54-59) 


(Columns 9—17) 


The EXIT operation is used to specify a point in the calculations where control is 
transferred to an external subroutine that was linked to your program at linkage editor 
time. Factor 2 specifies the name of the external subroutine. When the EXIT operation is 
encountered, contro! is transferred to the external subroutine, the subroutine is executed, 
and control is returned to the program at the statement immediately following the EXIT 








operation. 


7.3.2.4.7. External Subroutine Access to RPG Il Program (RLABL) 





FACTOR OPERATION FACTOR RESULT RESULTING 
1 2 FIELD INDICATORS 


(Columns 9-17) (Columns 18--27) | (Columns 28—32) | (Columns 33—42) | (Columns 43—48) | (Columns 54—59) 


CONDITIONS 





Se intel Se 


The RLABL operation allows an external subroutine (linked at linkage editor time to your 
program) to access a field, table, array, or indicator that is used in your program. The 
result field specifies the field, table, array, or indicator that is to be accessed. When the 
result field is a table or array name, the address plus 16 of the table linkage or array 
linkage field is supplied by the RPG Il program. The formats of the linkage fields are 
shown in the system messages programmer/operator reference, UP-8076 (current 


version). 


If an indicator is to be accessed by an external subroutine, the entry in the result field of 
the RLABL operation must be INnn (nn is any 2-character indicator except 1P or LO). 


If more than one RPG external subroutine must access a field, table, array, or indicator, 
it is not necessary to provide an RLABL operation for each subroutine. One RLABL for 
each field, table, array, or indicator to be accessed is all that is needed. 


To link your program to a FORTRAN or COBOL subroutine, every EXIT to the external 
subroutine must be followed immediately by the RLABL fields. 


~~ 
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7.3.2.4.8. RPG Il Program to External Subroutine Access (ULABL) 


CONDITIONS FACTOR OPERATION FACTOR RESULT RESULTING 
1 2 FIELD INDICATORS 
(Columns 9-17) | (Columns 18-27) | (Columns 28-32) | (Columns 33—42) | (Columns 43~48) | (Columns 54~59) 





The ULABL operation allows the RPG Ii program to access fields contained in an external 
subroutine (linked at linkage editor time to your program). The result field specifies the 
name of the field that is to be accessed. The field length must be specified in columns 
(number of digits if numeric) 49 through 51 and the number of decimal positions in 
column 52. The result field must not specify an array or table name or INxx. The field is in 
packed decimal format. 


7.3.2.5. Indicator Setting Operations 


The indicator setting operations allow you to set indicators on or off in your program. With 
these operations you can set any indicator on or off except the LO indicator, the matching 
record indicator (MR), or the first page indicator (1P). Thé last record (LR) indicator may be 
set on, but may not be set off. 


7.3.2.5.1. Set On (SETON) 





CONDITIONS FACTOR OPERATION FACTOR RESULT RESULTING 
1 2 FIELD INDICATORS 
(Columns 9-17) | (Columns 18-27) | (Columns 28-32) | (Columns 33—42) | (Columns 43—48) | (Columns 54—59) 


oto | aa pile 


The SETON operation causes the resulting indicators specified in columns 54 and 55, 56 








and 57, and 58 and 59 to be set on. 


7.3.2.5.2. Set Off (SETOF) 





CONDITIONS FACTOR OPERATION FACTOR RESULT RESULTING 
1 2 FIELD INDICATORS 


(Cotumns 9-17) | (Columns 18—27) | (Columns 28-32) | (Columns 33-42) | (Columrs 43—48) | (Columns 54—59) 


The SETOF operation causes the resulting indicators specified in columns 54 and 55, 56 
and 57, and 58 and 59 to be set off. 
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7.3.2.6. Bit Setting Operations 
The bit setting operations allow you to set individual bits in a 1-character alphanumeric 


field on or off. 


7.3.2.6.1. Set Bit On (BITON) 


CONDITIONS FACTOR OPERATION FACTOR RESULT RESULTING 
1 2 FIELD INDICATORS 
(Columns 9—17) (Columns 18—27) | (Columns 28-32) | (Columns 33—42) | (Columns 43—48) | (Columns 54—59) 





Se ce, jnmine | sent om 


The BITON operation is used to set bits on in a 1-character alphanumeric field. This field is 
specified in the result field. Factor 2 is used to specify which bits in the result field are to 
be set on. The bits that are to be set on can be specified by a 1-character field or the 
numbers of the bits enclosed in apostrophes. The bits are numbered O through 7 from left 
to right. 


If a 1-character field is specified in factor 2, the bits that are set on in this field will cause 
the corresponding bits to be set on in the result field. The following example shows how 
this occurs. 


Factor 2 Result Field 


Before BITON operation 11000001 01011100 
After BITON operation 11000001 11011101 


If the numbers of the bits to be set on are specified in factor 2, those bits in the result 
field that correspond to the bit numbers will be set on. The following example shows how 
this occurs. 


Factor 2 Result Field 


Before BITON operation ‘O17’ 01011100 
After BITON operation ‘017’ 11011101 
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7.3.2.6.2. Set Bit Off (BITOF) 























FACTOR FACTOR RESULT RESULTING 
1 2 FIELD INDICATORS 
(Columns 9—17) | (Columns 18—27) | (Columns 28—32) | (Columns 33—42) | (Columns 43—48) | (Columns 54—59) 


one || = jrmina | mint || 


The BITOF operation is used to set bits off in a 1-character alphanumeric field. It sets bits 
off in the same manner that the BITON operation sets bits on. As in the BITON operation, 
the field in which the bits are to be set off is specified in the result field and the bits that 
are involved are specified in factor 2 either by specifying a 1-character field or the 
numbers of the bits (O through 7) enclosed in apostrophes. 


CONDITIONS OPERATION 












7.3.2.7. Look-Up Operations 


The look-up operations allow you to search a table or array in main storage for a specific 
element and retrieve it for use in subsequent calculations. 


7.3.2.7.1. Look-Up (LOKUP) 


CONDITIONS FACTOR OPERATION FACTOR RESULT RESULTING 
1 2 FIELD INDICATORS 
(Columns 9—17) | (Columns 18-27) | (Cotumns 28-32) | (Columns 33—42) | (Columns 43-48) | (Columns 54—59) 


eae 


The LOKUP operation is used to search a table or array in main storage and retrieve the 
required function or element that is to be used in subsequent calculations. The search 
argument is specified in factor 1. The table, array, or array element where the search is to 
begin is specified in factor 2. The result field can be used to specify a second table from 
which an element that corresponds to the element that satisfied the search condition can 
be retrieved. The result field must be blank if an array or array element.is specified in 
factor 2. 





When you specify an array element (in the form array name, index) in factor 2, the search 
begins with the element specified by the index. If the element is located, the index value is 
set to the position number of the index. If the element is not located, the index is set to 1. 
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The resulting indicators are used to specify the type of search that is to be performed. The 
search can be made for an element that is higher (an entry in columns 54 and 55), lower 
(an entry in columns 56 and 57), equal (an entry in columns 58 and 59), higher or equal 
(an entry in columns 54 and 55 and in columns 58 and 59), or lower or equal (an entry in 
columns 56 and 57 and in columns 58 and 59). If the search condition is satisfied, the 
indicator that was used to specify the search condition is set on. If columns 54 and 55, or 
56 and 57 are used, the tables or arrays must be in either ascending or descending order. 


7.3.2.8. File Processing Operations 
The file processing operations allow you to retrieve records, override normal record 


selection, display or alter data, and write output records during calculation time. 


7.3.2.8.1. Retrieve Record from a Chained File (CHAIN) 






















RESULT 
FIELD 
(Columns 43—48) 


RESULTING 
INDICATORS 
(Columns 54—59) 


Optional 


The CHAIN operation is used to retrieve records from indexed or direct files or to write 
records to a direct output file. The file that the records are retrieved from or written to is 
called a chained file. 










—_ y 
CONDITIONS | FACTOR OPERATION FACTOR 
1 2 
(Columns 9—~17} (Columns 18—27) | (Columns 28-32) | (Columns 33-42) 





Optional Required Required 











Factor 2 contains the name of the chained indexed or direct file specified on the file 
description form. 


If records are retrieved from an indexed file, factor 1 specifies the key of the record being 
sought. Factor 1 may be a field name, an array element, a table name, or a literal. The 
result field must be blank in this case. 


lf records are retrieved from a direct file by relative record number (R in column 31 of the 
file description specifications form) or written to a direct file being created by relative 
record number (blank in column 31 of the file description specifications form), factor 1 
contains the relative record number of the record to be read/written. Factor 1 may be a 
field name, an array element, a table name, or a numeric literal. 


The high field (columns 54 and 55) and low field (columns 56 and 57) of the resulting 
indicators can be used with the CHAIN operation to specify an indicator that is to be set on 
when a no-record-found condition occurs. If an indicator is not present in either the high 
field or the low field and a no-record-found condition occurs, the HO (halt O) indicator is 
set on, and the program terminates unless provision is made in the program to set this 
indicator off. 
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The equal field (columns 58 and 59) of the resulting indicators can be used to specify an 
indicator that is to be set on when a record is found. Every resulting indicator specified for 
a CHAIN operation is always set on or off, depending upon its significance and the success 
of the I/O operation; it is never left unaltered. If resulting indicators signifying no-record- 
found are set on, the indicator signifying record found is set off, and vice versa. 


In IMS action programs, the CHAIN operation always uses the primary key when 
accessing multikey MIRAM files. 


7.3.2.8.1A. Retrieve Record from a Chained File (REFER) — IMS Action 
Programs Only 


CONDITIONS FACTOR OPERATION FACTOR RESULT RESULTING 
1 2 FIELD INDICATORS 
(Columns 9-17) (Columns 18—27) | (Columns 28—32) | (Columns 33—42) | (Columns 43—48) | (Columns 54—59) 





The REFER operation is used to retrieve records from indexed multikey files. The file 
that the records are retrieved from is called a chained file. 


Factor 2 contains the name of the chained indexed file specified on the file description 
form. 


Factor 1 specifies the key of the record being sought. Factor 1 may be a field name, an 
array element, a table name, or a literal. 


The high field (columns 54 and 55) and low field (columns 56 and 57) of the resulting 
indicators can be used with the REFER operation to specify an indicator that is to be set 
on when no record is found. If no indicator is present in the high or low field and no 
record is found, the HO (halt O) indicator is set on, and the program terminates unless 
the program sets this indicator off. 


The equal field (columns 58 and 59) of the resulting indicators can be used to specify 
an indicator that is to be set on when a record is found. Every resulting indicator 
specified for a REFER operation is always set on or off, depending upon its significance 
and the success of the I/O operation; it is never left unaltered. If resulting indicators 
signifying no-record-found are set on, the indicator signifying record found is set off, 
and vice versa. 


You can use the result field to specify the duplication count when accessing records 
with duplicate keys. The result field must be a numeric unsigned integer, and it can be a 
field name, an array element, or a numeric literal. 


To access records with duplicate keys in a nonaction program, use the SETLL operation 
for a demand file. Then use a series of READ operations until the desired duplicate key 
is reached. 


You'll get an IMS error if you try to update a record after reading it by using the REFER 
operation. To update this record, reread it using the CHAIN operation. 
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e@ 7.3.2.8.2. Select Key Structure (SETK) 


CONDITIONS FACTOR OPERATION FACTOR RESULT RESULTING 
1 2 FIELD INDICATORS 
(Columns 9—17) (Columns 18-27) | (Columns 28-32) | (Columns 33-42) | (Columns 43—48) | (Columns 54-59) 





The SETK operation allows you to select the key structure that retrieves an indexed file. 
Factor 1 (column 18) must contain a number from 1 to 5. After the SETK operation 
selects the key structure, that structure is used until you change it. Factor 2 contains 
the file name. The SETK sets the file to the beginning of the key structure specified 
each time the operation is executed. 


For IMS action programs, you can only use the SETK operation for chained or demand 
files. The SETK operation doesn’t effect the usage of the CHAIN verb. 


7.3.2.8.3. Read Record (READ) 


@ CONDITIONS FACTOR OPERATION FACTOR RESULT RESULTING 
1 2 FIELD INDICATORS 
(Columns 9-17) | (Columns 18—27) | (Columns 28-32) | (Columns 33—42) | (Columns 43—48) | (Columns 54—59) 





mv | mee | sum | eto 


The READ operation causes a record to be immediately retrieved from a demand file. 
Factor 2 specifies the name of the demand file. 


The equal field (columns 58 and 59) of the resulting indicators may be used with the 
READ operation to specify an indicator that is to be set on when the demand file reaches 
end-of-file. (Columns 54 through 57 must be blank.) If an indicator is not present in this 
field and the end-of-file is reached, the HO (halt O) indicator will be set on and the program 
will terminate. 


If an indicator is present and is on before the READ operation, it will not be set off 
even if a record is read from the file. Therefore, it may appear that end-of-file has been 
reached when it has not. 
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7.3.2.8.4. Set Lower Limits (SETLL) 








CONDITIONS FACTOR OPERATION FACTOR RESULT RESULTING 
1 2 FIELD INDICATORS 
(Columns 9-17) (Columns 18—27) | (Columns 28—32) | (Columns 33—42) | (Cotumns 43—48) | (Columns 54-59) 








sade 


The SETLL operation is used to specify a lower limit for subsequent indexed sequential 
demand file processing via the READ operation. This allows sequential between-limits type 
processing of a file, beginning with any arbitrary record. The SETLL operation can be used 
at any time during calculations and as often as an out-of-sequence next record (lower 
limit) is desired. 








The first READ operation processed following a SETLL operation will retrieve the record 
specified by the SETLL operation or the next higher record if the one specified does not 
exist. Subsequent READ operations will retrieve consecutive, records until! end-of-file is 
reached or a new lower limit is specified by another SETLL operation. Factor 1 may be a 
field, table name, array element, or a literal. The value specified as factor 1 represents the 
key of the record at which the subsequent READ processing is to begin. The factor 1 value 
must agree in length and type with the key of the demand file specified on the file 
description specifications form. Factor 2 must be the name of an indexed sequential 
demand file as specified on the file description specifications form. 


7.3.2.8.5. Override Normal Record Selection (FORCE) 


CONDITIONS FACTOR OPERATION FACTOR RESULT RESULTING 


1 2 FIELD tNDICATORS 
(Columns 9-17) | (Columns 18—27) | (Columns 28-32) | (Columns 33-42) ; (Columns 43—48) | (Columns 54-59) 





The FORCE operation permits you to override the normal record selection process; that is, 
with this operation you specify from which file the next record is to be read rather than 
allow the RPG II program logic to do it for you. Factor 2 specifies the name of the primary 
or secondary input, combined, or update file from which the next record is to be selected 
for processing. The first record that is processed in your program cannot be forced. It must 
be selected by the normal process. 


The FORCE operation can be used only at detail time. When it is executed, it will remain 
in effect only for the next input cycle. 


If more than one FORCE operation is issued during a processing cycle, the last one that 
was executed is effective. All other FORCE operations are overridden. When a FORCE 
operation is specified for a file that has reached the end-of-file condition, the normal 
record selection process selects the next record. 
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When the FORCE operation is used to select a record, the record is treated as if it had no 
matching fields. As a result, the MR (matching record) indicator is always off when a 
forced record is being processed. 


7.3.2.8.6. Display (DSPLY) 














FACTOR FACTOR RESULT RESULTING 
1 2 FIELD INDICATORS 
(Columns 9-17) | (Columns 18-27) | (Columns 28-32) | (Columns 33—42) | (Columns 43—48) | (Columns 54—59) 


The DSPLY operation permits you to enter information or have information displayed via 
the system console during the execution of your program. Factor 2 contains the name of 
the file that is specified for the CONSOLE entry on the file description specifications form. 
Factor 1 can be used to specify a field name, table name, array element, or literal that is to 
be displayed on the system console. The result field can be used to specify a field name, 
table name, or array element whose contents are to be altered by the operator. 


CONDITIONS OPERATION 
















If factor 1 is specified and the result field is blank, the contents of factor 1 are displayed 
on the system console and processing continues. 





If the result field is specified and factor 1 is blank, the contents of the result field are 
displayed, and the program waits for the operator to alter the field or indicate that the 
program is to resume processing. If factor 1 and the result field are specified, the contents 
of factor 1 and the result field are displayed, and the program waits for the operator to 
alter the contents of the result field or indicate that the program is to resume processing. 


When numeric data is entered, leading zeros are not required because RPG Il 
automatically right-justifies the data. Similarly, alphanumeric data is left-justified. 


Note that a $ is not permitted in the first character position of the data to be displayed. 


The DSPLY operation may not be specified for IMS action programs. 


7.3.2.8.7. Exception. Lines (EXCPT) 





CONDITIONS FACTOR OPERATION FACTOR RESULT RESULTING 
1 2 FIELD INDICATORS 


(Columns 9~—17) (Columns 18—27) | (Columns 28~—32) | (Columns 33—42) | (Columns 43—48) | (Columns 54—59) 


Optional 
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The EXCPT operation permits output to be written while calculations are being performed. 
When the EXCPT operation is encountered, all output lines on the output format 
specifications form that have an E in the type field (column 15) and whose output 
indicators (columns 23 through 31) are satisfied are written. When this is completed, the 
calculations continue with the next statement after the EXCPT operation. 


7.3.2.8.8. Debug (DEBUG) 








CONDITIONS FACTOR OPERATION FACTOR RESULT RESULTING 
1 2 FIELD INDICATORS 
(Columns 9-17) (Cotumns 18—27) | (Columns 28—32) | (Columns 33—42) | (Columns 43—48) | (Columns 54-59) 








if 1 is specified in column 15 of the control card specifications form, the DEBUG operation 
causes all indicators that are on and any field or literal that is specified to be printed when 
the operation is encountered. If 1 is not specified in column 15 of the control card 
specifications form, the DEBUG operation is ignored. 


Factor 1 may contain a field name or literal. This entry is used to identify the DEBUG 
printout. It may not be more than eight characters. Factor 2 specifies the name of the 
output file that is to contain the DEBUG printouts. The record lengths for this file (specified 
in columns 24 through 27 of the file description specifications form) must be at least 80. 
The result field may be used to specify a field name, table name, or array name that is to 
be printed as a second output line. 


7.3.2.8.9. Next Workstation Input (NEXT) 


CONDITIONS FACTOR OPERATION FACTOR RESULT RESULTING 
1 2 FIELD INDICATORS 
(Columns 9-17) (Columns 18—27) | (Columns 28—32) | (Columns 33—42) | (Columns 43—48) | (Columns 54—59) 





is 


The NEXT operation forces input from a particular workstation of a multiple workstation 
file. If you specify the NEXT operation more than once between input operations, only the 
last operation is in effect. You can only use the NEXT operation with a workstation file 
(WORKSTN in columns 40 through 46 on the file description specifications form). 


In factor 1, enter the name of a 2-character field that contains the device identification or 
enter a 2-character alphanumeric literal that is the device identification. The next input to 
the program comes from this device. Input from all other workstations is held up. 


In factor 2, enter the name of the WORKSTN file for which the operation is requested. 
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In the resulting indicator field, enter an indicator in columns 56 and 57. If an 
exception/error occurs on the NEXT operation, this indicator is set on. If you specify the 
INFSR subroutine (5.2.18.2) and don't enter an indicator in columns 56 and 57, the 
subroutine automatically receives control when an exception/error occurs. If you don’t 
specify the INFSR subroutine and also don’t enter an indicator in columns 56 and 57, the 
program halts when an exception/error occurs. 





7.3.2.9. Time of Day Operations 


The time of day operations allow you to access the system time of day and the system 
date. 


7.3.2.9.1. Time (TIME) 




















CONDITIONS 








FACTOR OPERATION | FACTOR RESULT RESULTING 
1 2 FIELO INDICATORS 


(Columns 9-17) | (Columns 18—27) | (Columns 28~—32) | (Columns 33—42) | (Columns 43—48) | (Columns 54—59) 


The TIME operation allows you to access the system time of day and date. The result field 
must specify the name of a numeric field with no decimal places. If you specify a 6-digit 
field, the system time of day in the form hhmmss is retrieved. If you specify a 12-digit 
field, the system time of day and date in the form hhmmssyymmdd is retrieved. 











7.3.2.10. System Shutdown (SHTDN) 


CONDITIONS FACTOR OPERATION FACTOR RESULT RESULTING 
1 2 FIELD INDICATORS 


(Columns 9-17) (Columns 18-27) | (Columns 28—32) | (Columns 33-42) | (Coitumns 43-48) | (Columns 54—59) 





The SHTDN operation sets on the resulting indicator if a system shutdown is requested 
by the operator. The indicator then conditions the termination of the program in an 
orderly fashion, such as printing some partial totals and going to normal end-of-job. The 
resulting indicator field (columns 54 and 55) must contain 01 through 99, L1 through 
L9, U1 through U8, H1 through H9, or LR. 


7.3.2.11. Operations Summary 





A summary of operations is shown in Table 7-1. 
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Table 7—1. Summary of Operations (Part 1 of 2) 





















Factor Result Resulting 
2 Field Indicators 
(Columns 33—42) (Columns 43--48) (Columns 54—59) 


Factor 
1 
(Columns 18-27) 





















Operation 
{Columns 28-32) 


Conditions 
(Columns 9-17) 


Optional Required 








Required Required Optional 


Blank Blank 


Required Required 


Required Required Biank 


Required Blank Optional 


Required Blank Required 


Required Optional Blank 


4 
< 


Required 


a 
a 
a 
a Se 
Optional NEXT 


Required Optional 


Optional 


Optional 











Required Optional 













Optional 
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Table 7—1. Summary of Operations (Part 2 of 2) 



































Factor Factor Result Resulting 


1 2 Field Indicators 
(Columns 18-27) (Columns 33-42) (Columns 43--48) (Columns 54-59) 










Conditions 
(Columns 9-17) 


Operation 
(Columns 28—32) 













Optional 










Optional 





















Optional 














Optional 





7.3.3. Result Field (Columns 43 through 53) 


This field is made up of four subfields: name, field length, decimal positions, and half 
adjust. The subfields are described in 7.3.3.1 through 7.3.3.4. 


7.3.3.1. Name (Columns 43 through 48) 


You use this field to specify the field name, table name, array name, or array element 
where the result of an operation is placed. 


The entry in this field must be left-justified and it may consist of from one to six 
alphanumeric characters. The first character must be an alphabetic character. The RPG II 
special field names and look-ahead fields must not be used in this field, but PAGE field is 
permitted. 


7.3.3.2. Field Length (Columns 49 through 51) 


You use this field to specify the length of the result field. The entry must be right-justified, 
leading zeros may be omitted. 


If you have defined the result field on the input format specifications form or the file 
extension specifications form, you can leave this field blank. 
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if you have not defined the result field, you must make an entry in this field. This entry 
can range from 1 to 256. The maximum length for a numeric field is 15 and the maximum 
length for an alphanumeric field is 256. 


If a packed numeric input field is used on the calculation specifications form, the number 
of digits in the field, rather than the number of bytes (character positions) that it occupies, 
must be considered when the length of the result field is specified. This length can be 
calculated by using the following formula: 


result field length = 2(input field length)-1 


For example, assume that a packed numeric input field is specified as having a length of 7 
in columns 44 through 51 of the input format specifications form. The length of the result 
field must be 13; that is, 2(7)-1, or 13. 


7.3.3.3. Decimal Positions (Column 52) 
You use this field to specify the number of decimal positions if the result field is numeric. 
If the result field is alphanumeric, leave this field blank. 


If the result field is numeric and it has been defined on the input format specifications 
form or the calculation specifications form, you can leave this field blank. 


If the result field is numeric and it has not been previously defined, enter the number of 
decimal positions (0 through 9) in this field. If the result field is numeric and it has no 
decimal positions, you must enter a O in this field. 


7.3.3.4. Half Adjust (Column 53) 


You use this field to cause the value in a numeric result field to be rounded to the least 
significant decimal place. Rounding is accomplished by algebraically adding 5 (-5 if the 
result field is negative) to the value in the result field one position to the right of the last 
specified decimal position in that field. 


If the associated operation is not an arithmetic operation, the result field is alphanumeric 
and therefore, rounding is not required; leave this field blank. If you want rounding 
performed, enter an H in this field. 


If you specify rounding with a DIV (divide) operation, the MVR (move remainder) cannot be 
used with this DIV operation. 


If the number of decimal positions in the arithmetic result is less than or equal to the 
number of decimal positions specified for the result field and rounding has been specified, 
the rounding specification has no effect. 


The resulting indicators are set according to the value of the result field after rounding has 
taken place. 
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7.4, RESULTING INDICATOR ENTRIES (COLUMNS 54 THROUGH 59) 


The following shows how each resulting indicator on the form is used and how the entries 
in these fields affect your program. 


The resulting indicator fields consist of columns 54 and 55 (+, 1>2, or high field), columns 
56 and 57 (-, 1<2, or low field) and columns 58 and 59 (0, 1=2, or equal field). The 
entries you make in these fields specify the tests you want performed or the result of an 
operation and the indicator you want set on if the conditions of the tests are met. You can 
specify a general indicator (01 through 99), a halt indicator (HO through H9), an external 
indicator (U1 through U8), a control level indicator (L1 through L9), the last record 
indicator (LR), an overflow indicator (OA through OG, or OV), or a function key indicator 
(KA through KN and KP through KW) from columns 33 and 34 of the file description 
specifications form in any of these fields. 


Any indicator that you specify is set off if the test conditions are not met. If a control level 
indicator is set on as the result of an operation, the lower level indicators are not set on. 


When a halt indicator (HO through HQ) is set on, the program will terminate unless the 
indicator is set off. 


if you use a COMP, LOKUP, SETON, SETOF, TESTB, TESTN, or TESTZ operation, you must 
specify a resulting indicator. 
7.4.1. +, 1>2, or High (Columns 54 and 55) 


You use this field to specify a test for any of the following conditions and to specify the 
indicator you want set on if the condition is satisfied. 


ws The bits tested in a TESTB operation are all O's. 
= Factor 1 is greater than factor 2 in a COMP operation. 
= The result of an arithmetic operation is plus. 


= The zone tested in a TESTZ operation is a plus zone (EBCDIC characters A-l, &, and 
hexadecimal CA-CF). 


= A CHAIN operation was performed and the record was not found. 


= @©The alphanumeric field tested in a TESTN operation contains only numeric characters. 
All characters except the low order character have a hexadecimal F zone portion and 
a digit portion (O through 9). The low order character has a hexadecimal C, D, or F 
zone portion and a digit portion (O through 9). 


= You can also use this field to search for the element in the factor 2 table/array that is 
closest to, yet greater than, factor 1 in a LOKUP operation. 














UP-8067 Rev. 6 SPERRY UNIVAC OS/3 7-43 





RPG Il 


7.4.2. -, 1<2, or Low (Columns 56 and 57) 


You use this field to specify a test for any of the following conditions and to specify the 
indicator you want set on if the condition is satisfied. 


The bits tested in a TESTB operation are mixed (0’s and 1’s). 
Factor 1 is less than factor 2 in a COMP operation. 
The result of an arithmetic operation is minus. 


The zone tested in a TESTZ operation is a minus zone (EBCDIC characters -, J-R, and 
hexadecimal DA-DF). 


A CHAIN operation was performed and the record was not found. 


The alphanumeric field tested in a TESTN operation contains numeric characters and 
leading blanks. 


You can also use this field to search for an element in the factor 2 table/array that is 
closest to, yet less than, factor 1 in a LOKUP operation. 


7.4.3. 0, 1=2, or Equal (Columns 58 and 59) 


You use this field to specify a test for any of the following conditions and to specify the 
indicator you want set on if the condition is satisfied. 


The bits tested in a TESTB operation are all 1's. 

Factor 1 is equal to factor 2 in a COMP operation. 

The result of an arithmetic operation is zero. If the result field that is being tested for 
O’s is an output field that will also be reset to O after it is placed in the output record 
(B in column 39 of the output format specifications form), the indicator specified on 
the calculation specifications form will not be set on after the field is reset to O's. If, 
however, S is specified in column 42 of the control card, the first indicator in a test 
for O’s associated with this field will be set on after the field is reset to O's. 
End-of-file was reached on a demand file during a READ operation. 


The zone tested in a TESTZ operation is neither plus nor minus (EBCDIC characters 
other than &, -, or those with a hexadecimal C or D zone). 


The alphanumeric field tested in a TESTN operation contains all blanks. 


A CHAIN operation was performed and the record was found. 


You can also use this field to search for an element in the factor 2 table/array that is 
equal to factor 1 in a LOKUP operation. 
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7.4.4. Comments (Columns 60 through 74) 


You can use this field to insert comments that relate to the calculations on the individual 
lines of the form. When your program is compiled, these comments will have no effect on 
the compilation process; however, they will in the source program listing that is produced 
when your program is compiled. When you use this field you do not require an * in 


column 7. 


7.5. EXAMPLES OF ENTRIES ON THE CALCULATION SPECIFICATIONS FORM 


Figure 7-4 shows you examples of typical entries on the calculation specifications form. 


Explanation of entries in Figure 7-4: 


Line Number 


010 


020 


030 


Explanation 


This operation is performed each time a detail record is read (columns 7 
through 17 are blank). The operation consists of adding (ADD in columns 27 
through 32) the contents of FIELD1 (FIELD1 in columns 18 through 28) to 
the contents of FIELD2 (FIELD2 in columns 33 through 42) and storing the 
result in the field named NET (NET in columns 43 through 48). The field 
named NET is six characters in length (6 in columns 49 through 51), 
contains two decimal places (2 in column 52), and the contents of the field 
are half-adjusted or rounded (H in column 53). 


This operation is performed when indicator 01 is on (01 in columns 10 and 
11). The operation consists of subtracting (SUB in columns 28 through 32) 
the contents of FIELD3 (FIELD3 in columns 33 through 42) from the 
contents of FIELD4 (FIELD4 in columns 18 through 27), and storing the 
result in the field named GROSS (GROSS in columns 43 through 48). If the 
result of this operation is plus, indicator 11 is set on (11 in columns 54 and 
55). If the result is minus, indicator 12 is set on (12 in columns 56 and 57). 
lf the result is zero, indicator 13 is set on (13 in column 58 and 59). 


The operation is performed when indicator 02 is on (O02 in columns 10 and 
11) and indicator 03 is not on (N in column 12 and 03 in columns 13 and 
14). The operation consists of a table lookup operation (LOKUP in columns 
28 through 32). The search argument is 10 (10 in columns 18 through 27) 
and it is used to search the table TAB100 (TAB100 in columns 33 through 
42). The table TAB200 (TAB200 in columns 43 through 48) is the table that 
contains the functions corresponding with the arguments in table TAB100. 
Indicator 14 (14 in columns 58 and 59) specifies that table TAB100 is to be 
searched for an element equal to the search argument. If it is found, the 
indicator will be set on and the corresponding element in table TAB200 will 
be made available. 


(continued) 
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Line Number Explanation 





040 The operation is performed when indicator 04 is on (04 in columns 13 and 
14) and indicator 02 and 03 are off (N in column 9, 02 in columns 10 and 
11, N in column 15, and 03 in columns 16 and 17). The operation consists 
of retrieving a record (READ in columns 28 through 32) from a demand file 
named DMAND (DMAND in columns 33 through 42). When end-of-file is 
encountered, indicator 15 will be set on (15 in columns 58 and 59). 


050 The internal subroutine SUBRT (SUBRT in columns 33 through 42) is 
executed (EXSR in columns 28 through 32) at total time when indicator L2 
is on (L2 in columns 7 and 8). 


060-070 Additional calculations to be performed at total time when indicator L2 is on. 


080 The operation on this line is part of an internal subroutine (SR in columns 7 
and 8.). All other lines in the subroutine will also contain SR in columns 7 
and 8. This operation indicates the entry point (BEGSR in columns 28 
through 32) of the subroutine named SUBRT (SUBRT in columns 18 through 
27). 


090-100 Additional steps of the subroutine. As a result of the operation on line 100, 
indicator O09 or 10 may be set on (09 in columns 54-55 and 10 in columns 
56 and 57). 





110 This operation is performed when indicator 09 is on (09 in columns 10 and 
11). The program branches (GOTO in columns 28 through 32) to the line 
labeled END (END in columns 33 through 42). The line labeled END is line 
180. 


120 This operation is performed when indicator 10 is on (10 in columns 10 and 
11). The program branches (GOTO in columns 28 through 32) to the line 
labeled MIDPT (MIDPT in columns 33 through 42). The line labeled MIDPT is 
line 150. 


130-140 When both indicators 9 and 10 are off, these lines are executed. 


150 This operation (TAG in columns 28 through 32) provides a label (MIDPT in 
columns 18 through 27) for a line that is to be branched to. 

160-170 These lines are executed when the subroutine branches to line 150. 

180 This operation indicates that this is the last line in the subroutine (ENDSR in 


columns 28 through 32) and that this line is labeled END (END in columns 
18 through 27). When this point is reached, control is returned to the main 
program at the line immediately following the EXSR operation. In this case, 
control is returned to line O60. 
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8. Output Format Specifications Form 


8.1. GENERAL DESCRIPTION 


You must have an output format specifications form (Figure 8-1) in all programs. This form 
describes the output you want produced. There are two types of entries: output file 
identification and control, and field description and control. 


You use the output file identification and control entries to identify the output files (printer, 
tape, disk, and punched card), to identify the types of records in each file, to control the 
spacing of the lines on printed reports, to control the stacker selection for punched card 
output, and to control when the output records are written. 


You use the field description and control entries to define the individual fields of an output 
record, to describe the kind of data in each field, to control when a field is written, and to 
specify the editing that you want performed on the field. 


8.2. OUTPUT FILE IDENTIFICATION AND CONTROL ENTRIES 
(COLUMNS 7 THROUGH 31) 


In the following subsections you'll see what each output file identification and control field 
is used for and how the entries in these fields affect your program. 


8.2.1. File Name (Columns 7 through 13) 


You use this field to specify the name of the output file that you want to receive the output 
records. The name that you enter in this field must be the name you specified for this file 
on the file description specifications form. The file name for each output file must appear 
on the first file identification line. 
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8.2.2. Type (Column 15) 


You use this field to identify the type of output record with regard to what point in the 
processing cycle it is to be written, that is, at detail time, total time, or calculation time. 
You identify the record type by entering one of the following letters in this field: H 
(heading record), D (detail record), T (total record), or E (exception record). 


A heading record is written at detail time and usually contains heading information for a 
printed report. 


A detail record is written at detail time and usually contains data from input records or 
calculations performed at detail time. 


A total record is written at total time (when a control break occurs) or when data is 
exhausted. It usually contains summaries or totals of data accumulated from detail time 
calculations. An exception record is written during detail or total calculation time when the 
EXCPT operation is encountered. 


8.2.3. Stacker Select/Fetch Overflow (Column 16) 


You use this field to specify the stacker that you want the cards placed in when you use a 
card device that has more than one stacker or you use it to specify that you want the fetch 
overflow routine to be used to cause overflow processing at this point in the program, 
rather than at the completion of the total cycle. 


The 0604 card punch subsystem has a normal stacker and an alternate stacker. The 0605 
card punch subsystem has only one stacker. 


If you are using the 0604 card punch subsystem and you want the cards placed in the 
normal stacker, enter a 1 in this field. If you want the cards placed in the alternate 
siacker, enter a 2 in this field. 


If you are using the 0605 card punch subsystem, you must leave this field blank because 
this subsystem has only one stacker. 


When a record is written to a combined file, the entry in this field overrides the stacker 
select entry in column 42 on the input format specifications form. 


If you want the fetch overflow routine to be used to cause overflow processing at this point in 
your program, enter an F in this field. When you request the fetch overflow routine, and all 
output conditions specified in columns 23 through 31 are satisfied, the overflow indicator 
specified for this output file (columns 33 and 34 on the file description specifications form) is 
checked to see whether it is set on. If it is on, all overflow output records associated with the 
output file are written, and then the program returns to the line that requested the fetch 
overflow routine and writes the output record associated with it. 
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If you use stacker select or fetch overflow and you have AND lines for a record type, the @ 
entry need only be made once. 


If you have OR lines, you must make the entry on each line of the OR relationship. 


This field is ignored for IMS action programs. 


8.2.4. AND/OR Relationship (Columns 14 through 16) 


You use this field to establish an AND or OR relationship. You use an AND relationship 
when more than three indicators are needed to condition when an output record is 
written and an OR relationship when more than one indicator can condition when an 
output record is written. AND/OR lines cannot be used to condition output fields. The 
maximum number of AND/OR relationships per record definition is 80. 


You establish an AND relationship by placing the first three output indicators on the first 
line, the additional entries on succeeding lines, and an AND in columns 14 through 16 
on each additional line that is used. If you use fetch overflow or stacker select (column 
16) in an AND relationship, it is specified on the first line. Columns 17 through 22 
(space and skip fields) must be blank on AND lines. 


You establish an OR relationship by placing OR in columns 14 and 15 and the alternate 
output indicator entries in columns 23 through 31 on the next line. If you need 
additional alternate output indicators, these can be specified on additional OR lines. You 
can make entries in 16 through 22 (stacker select/fetch overflow, space, and skip 
fields) on an OR line if required. If you leave these fields blank, the entries in these fields 
on the preceding line apply to this line. 





8.2.5. Adding and Deleting Existing Indexed Sequential File Records and Deleting 
Transaction Buffers (Columns 16 through 18) 


You can add records to an existing indexed sequential input, output, or update file by 
placing an A in column 66 of the file description specifications form on the line that 
defines the file to be added to and by placing ADD in columns 16 through 18 on this 
form on the line that specified the record type (H, D, T, or E in column 15) you want to 
add. If an OR line follows an ADD line, the ADD also applies to that line. 


You can delete records from an existing IMS indexed file by placing DEL in columns 16 
through 18. The deleted record is marked with an X’‘FF’ in the first byte of data. (Data 
records should never contain an X’‘FF’ in the first byte.) Because deleted records 
physically remain in the file, the number of records togically deleted is recorded in the 
(filename)T field in the DTF module. Refer to the consolidated data management 
macroinstructions user guide programmer reference, UP-9979 (current version). A record 
must be read prior to deletion. 


To delete a transaction buffer area (TBA) from an IMS action program, place DEL in 
columns 16 through 18. 
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8.2.6. Space (Columns 17 and 18) 


You use these fields to control the spacing of printed reports (printer or line counter files). 
The before field (column 17) specifies the number of lines to be spaced before printing, 
and the after field (column 18) specifies the number of lines to be spaced after printing. 


If you do not want to space before or after printing, enter a O in the appropriate field or 
leave the field blank. 


lf you want to space before or after printing, enter the number of lines (1 through 9) that 
you want spaced in the appropriate field. The maximum number of lines you can specify to 
be spaced depends upon the type of printer subsystem you are using. 


If you specify both spacing and skipping for the same line, the operations are performed in 
the following order: 


Skip before 
Space before 
Print 

Skip after 
Space after 


If possible, you should specify space after rather than space before because the latter 
tends to slow printing. 


8.2.7. Skip (Columns 19 through 22) 


In all modes other than the IBM System/3 mode, you use these fields to specify the 
number of the channel on the printer form control tape that you want to skip to before or 
after printing. The before field (columns 19 and 20) specifies the number of the channel to 
be skipped to before printing and the after field (columns 21 and 22) specifies the number 
of the channel to be skipped to after printing. 


Since more than one type of printer subsystem can be used, the following convention 
should be used to maintain device independence for programs that are to be compiled in 
the SPERRY UNIVAC OS/3 mode: only channels 01 through 07 should be entered in 
these fields and, of these, channel 01 should be used for forms overflow and channel 07 
for home paper. The channel numbers that are specified will be automatically translated to 
the appropriate channel numbers for the particular printer subsystem. Channels 8 through 
13 may be used; however, their use is not recommended. If they are used, they will also 
be automatically translated. This translation will also take place for programs that are to 
be compiled in the SPERRY UNIVAC 9200/9300 mode or the IBM 360/20 mode. 


The channel numbers that can be specified for each compilation mode and the channel 
numbers that they are translated to for the various printer subsystems are shown in Table 
8-1. 
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If you specify a channel number in this field, remember that the equivalent channel 
number (or the one that it is translated to) must be specified in a //AVFB statement in 
your job control stream or punched on the carriage control tape for the printer subsystem 
that is being used. 


Table 8—1. Skip Channel Number Translation 


Channel Number Specified Channel Number Used 
























SPERRY SPERRY IBM 0768 0770 0773 
UNIVAC UNIVAC 360/20 Printer Printer Printer 
OS/3 Mode 92/9300 Mode Mode Subsystem Subsystem Subsystem 





01 
Sa ieee: cated eee Ss (forms overflow} 
ee waa aie Rue jwepere 


There are two home paper channels for the 0768 printer subsystem. If channel 14 is used, the line spacing will be 6 
lines per inch; if channel 15 is used the line spacing will be 8 lines per inch. If channel 07 is specified for a SPERRY 
UNIVAC OS/3 or 9200/9300 mode program or channel 01 for an IBM 360/20 mode program, the printer will skip to 
whichever channel (14 or 15) is punched on the carriage control tape or specified in the //AVFB statement in the job 
control stream. 




















14 ® 07@) 

(home paper) (home paper) (home paper) 
15@ 

(home paper} 
























@ Channel 07 must always be punched for home paper and channel 09 must always be punched for forms overflow on the 
carriage contro! tape for the 0770 printer subsystem. 
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In the IBM System/3 mode, you use this field to specify the specific line on a printable 
form to be skipped to. Since this field is a 2-digit entry, the following convention is used 
for line numbers greater than 99: AO through AQ is equivalent to lines 100 through 109 
and BO through B2 is equivalent to lines 110 through 112. If the skip code entry is less 
than the previous entry, the result is a skip to a new page without setting the overflow 
indicator on. If the entry is greater than the overflow line but less than the total number of 
lines specified for the printable form, the overflow indicator is turned on and remains on 
until all overflow lines are printed. 


8.2.8. Output Indicators - Records (Columns 23 through 31) 


You use these fields to specify the indicators you want tested to determine whether the 
record described on this line is to be written. Up to three indicators can be specified on a 
line. You specify the indicators in columns 24 and 25, 27 and 28, and 30 and 31, and you 
specify whether or not an indicator must be on or off in columns 23, 26, or 29 (N=NOT). You 
leave these fields blank if you want a record always to be written. 


If an indicator must be on before a record can be written, you specify this by placing that 
indicator in any of the indicator fields on this line. If an indicator must be off, you specify 
this by placing an N in one of the N=NOT fields and the indicator in the adjacent field. You 
can specify a general indicator (01 through 99), a control level indicator (LO through L9), the 
last record indicator (LR), a halt indicator (HO through HQ), the matching record indicator 
(MR), the first page indicator (1P), the overflow indicator (OA through OG, OV) assigned to 
the file, or an external indicator (U1 through U8), or a function key indicator (KA through KN 
and KP through KW). 


The 1P indicator is prohibited for workstation terminal files. 


If you have two or more records that you want written when the same conditions are 
present, you can save time by specifying the conditions on the first record identification line 
and then entering an asterisk (*) in column 25 on the succeeding lines. This indicates to 
RPG II that the conditions on the preceding line must be met before the record on the * line 
can be written. If you use an *, it must always be the same type as the preceding line. This 
means that if the preceding line is a heading line (H in column 15), a detail line (D in column 
15), a total line (T in column 15), or an exception line (E in column 15), the * line that follows 
must be the same type of line. 


If you have an AND relationship, you must not specify an overflow indicator (OA through 
OG, OV), stacker select, or fetch overflow on the AND line. 


If you have a total or exception line (T or E in column 15), you must not specify the first page 
indicator (1P) on that line. 


If you have an exception line (E in column 15), you must not specify an overflow indicator for 
that line. 
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8.3. FIELD DESCRIPTION AND CONTROL ENTRIES (COLUMNS 23 THROUGH 70) 


In the following subsections you'll see what each field description and control field is used 
for and how the entries in these fields affect your program. The field description and control 
entries for a given record are always written on the lines immediately following the output 
file identification and control entries for that record. For example, if line 010 contains the 
output file identification and control entries for a given record, you would write the first field 
description and control entries for this record on line 020, the second on line 030, and so 
on. When you use the field description and control fields, columns 7 through 22 on these 
lines must be left blank, and AND/OR relationships are not permitted. 


8.3.1. Output Indicators - Fields (Columns 23 through 31) 


You use these fields to specify the indicators you want tested to determine whether the field 
described on this line is to be written. Up to three indicators can be specified on a line. You 
specify the indicators in columns 24 and 25, 27 and 28, and 30 and 31, and you specify 
whether or not an indicator must be on or off in columns 23, 26, or 29 (N=NOT). You can 
specify an asterisk (*) in the same way as with record output indicators (8.2.8). 


You leave these fields blank if you want a field always to be written. 


If an indicator must be on before a field can be written, you specify this by placing that 
indicator in any of the indicator fields on this line. If an indicator must be off, you specify 
this by placing an N in one of the N=NOT fields and the indicator in an adjacent field. You 
can specify a general indicator (01 through 99), a control level indicator (LO through L9), the 
last record indicator (LR), the matching record indicator (MR), a halt indicator (HO through 
HQ), the first page indicator (1P), an overflow indicator (OA through OG, OV), an external 
indicator (U1 through U8), or a function key indicator (KA through KN and KP through KW). 
If you have a field associated with a total or exception record (T or E in column 15 of the 
output file identification and control line for the associated record) you must not specify the 
first page indicator (1P) for the field. The 1P indicator is prohibited for workstation terminal 
files. 


If two or more fields have the same conditions, you can use an asterisk (*) in column 25. 
You cannot use an asterisk with the field names PAGE or PAGE1 through PAGE7. For 
further information, see 14.4.2. 


8.3.2. Field Name (Columns 32 through 37) 


You use this field to identify the field in the output record that you want to be written, 
punched, or printed. The conditions that you specified for both the field and the record it is 
contained in must be satisfied before output takes place. This entry must be left-justified. 


If the field is a constant or literal that you specified in columns 45 through 70, leave this 
field blank. 
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If you are specifying a field, table, or array name, enter the name in the form of one to six 
alphanumeric characters. The name you specify must be that of a field that was previously 
defined on the input format specifications form or the calculation specifications form, or it 
must be the name of a table or array that was previously defined on the file extension 
specifications form. When an array name is specified, the entire array is written. When a 
table name is specified, the element last found by a LOKUP operation is written. If no 
LOKUP operation was performed, the first element of the table is written. If an 
unsuccessful LOKUP operation follows a successful one, the element found by the 
successful LOKUP operation is written. 


lf you are specifying an array element name, enter the name in the form: array-name, 
index. The index is the number of the element in the array. When you specify an array 
element name, that element is written. You can also use the RPG II! special field names 
PAGE, PAGE1 through PAGE7, *ERROR, *PLACE, UDATE, D?TE, UDAY, UMONTH, or 
UYEAR in this field. PAGE, and PAGE1 through PAGE7 are used to contro! automatic 
sequential page numbering. *ERROR is used for program testing (debugging). *PLACE is 
used to cause previously defined fields in an output record to be repeated in that output 
record. UDATE or D?TE allows you to retrieve the system date in the form mmddyy 
(mm=month, dd=day, yy=year). UDAY allows you to retrieve the system date day (dd). 
UMONTH allows you to retrieve the system date month (mm). UYEAR allows you to 
retrieve the system date year (yy). We will cover the use of these field names when we 
discuss printing techniques and program testing. 


8.3.3. Edit Codes (Column 38) 


You use this field to specify edit codes that will automatically suppress leading zeros, 
punctuate (insert commas or slashes), or place a negative value indicator (- or CR) in a 
numeric field. 


If the field is an alphanumeric field or you have specified a constant or edit word in 
columns 45 through 70, leave this field blank. 


lf you want to edit a numeric field, enter the appropriate edit code: 1 through 4, A 
through D, J through M, or X through Z. The effect of these codes is summarized on the 
output format specifications form. We will cover the use of these codes when we discuss 
printing techniques. 


8.3.4. Blank After (Column 39) 


You use this field to cause the contents of a field to be reset to zeros or blanks after the 
field is placed in the output record. 


If you do not want a field reset, if the field is one of the RPG Il special fields, or if you have 
specified a constant in columns 45 through 70, leave this field blank. 


If you want to reset a numeric field to zeros or an alphanumeric field to blanks, enter a B 
in this field. 
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8.3.5. End Position in Output Record (Columns 40 through 43) 


You use this field to specify the location in the output record where the rightmost 
character of a field, constant, or literal is to be placed. This entry must be right-justified; 
leading zeros may be omitted. This entry can range from 0001 through 9999. For 
workstation fields, this refers to the end position of the field, not the end position of the 
field as shown on the screen. 


If the field is edited, the end position you specify must allow for any additional characters 
that are added by the edit operation. If you do not allow for this, your output fields may 
overlap. 


If the field is an unpacked numeric field and you want to write it in packed decimal format, 
you must specify a P in column 44 of this form. In addition, you must consider that when 
an unpacked field is packed, the size of the field is reduced and therefore the size that you 
specify for the output field must be smaller than that of the unpacked field. You can 
calculate the size of a field after it is packed by using the following formula: 


packed field length = unpacked field length + 1 
2 


When this formula is used, round up the quotient to the next highest whole number if it is 
not a whole number. 


For example, assume that an unpacked numeric field is specified as having a length of six 
bytes (character positions) in columns 44 through 51 of the input format specifications 
form or columns 49 through 51 of the calculation specifications form. If you apply the 
formula, the length of the output field must be 4; that is 6 + 1 = 7 = 3.5, or 4 when 
rounded up. 2 9 


If the field is a numeric field that is to be written with a preceding or following plus or 
minus sign (L or R in column 44), you must provide an additional position for the sign 
when you specify the end position for this field. 


8.3.6. Length of Screen Format Name (Columns 42 and 43) 


To use screen formats, you must name the format and specify the length of this name. 
The length is marked in these two columns with a Kn, where n is the length of the name. 
These two columns are used in conjunction with columns 45 through 54, where the 
format name for each record within a workstation terminal file is written. 


8.3.7. Data Format (Column 44) 
You use this field to specify the format of the data that is to be placed in the output record. 
You must have this field blank if the field is an alphanumeric field or an unpacked numeric 


field, if the field is to be edited, or if you have specified a constant in columns 45 through 
70. 
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lf the field is a binary field, enter a B in this field. 
If the field is to be written in packed decimal format, enter a P in this field. 


If the field is a numeric field that is to be written with a preceding plus or minus sign, 
enter an L in this field. 


If the field is a numeric field that is to be written with a following plus or minus sign, 
enter an R in this field. 


8.3.8. Constant (Columns 45 through 70) 


You use this field to specify an alphanumeric or hexadecimal constant or litera! value that 
you want to be placed in the output record. 


lf you want to place an alphanumeric constant in the output record, enter the constant in 
this field in the form ‘alphanumeric characters’. You can specify a maximum of 24 
alphanumeric characters, including blanks. Any unspecified bytes of the field are set to 
blanks. 


lf you want to place a hexadecimal constant in the output record, enter the constant in 
this field in the form X ‘hexadecimal digits’. Since each hexadecimal digit represents one- 
half byte of information, the constant you specify should consist of an even number of 
digits so that full bytes of information are produced. If the constant consists of an odd 
number of digits, full bytes of information are produced; however, the byte that the 
leftmost digit of the constant is placed in will contain zeros in the high-order bit positions. 
To illustrate this, consider the following examples: 


Constant Specified Bytes Produced 
X‘AAA’ 00001010 10101010 
X‘AAAA' 10101010 10101010 


An apostrophe in a constant must be represented by two apostrophes. 


8.3.9. Edit Word (Columns 45 through 70) 


You can usually handle the editing of a numeric field by specifying one of the edit codes in 
column 38. There are some cases, however, where special editing is needed that is not 
provided by any of the edit codes. You can handle these cases by specifying an edit word 
in this field that will provide you with the editing requirements you need. 


If the field is an alphanumeric field or you have specified an edit code in column 38, leave 
this field blank. 


If the field is a numeric field that requires special editing, enter a 1- to 24-character edit 
word in the form ‘edit word’ in this field. We will cover the use of edit words when we 
discuss printing techniques. See 14.3.2. 
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8.3.10. Format Name (Columns 45 through 54) 


A screen format name must be given to each record within a workstation terminal file. The 
name is written in columns 45 through 54. The entire 10 columns need not be filled, but 
all entries must be left-justified. Whatever name you choose, the number of characters 
used must be recorded in columns 42 and 43. Indicators cannot condition the line 
containing the format name. 


8.4. EXAMPLES OF ENTRIES ON THE OUTPUT FORMAT SPECIFICATIONS FORM 


Figure 8-2 shows you examples of typical entries on the output format specifications form. 


Explanation of entries in Figure 8-2: 


Line Number 


010 and 020 


030-060 


070-090 


Explanation 


The output file is named NEWMAS (NEWMAS in columns 7 through 14 
on line 010). The record is an exception record (E in column 15 on line 
010) that is written on the file when the MR indicator is off (N in 
column 23 and MR in columns 24 and 25 on line 010) and indicator 01 
is on (01 in columns 27 and 28 on line 010). When this record is 
written, the field named INREC (INREC in columns 32 through 37 on 
line 020) is included in the record. The rightmost character of the field 
is to be located in record position 80 (80 in columns 40 through 43 on 
line O20). 


A detail record (D in column 15 on line 030) is written on the output 
file named NEWMAS when the MR indicator is on (MR in columns 24 
and 25 on line 030) and indicator 09 is off (N in column 26 and O9 in 
columns 27 and 28 on line 030). The fields named CODE, PARNUM, 
and ITEM are included when the record is written (CODE in columns 32 
through 37 on line 040, PARNUM in columns 32 through 37 on line 
050, and ITEM in columns 32 through 37 on line O60). The rightmost 
character of the CODE field is to be located in record position 1 (1 in 
columns 40 through 43 on line 040), the rightmost character of the 
PARNUM field is to be located in record position 7 (7 in columns 40 
through 43 on line 050), and the rightmost character of the ITEM field 
is to be located in record position 24 (24 in columns 40 through 43 on 
line O60). 


The output file is named DAILYAC (DAILYAC in columns 7 through 14 
on line 070). The file is a printer file because spacing and skipping are 
indicated in columns 17 through 22. A heading record (H in column 15 
on line 070) is to be printed when the 1P (first page) indicator is on (1P 
in columns 24 and 25 on line 070) or the OF (overflow) indicator is on 
(OF in columns 24 and 25 on line O80). The printer form skips to 
channel 07 before printing (O07 in columns 19 and 20 on line 070) and 
spaces two lines after printing (2 in column 18 on line O70). The 
heading record consists of the constant DAILYAREPORT 
((DAILYAREPORT’ in columns 45 through 7O on line O90). The 
rightmost character in this constant is to be placed in print position 64 
on the form (64 in columns 40 through 43 on line O90). 
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Line Number Explanation 
100-130 A detail record (D in column 15 on line 100) is printed when the MR 


indicator is on (MR in columns 24 and 25 on line 100) and indicator 09 
is off (N in column 26 and O9 in columns 27 and 28 on line 100). The 
printer form is spaced one line after printing (1 in column 18 on line 
100). The field named QUANT (QUANT in columns 32 through 37 on 
line 110) is always included when this record is printed (columns 23 
through 31 are blank on line 110), the rightmost character of the field 
is to be printed in print position 7 (7 in columns 40 through 43 on line 
110), and zeros are to be inserted in the field after it is placed in the 
output record (B in column 39 on line 110). The field named NPRI (NPRI 
in columns 32 through 37 on line 120) is included only when indicator 
10 is on (10 in columns 24 and 25 on line 120), the rightmost 
character of the field is to be printed in print position 22 (22 in columns 
40 through 43 on line 120), and leading zeros are suppressed when the 
field is printed (Z in columns 38 on line 120). The field named DPRI 
(DPRI in columns 32 through 37 on line 130) is included only when 
indicator 11 is on (11 in columns 24 and 25 on line 130), the rightmost 
character of the field is to be printed in print position 31, and leading 
zeros are suppressed when the field is printed (Z in column 38 on line 
130). 


140 and 150 A total record (T in column 15 on line 140) is to be printed when the 
L1 indicator is on (L1 in columns 24 and 25 on line 140). The printer 
form skips to channel 02 before printing (02 in columns 19 and 20 
on line 140) and spaces two lines after printing (2 in column 18 on 
line 140). The total record consists of the constant TOTALASALES 
(‘TOTALASALES’ in columns 45 through 70 on line 150). The 
rightmost character of this constant (S) is to be placed in print 
position 17 on the form (17 in columns 40 through 43 on line 150). 





160 and 170 A total record (T in column 15 on line 160) is to be printed when the L1 
indicator is on (L1 in columns 24 and 25 on line 160). The field named 
TSLS (TSLS in columns 32 through 37 on line 170) is always included 
when this record is printed (columns 23 through 31 are blank on line 
170), the rightmost character in the field is to be printed in print 
position 13 (13 in columns 40 through 42 on line 170), and the field is 
to be edited by using an edit word (‘AAA,ASO.AA’ in columns 45 
through 70 on line 170). 
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9. File Extension Specifications Form 


9.1. GENERAL DESCRIPTION 


The file extension specifications form (Figure 9-1) is not required for every program. It is 
required if you use tables or arrays in your program. It is also required if you use a 
chaining file, record address file, or a tag (ADDROUT) file to control the retrieval of records 
from a data file because the RPG II compiler needs additional information in these cases. If 
you use tables or arrays, you use this form to specify the name of each table or array, the 
number of elements in each record, the size of the table or array, and the length, format, 
number of decimal positions, and sequence of each element. If you use a chaining file, 
record address file, or tag (ADDROUT) file, you use this form to relate the controlling file to 
the data file. 


9.2. FORM ENTRIES 


In the following subsections you'll see what each field on the form is used for and how 
the entries in these fields affect your program. 


9.2.1. Record Sequence of Chaining File (Columns 7 and 8) 


You use this field to specify the sequence of the records in the chaining file when you 
use input chaining (C1 through C9 chaining indicators). The record sequence that you 
specify must be the same as that specified for the chaining file in columns 15 and 16 
on the input format specifications form. If you use the CHAIN operation, this field is not 
used. In SPERRY UNIVAC 9200/9300 and IBM 360/20 mode, this field must be blank. 


9.2.2. Number of the Chaining Field (Columns 9 and 10) 


You use this field to specify the number of the chaining field when you use input chaining 
(C1 through C9 chaining indicators). The number of the chaining field that you specify 
must be the same as that specified for the chaining field in columns 61 and 62 on the 
input format specifications form. If you use the CHAIN operation, this field is not used. 
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9.2.3. From File Name (Columns 11 through 18) 


You use this field in conjunction with the to-file-name field (columns 19 through 26) to 
specify the relationship between two or more files in your program. The entries in these 
fields are summarized in Table 9-1. 


If you intend to load a table or array at compilation time, or if you intend to use the input 
format or calculation specifications form to create an array, leave this field blank. 


If you intend to load a table or array at execution time, enter the name of the table or 
array file in this field. 


If you are using a chaining file, record address, or tag (ADDROUT) file to control the 
retrieval of records from a data file, enter the name of the controlling file in this field. 


All entries in this field must be left-justified. The file name that you enter must be the 
same as that specified in columns 7 through 13 of the file description specifications form. 


9.2.4. To File Name (Columns 19 through 26) 


You use this field in conjunction with the from-file-name field (columns 11 through 18) to 
specify the name of the data file that is to be processed by a chaining, record address, or 
tag (ADDROUT) file or to specify the name of the output file that a table or array file is to 
be written on at end-of-job. The entries in these fields are summarized in Table 9-1. 


If you intend to use the input format or calculation specifications form to create an array 
or you do not want a table or array to be written on an output file at end-of-job, leave this 
field blank. 


if you are using a chaining, record address, or tag (ADDROUT) file to control the retrieval 
of records from a data file, enter the name of the data file in this field. 


If you want to write a table or array file on an output file at end-of-job, enter the name of 
the output file in this field. A unique output file name must be specified for each table or 
array file that you want to write at end-of-job. A table or array output file must be 
specified as fixed format file. All entries in this field must be left-justified. The file name 
that you enter must be the same as that specified in columns 7 through 13 of the file 
description specifications form. 
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Table 9—1. Summary of From File Name and To File Name Entries 















From File Name 
(Columns 11 through 18) 


To File Name 
(Columns 19 through 26) 







Fite Type 










Array created by input 
format or calculation 
specifications form 






















The name of the file 
that contains the table 
or array 


Table or array loaded 
at execution time 


The name of the output 
file that the table or 
array is written on at 
end-of-job. If the table 
or array is not to be 
written, this entry must 
be blank. 















Table or array loaded 
at compilation time 


The name of the output 
file that the table or 
array is written on at 
end-of-job. If the table 
or array is not to be 
written, this entry 

must be blank. 























The name of the data file 
(chained file) that is 

processed by the chaining 
file 


The name of the chaining 
file that contains the 
chaining field 


Chaining file 
























The name of the data file 
that is processed by the 
record address file 


The name of the record 
address file that contains 
the keys or record 

addresses 


Record address file 


















The name of the data file 
that is processed by the 
tag (ADDROUT) file 


Tag (ADDROUT) file The name of the tag file 
that contains the record 


addresses 













9.2.5. Table or Array Name (Columns 27 through 32) 


You use this field to specify the name of a table or array that is used in your program. A 
table or array file can consist of a single table or array (solitary format) or two tables or 
arrays (alternating format). The input records in solitary format contain the individual 
elements of a table or array. In alternating format, they contain the individual elements of 
two tables or arrays, and the elements are alternated. In this case, an element from the 
first table or array is always followed by an element from the second table or array in the 
input records. 


If a table or array file is in solitary format, you use this field to specify the name of a single 
table or array. 


If the table or array file is in alternating format, you use this field to specify the name of 
the first table or array. The name of the second table or array is specified in columns 46 
through 51. © 
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If you are specifying an array name for an array in solitary format or the name of the first 
array in alternating format, enter the array name in the form of one to six alphanumeric 
characters. An array name cannot begin with TAB. If you are specifying a table name for a 
table in solitary format or the name of the first table in alternating format, enter the table 
name in the form TABaaa, where aaa is any combination of alphanumeric characters. 


All entries in this field must be left-justified. 


The total number of tables and/or arrays (including alternate tables and arrays) in each 
program cannot exceed 325. 


9.2.6. Number of Entries per Record (Columns 33 through 35) 


You use this field to specify the number of table or array elements that are contained in 
each record. If you intend to use the input format or calculation specifications form to 
create an array, leave this field blank. If this field is blank, the array cannot be written on 
an output file at end-of-job; consequently, the to-file-name field (columns 19 through 26) 
must also be blank in this case. 


If the table or array is not created by the input format or calculation specifications form, 
enter the number of table or array elements (001 through 999) in each record. Each record 
except the last must contain exactly the number of table or array elements that you 
specified. 


All entries in this field must be right-justified; leading zeros may be omitted. 


9.2.7. Number of Entries per Table or Array (Columns 36 through 39) 

You use this field to specify the maximum number of elements (0001 through 9999) that 
can be contained in a table or array. If you anticipate expansion, you can specify a greater 
number of elements than is actually required. If a table contains fewer elements than the 
maximum specified, the unused space is filled with blanks or zeros as appropriate. 


All entries in this field must be right-justified; leading zeros may be omitted. 


9.2.8. Length of Entry (Columns 40 through 42) 

You use this field to specify the length of each table or array element (001 through 256). 
The maximum length for numeric elements is 15 digits and the maximum length for 
alphanumeric elements is 256 characters. 


If the format of the table or array elements is binary (B in column 43), the entry in this 
field must be four or nine digits. 


If the table or array elements are preceded or followed by a sign (L or R in column 43), the 
length must include one additional position for the sign. 


All entries in this field must be right-justified; leading zeros may be omitted. 
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9.2.9. Data Format (Column 43) 

You use this field to specify the format of the data in the table or array elements. 

If the table or array elements are in alphanumeric format or unpacked decimal format, or if 
you are using the input format or calculation specifications form to create an array, leave 
this field blank. 

If the table or array elements are in binary format, enter a B in this field. 


If the table or array elements are in packed decimal format, enter a P in this field. 


If the table or array elements are numeric and are preceded by a plus or minus sign, enter 
an L in this field. 


If the table or array elements are numeric and are followed by a plus or minus sign, enter 
an R in this field. 
9.2.10. Decimal Positions (Column 44) 


You use this field to specify the number of decimal positions in the table or array 
elements. 


If the table or array elements are alphanumeric, leave this field blank. 

If the table or array elements are numeric, you must enter the number of decimal 
positions (O through 9) in this field. This entry is required even if the numeric elements do 
not contain any decimal positions; that is, if the table or array elements are in unpacked 
decimal format, or if B, P, L, or R is specified in column 43, an entry must be made in this 
field. The number of decimal positions you specify must be less than or equal to the length 
specified in columns 40 through 42. 

9.2.11. Sequence (Column 45) 


You use this field to specify the sequence of data in a table or array. 


If the sequence of data in the table or array is not critical to your program, leave this field 
blank. 


If the data in the table or array is in ascending order, enter an A in this field. 
If the data in the table or array is in descending order, enter a D in this field. 
If A or D is specified, sequence checking is performed when the table or array is loaded. It 
is not performed if you use the input format or calculation specifications form to create an 


array. 


If you specify a LOKUP operation with high or low resulting indicators on the calculation 
specifications form, you must enter an A or D in this field. 
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9.2.12. Table or Array Name (Columns 46 through 51) 


You use this field to specify the name of the second table or array when alternating format 
is used. The name of the first table or array is specified in columns 27 through 32. 


if a table or array is not specified or the table or array is in solitary format, leave this field 
blank. 


If you are specifying the array name for the second array in alternating format, enter the 
array name in the form of one to six alphanumeric characters. An array name cannot 
begin with TAB. 

If you are specifying the table name for the second table in alternating format, enter the 
table name in the form TABaaa, where aaa is any combination of alphanumeric 
characters. 


All entries in this field must be left-justified. 


9.2.13. Length of Entry (Columns 52 through 54) 

You use this field to specify the length of each element (001 through 256) in the second 
table or array when alternating format is used. The maximum length for numeric elements 
is 15 digits and the maximum length for alphanumeric elements is 256 characters. 


If the format of the table or array elements is binary (B in column 55), the entry in this 
field must be four or nine digits. 


If the table or array elements are preceded or followed by a plus or minus sign (L or R in 
column 55), the length must include one additional position for the sign. 


All entries in this field must be right-justified; leading zeros may be omitted. 


9.2.14. Data Format (Column 55) 


You use this field to specify the data in the elements of the second table or array when 
alternating format is used. 


If the table or array elements are in alphanumeric format or unpacked decimal format, or if 
you are using the input format or calculation specifications form to create an array, leave 
this field blank. 

If the table or array elements are in binary format, enter a B in this field. 


lf the table or array elements are in packed decimal format, enter a P in this field. 


If the table or array elements are numeric and are preceded by a plus or minus sign, enter 
an L in this field. 


If the table or array elements are followed by a plus or minus sign, enter an R in this field. 
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9.2.15. Decimal Positions (Column 56) 


You use this field to specify the number of decimal positions in the elements in the second 
table or array when alternating format is used. if the table or array elements are 
alphanumeric, leave this field blank. 


If the table or array elements are numeric, you must enter the number of decimal 
positions (O through Q) in this field. This entry is required even if the numeric elements do 
not contain any decimal positions; that is, if the table or array elements are in unpacked 
decimal format or P, B, L, or R is specified in column 55, an entry must be made in this 
field. The number of decimal positions you specify must be less than or equal to the length 
specified in columns 52 through 54. 


9.2.16. Sequence (Column 57) 


You use this field to specify the sequence of the data in the second table or array when 
alternating format is used. The entry you make in this field must be the same as that 
specified in column 45. 


If column 45 is blank, leave this field blank. If the data in the table or array is in ascending 
order, enter an A in this field. 


If the data in the table or array is in descending order, enter a D in this field. 

If A or D is specified, sequence checking is performed when the table or array is loaded. It 
is not performed if you use an input format or calculation specifications form to create an 
array. 

If you specify a LOKUP operation with high or low resulting indicators on the calculation 
specifications form, you must specify A or D in this field. 

9.2.17. Comments (Columns 58 through 74) 

You can use this field to make comments that relate to the entries on the individual lines 
on this form. When your program is compiled, these comments will have no effect on the 
compilation process; however, they will be printed on the source program listing that is 
produced. 


9.3. EXAMPLES OF ENTRIES ON THE FILE EXTENSION SPECIFICATIONS FORM 


Figure 9-2 shows you examples of typical entries on the file extension specifications form. 
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FILE EXTENSION SPECIFICATIONS 


ALTERNATING FORMAT 





RECORD SEQUENCE 
OF CHALNING FILE 


NUMBER OF THE NUMBER 


CHAINING FIELD LENGTH 


TO TABLE OR OF ENTRIES OF 
FILE NAME ARRAY NAME PER TABLE 
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OR ARRAY ENT 


SEQUENCE 


FROM 
FILE NAME 
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Figure 9—2. Examples of Entries on File Extension Specifications Form 


PBLR DATA FORMAT 
DECIMAL POSITIONS 
SEQUENCE 


01-99 or AA-2Z 


Zand 












































Explanation of entries in Figure 9-2: 
Line Number Explanation 


010 The file named INPUT (INPUT in columns 11 through 18) is used to chain 
the file named MASTER (MASTER in columns 19 through 26). INPUT is the 
chaining file and MASTER is the chained file. The records on the file named 
MASTER are selected for processing by a chaining field that is contained in 
the records on the file named INPUT. The number of the chaining field is C1 
(C1 in columns 9 and 10). This field is the one defined on the input format 
specifications form that contains C1 in columns 61 and 62. The records on 
the chaining file, INPUT, are not arranged in any special sequence (AA in 
columns 7 and 8). 


020 The file named RAF (RAF in columns 11 through 18) is the record address 
file that is used to supply the addresses of the records that are to be 
processed from the file named UPDATE (UPDATE in columns 19 through 
26). 


ee te ee SP ee eS ee ge ee ee ee. 
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Line Number Explanation 





030 The file named TABLE (TABLE in columns 11 through 18) is a table file that 
is loaded at execution time and contains two tables in alternating format 
(TAB100 in columns 27 through 32 and TAB200 in columns 46 through 51). 
Each record contains 20 elements (20 in columns 33 through 35), and there 
are 200 elements in each table (200 in columns 36 through 39). Each 
element in TAB100 is 10 characters in length (10 in columns 40 through 
42), the elements are numeric and have no decimal positions (0 in column 
44), and the records are in ascending sequence (A in column 45). Each 
element in TAB200 is 10 characters in length (10 in columns 52 through 
54), and the elements are numeric with 2 decimal positions (2 in column 
56). After the tables are updated, they will be written on the file named 
OUTBLE (OUTBLE in columns 19 through 26). 


040 The array ARR1 (ARR1 in columns 27 through 32) is created on the input 
format specifications form or the calculation specifications form, there are 
100 elements in the array (100 in columns 36 through 39), each element is 
5 characters in length (5 in columns 40 through 42), and the elements are 
numeric with 2 decimal positions (2 in column 44). 


050 DOT and APC are arrays in alternating formats that are loaded at 
compilation time (DOT in columns 27 through 32 and APC in columns 46 
through 51). Each record contains 8 elements (8 in columns 33 through 35), 
there are 200 elements in each array (200 in columns 36 through 39), each 
element in DOT is 4 characters in length (4 in columns 40 through 42) and 
alphanumeric (column 44 is blank), and DOT is in ascending sequence (A in 
column 45). Each element in APC is five characters in length (5 in columns 
52 through 54), and the elements are numeric with two decimal positions (2 
in column 56). These arrays are to be written on the file named PRINT at 
end-of-job (PRINT in columns 19 through 26). 





O60 The file named ARFILE (ARFILE in columns 11 through 18) is an array file 
that is loaded at execution time and contains two arrays in alternating 
format (DOT in columns 27 through 32 and APC in columns 46 through 51). 
Each record contains 8 elements (8 in columns 33 through 35), and there 
are 200 elements in each array (200 in columns 36 through 39). Each 
element in DOT is four characters in length (4 in columns 40 through 42) 
and alphanumeric (column 44 is blank), and DOT is in ascending sequence 
(A in column 45). Each element in APC is five characters in length (5 in 
columns 52 through 54) and the elements are numeric with two decimal 
positions (2 in column 56). 
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10. Line Counter Specifications Form 


10.1. GENERAL DESCRIPTION 


The line counter specifications form (Figure 10-1) is not required for every program. It is 
required if you want to store a report on an intermediate tape or disk file so that it can be 
printed at some more convenient time when your system is not being used to its fullest 
capacity. You use this form, in this case, to place in the intermediate file the printer 
carriage control information (home paper, forms overflow, and line skipping information) 
related to the lines on the report. When the intermediate file is ultimately printed (using 
the file processing utility as described in the data utilities user guide), the carriage control 
information that was placed in the file will cause the printer carriage to perform as if the 
report were being printed at the time your program was executed. 


In the IBM System/3 mode, this form is used to indicate the length of the printer/output 
form and at what line overflow occurs for a printer output file. If a line counter 
specification is not present for a printer file, the form length and overflow line are 
determined from the // VFB statement in the job control stream. 


10.2. FORM ENTRIES FOR ALL MODES OTHER THAN THE IBM SYSTEM/3 MODE 
In the following subsections you'll see what each field on the form is used for and how 
the entries in these fields affect your program. 
10.2.1. File Name (Columns 7 through 14) 
You use this field to specify the name of the intermediate output file you want your report 
written on. The name you specify must be the same as that specified for this file in 


columns 7 through 13 on the file description specifications form. This entry must be left- 
justified. 
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Figure 10—1. Line Counter Specifications Form 
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10.2.2. Line Number (Columns 15 through 17, 20 through 22, 25 
through 27,..., 70 through 72) 


You use this field to relate a line number on your report, as you have laid it out on the 
printer format chart, to a channel number that will cause the printer carriage to perform a 
line skipping, forms overflow, or home paper function for the report. This entry must be 
right-justified. Leading zeros may be omitted. 


10.2.3. Channel Number (Columns 18 and 19, 23 and 24, 28 and 29,..., 73 and 74) 
You use this field to specify the channel number that will cause the printer carriage to 
perform a line skipping, forms overflow, or home paper function. Channel 1 must be 
specified for the forms overflow function and channel 7 for the home paper function. All 
entries in this field must be right-justified. The leading zero may be omitted. 

10.3. FORM ENTRIES FOR THE IBM SYSTEM/3 MODE 

In the following subsections you'll see how each field on the form is used in the IBM 
System/3 mode and how the entries in these fields affect your program in this mode. 
10.3.1. File Name (Columns 7 through 14) 

You use this field to specify the name of the printer output file. The name you specify 
must be the same as that specified for this file in columns 7 through 13 on the file 
description specifications form. This entry must be left-justified. 

10.3.2. Line Number - Number of Lines per Page (Columns 15 through 17) 

You use this field to specify the exact number of lines per page on the printed report. This 
entry must be right-justified and may range from 12 through 112. Leading zeros may be 
omitted. If less than 12 lines or more than 112 is specified, the minimum limit (12 lines) 
will be assumed. 

10.3.3. Channel Number - Form Length Indicator (Columns 18 and 19) 

You use this field to indicate that the preceding entry (columns 15 through 17) is the form 
length. This is done by entering FL in this field. 

10.3.4. Line Number - Overflow Line (Columns 20 through 22) 

You use this field to specify the line number associated with forms overflow; that is, the 


line on the printed page where forms overflow is to occur. This entry must be right- 
justified and may range from 1 to 112. 


UP-8067 Rev. 6 SPERRY UNIVAC OS/3 10-4 
RPG Il 





10.3.5. Channel Number - Overflow Line Indicator (Columns 23 and 24) 

You use this field to indicate that the preceding entry (columns 20 through 22) is the 

overflow line. This is done by entering OL in this field. 

10.3.6. Line Number (Columns 25 through 27,..., 70 through 72) and Channel 
Number (Columns 28 and 29.,..., 73 and 74) 


These fields are not used in the IBM System/3 mode. 


10.4. EXAMPLES OF ENTRIES ON THE LINE COUNTER SPECIFICATIONS FORM 


Figure 10-2 shows you examples of typical entries on the line counter specifications form. 


LINE COUNTER SPECIFICATIONS 
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Figure 10—2. Examples of Entries on Line Counter Specifications Form 


Explanation of entries in Figure 10-2: 
Line Number Explanation 


010 The file named LINECNT (LINECNT in columns 7 through 14) is a line counter file. 
The home paper channel (07) corresponds to line 5 of the report form (07 in 
columns 18 and 19, and 5 incolumns 15 through 17). Channel O02 corresponds 
to line 19 of the report form (02 in columns 23 and 24, and 19 in columns 20 
through 22). Channel 03 corresponds to line 38 of the report form (03 in columns 
28 and 29, and 38 in columns 25 through 27). The forms overflow channel (01) 
corresponds to line 48 of the report form (01 in columns 33 and 34, and 48 in 
columns 30 through 32). 
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Line Number Explanation 


020 


030 


The file named DEFOUT (DEFOUT in columns 7 through 14) is a line counter 
file. The home paper channel (07) corresponds to line 10 of the report form 
(07 in columns 18 and 19, and 10 in columns 15 through 17). The forms 
overflow channel (01) corresponds to line 59 on the report form (01 in 
columns 23 and 24, and 59 in columns 20 through 22). 


IBM System/3 mode: The file named TRIMODFL (TRIMODFL in columns 7 
through 14) is a printer file. The number of lines per page is 56 (56 in 
columns 15 through 17 and FL in columns 18 and 19). The overflow line is 
line 40 (40 in columns 20 through 22 and OL in columns 23 and 24). 
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11. Telecommunications Specifications 
Form 


11.1. GENERAL DESCRIPTION 


The telecommunciations form (Figure 11-1) is not required for every program. You use this 
form to specify which files in your program are data communications files, whether the 
remote terminal is connected to a multiplexer, how the files are used (data on the file is to 
be received from or transmitted to a remote terminal), whether any hexadecimal character 
can be transmitted as data, how the connection is to be made when a remote terminal is 
connected on switched line, the type of remote terminal, what program indicator is set on 
if a transmission or reception error occurs, the amount of time allowed between terminal 
messages for your program to complete a program cycle, how the file is to be processed, 
the auxiliary device on a remote terminal that you want to use, and the terminal name. 


The telecommunications specifications form should not be used for an IMS action 
program. All IMS telecommunications processing is handled by IMS. 


11.2. FORM ENTRIES 


In the following subsections you'll see what each field on the form is used for and how 
the entries in these fields affect your program. 


11.2.1. File Name (Columns 7 through 13) 


You use this field to specify the name of a data communications file from which your 
program is to receive data or to which it is to transmit data. The name that you specify 
must be the same name that you specified for this file in columns 7 through 13 of the file 
description specifications form. 


If more than one interactive terminal is associated with the same file, the file name must 
be repeated on successive contiguous lines for each terminal. An asterisk (*) can be placed 
in column 14 to indicate the file name is being repeated. If file names are repeated, 
columns 16 through 47, column 52, and columns 55 through 7O must be blank for all 
lines following the line that specifies the file name for the first time. 


The file name must be unique for batch terminals, auxiliary devices, and output files. 
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Figure 11—1. Telecommunications Specifications Form 
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11.2.2. Configuration (Column 15) 


You use this field to specify whether or not a UNISCOPE 100 or UNISCOPE 200 Display 
Terminal is attached to a multiplexer. 


If the terminal is not attached to a multiplexer, leave this field blank. If the terminal is attached 
to a multiplexer, enter one of the following characters in this field: A through L, N, O, Q, R, or T 
through Z. A unique character must be used for each multiplexer. If more than one terminal is 
attached to the same multiplexer, all of the terminals must be associated with the same file 
name, their specifications must appear on contiguous lines, and the file name and the 
character selected for the multiplexer must be repeated on each line. 


11.2.3. Type of Station (Column 16) 


You use this field to specify whether the data on the file is to be received from or transmitted toa 
remote terminal. 


If the data on the file is to be received from a remote terminal, enter an R in this field. If you use 
this entry, the file must be specified as an input or combined file on the file description 
specifications form and the file name must appear on the input format specifications form. 
If the data on the file is to be transmitted to a remote terminal, enter a T in this field. If you use 
this entry, the file must be specified as an output or combined file on the file description 
specifications form and the file name must appear on the output format specifications form. 


11.2.4. Transparency (Column 19) 


You use this field to specify whether or not the transparent mode, which allows any 
hexadecimal value to be transmitted as data, is used. 


If the transparent mode is not used, leave this field blank or enter an N. In this case, the data 
must not contain any control characters. 


If the transparent mode is used, enter a Y in this field. 


11.2.5. Switched (Column 20) 

You use this field to specify how the connection is to be made when the remote terminal is 
connected on a switched line. In this situation, the central processor and the remote terminal 
have to be connected before data can be transmitted or received. 


if the remote terminal is not connected on a switched line, leave this field blank. 


If the central processor automatically accepts calls from the remote terminal (auto answer), 
enter an A in this field. This entry is required for interactive terminals. 


If the operator at the central processor must answer the call (manual answer), enter a B in this 
field. 
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If the program automatically dials the number of the remote terminal (autocall), enter anEorS & 
in this field. 





If the operator at the central processor must dial the number of the remote terminal (manual 
call), enter an M in this field. 
11.2.6. Remote Terminal (Columns 48 through 51) 


You use this field to specify the type of remote terminal that is being used. The entry must be 
left-justified. 


If you are using a device that is operating in the binary synchronous communications mode 
(usually computer to computer), leave this field blank or enter BSC. 


If a teletypewriter is used, enter TTY in this field. 

If a UNISCOPE 100 Display Terminal is used, enter 100 in this field. 

If a UNISCOPE 200 Display Terminal is used, enter 200 in this field. 

lf a DCT 500 data communications terminal is used, enter 500 in this field. 


If a DCT 524 data communications terminal is used, enter 524 in this field. 





if a DCT 1000 data communications terminal (batch mode only) is used, enter 1000 in this field. 
If a 1004 card processor system is used, enter 1004 in this field. 

lf a DCT 2000 data communications terminal is used, enter 2000 in this field. 

If an IBM 2780 data transmission terminal is used, enter 2780 in this field. 


If a 9200/9300 series system is used, enter 9300 in this field. 


11.2.7. Permanent Error Indicator (Columns 53 and 54) 


You use this field to specify the program indicator you want set on when a permanent error 
occurs during the reception or transmission of a data record. The setting of the indicator can be 
used to cause an error handling routine (such as controlled program termination or message 
display) to be executed. 


If you leave this field blank, your program is automatically terminated when a permanent error 
occurs. 


If you want to specify an indicator that is to be set on whena permanenterror occurs, enter the 
indicator in this field. You can specify a general indicator (01 through 99), a halt indicator (H1 
through HQ), a control level indicator (L1 through LQ), or the last record indicator (LR). 





| ese ee ——————— 
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& 11.2.8. Wait Time (Columns 55 through 57) 


You use this field to specify the amount of time (in seconds) allowed between terminal 
messages for your program to complete a program cycle. 


The entry in this field may range from 001 to 999. The entry must be right-justified; leading 
zeros may be omitted. 


If the time limit is not set high enough to allow the program to complete all record processing, 


the permanent error indicator will be set on. The time limit does not apply between file 
transmissions. 


11.2.9. Last File (Column 60) 

When you have specified a data communications file as a secondary file on the file description 
specifications form, this file is normally processed in the order it appears on that form. You can 
use this field to specify that the data communications file be processed only after the primary 


file and all other secondary files have been processed. 


If you want the file to be processed in the order it appears on the file description specifications 
form, leave this field blank. 


If you want the file to be processed after the primary file and all other secondary files have been 
@ processed, enter an L in this field. 

11.2.10. Remote Device (Columns 65 through 70) 

You use this field to specify the selection of an auxiliary device that is attached to a remote 

terminal. Entries in this field must be left-justified and are used in conjunction with the entries 

in the remote terminal field (columns 48 through 51). These entries are summarized in Table 

11-1. 

If you do not want to select an auxiliary device, leave this field blank. 

If you want to select an auxiliary card punch, enter PCH in this field. 

lf you want to select an auxiliary printer, enter PRNTR in this field. 

If you want to select an auxiliary card reader, enter RDR in this field. 

If you have specified 2780 (IBM 2780 data transmission terminal) in the remote terminal field 


(columns 48 through 51), 1442-1, 1442-2, and 1443 can be substituted for RDR, PCH, and 
PRNTR, respectively. 
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Table 11—1. Summary of Remote Terminal and Remote Device Entries 





Remote Auxiliary Remote Remote 
Terminal Device Terminal Device 
(Columns (Columns 
48 through 51) 65 through 70) 


SPERRY UNIVAC DCT 1000 Card 1000 
Data Communications Terminat punch 

SPERRY UNIVAC DCT 2000 Card 2000 
Data Communications Terminal punch 

SPERRY UNIVAC 1004 Card Card 

Processor System punch 


Card 2780 
punch 
1442-2 
IBM 2780 Data Transmission 
Terminal Card 2780 
reader ° 
1442-1 
Printer 2780 PRNTR 
or 
1443 


11.2.11. Terminal Name (Columns 71 through 74) 


PCH 
PCH 
PCH 
SPERRY UNIVAC 9200/9300 Series Card 9300 PCH 
punch 
PCH 
or 
RDR 
r 





You use this field to specify the name of the remote terminal that is associated with the data 
communications file. This name must be the name that was specified for the terminal when the 
network was defined. 


11.3. EXAMPLES OF ENTRIES ON THE TELECOMMUNICATIONS SPECIFICATIONS 
FORM 


Figure 11-2 shows you examples of typical entries on the telecommunications specifications 
form. 
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Figure 11—2. Examples of Entries on Telecommunications Specifications Form 


Explanation of Entries in Figure 11-2: 
Line Number Explanation 


010-030 The communications file is named OUTCOM (OUTCOM in columns 7 
through 13). The data on the file is to be transmitted (T in column 16). The 
transparent mode is not used (column 19 is blank). Switched lines are used 
and the called station automatically accepts the call from the calling station 
(A in column 20). There are three remote terminals associated with this file 
and the specifications on line 010 in columns 16, 19, 20, and 55 through 57 
apply to all three terminals (* in column 14 on lines 020 and 030). Two DCT 
500 data communications terminals and one teletypewriter are used (500 in 
columns 48 through 51 on lines 010 and 020 and TTY on line 030), the 
permanent error indicators are 61, 62, and 63 (61 on line 010, 62 on line 
020, and 63 on line 030), the wait time is 200 seconds for all terminals 
(200 in columns 55 through 57), and the terminal names are OUT1, OUT2, 
and OUT3 (OUT1 in columns 71 through 74 on line 010, OUT2 on line 020, 
and OUT3 on line 030). 











PART 3. USING RPG Il 
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12. Controlling RPG II 


12.1. GENERAL 


As you know, each RPG {I program that you write goes through the same general program 
processing logic. Because no two programs are exactly alike, you have to control how the 
program processing logic is applied in each case so that the steps in a program are performed 
when you want them to be performed. You do this by using a series of indicators that work in 
conjunction with the RPG li program processing logic. These indicators are 2-character 
alphabetic, numeric, or alphanumeric entries. To use an indicator, you must define the 
conditions that set it on. This is done either by placing an entry in the appropriate field on the 
specifications forms or by defining an entry externally. When the indicator has been defined, 
you then specify the program step or series of steps that you want performed when the 
indicator is set on by placing that indicator in the field on the specifications form that is 
associated with the program step or steps. 


12.2. INDICATORS DEFINED ON THE RPG II SPECIFICATIONS FORMS 


There are five types of indicators that are defined on the specifications forms. They are the 
record identifying indicator, control level indicator, field indicator, resulting indicator, and 
overflow indicator. 


12.2.1. Record Identifying Indicator 


A record identifying indicator is used to identify a type of record in your program. It consists of a 
2-character entry that is placed in columns 19 and 20 of the input format specifications form. 
The permissible entries are 01 through 99, L1 through LY, LR, and H1 through H9. The entry 
that you place in these columns is the record identifying indicator that is defined for this type of 
record. This indicator is set on only when the record selected for processing contains the record 
identification codes that are specified for it in columns 21 through 41. 


The record identifying indicator is set on when the record is selected for processing but 
before the input data is moved to the input field. It remains on until you set it off by using 
a SETOF operation during the cycle or until the end of the cycle when RPG Il sets it off. 


Figure 12-1 shows you some examples of how to specify record identifying indicators. 
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Figure 12—1. Examples of Specifying Record Identifying Indicators 


In Figure 12-1, the record identification codes for the record type on lines 010 through 030 are 
shown in an AND relationship. This is done because more than three identification codes are 
required for this record type. This record must have the character A in record position 3, the 
character B in record position 5, the character C in record position 7, and the character D in 
record position 9 to cause record identifying indicator 01 to be set on. The record identification 
codes for the record type on lines 050 and 060 are shown in an OR relationship. This is done 
because either set of record identification codes will cause record identifying indicator 02 to be 
set on; that is, if the character 4 is in record position 3 and the character 6 is in record position 5, 
the indicator will be set on, or it will be set on if the character 9 is in character position 7. 


On lines 090 through 130, the OR relationship is used to describe two record types that contain 
fields named CLASS3 and CLASS4, with CLASS3 in the same position in both record types. If 
the record contains the character Y in record position 3, record identifying indicator 03 is set on. 
If the record contains the character R, record identifying indicator 04 is set on. When either 
indicator is on, CLASS3 is in record positions 21 through 30. When indicator 03 is on, CLASS4 
is in record positions 31 through 40. When indicator 04 is on, CLASS4 isin record positions 41 
through 50. This occurs because of the indicator entries in columns 63 and 64 (field record 
relation) that associate the CLASS4 field with specific record types. When columns 63 and 64 
are blank, the field is common to all record types. 














UP-8067 Rev. 6 SPERRY UNIVAC OS/3 12-3 
RPG I! 





12.2.2. Control Level indicator 


A control level indicator is used to indicate that a particular field in the input record is a control 
field. It consists of a 2-character entry that is placed in columns 59 and 60 of the input format 
specifications form. The permissible entries are L1 through L9. The entry that you place in 
these columns is the control level indicator that is defined for the input record field that you 
have chosen as a control field. Each time a record is read, the data in the control field is 
compared with the data from the same field in the previous record. If the contents of these fields 
are not the same, a control break occurs, the specified control level indicator is set on, and the 
total time processing that is conditioned by this indicator is executed. 


The lowest control level is L1 and the highest is LO. This ranking causes all lower-level control 
level indicators to be set on when a control break occurs. For example, if a control break occurs 
and L9 is specified as the control level indicator, control level indicators L1 through L8 will also 
be set on. The Setting on of the lower level control indicators only occurs in conjunction with a 
control break. If a control level indicator is specified as a record identifying indicator in columns 
19 and 20 of the input specifications form or as a resulting indicator in columns 54 through 59 
of the calculation specifications form, only the indicator specified will be set on when the 
specified conditions are met. 


When you have different types of records in your program and you use control level indicators, 
each type of record normally contains the same number of control fields. There are occasions, 
however, where you need to have more control fields in one record type than in another. In 
these cases, you run into the problem of unwanted control breaks. 


For example, assume that you are writing a program that will list the individual shipments of a 
particular item, the total number of this item that was shipped, and the total of all items that 
were shipped from two different warehouses. In this application, there are two types of records: 
the warehouse identification record and the item record. The format of these records is shown 
in Figure 12-2. 


WAREHOUSE RECORD 


WAREHOUSE 
NUMBER WAREHOUSE NAME 


(L2) 





ITEM RECORD 













AMOUNT 
SHIPPED 






WAREHOUSE 
NUMBER 
2 


(L2) 3 





Figure 12—2. Unwanted Control Break Example — Input Records 
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In order to get the desired result, you must have a control break each time the warehouse 
number in the warehouse record changes and each time the item number in the item record 
changes. This means that the warehouse number and item number must be specified as 
control fields. Since the warehouse number appears in both record types, you have the 
situation where the item record contains two control fields and the warehouse identification 
record contains one control field. If you do not provide for this by including the entries enclosed 
in heavy lines in Figure 12-3, you will have an unwanted control break each time a warehouse 
identification record is followed by an item record. This would happen because the item number 
field in the item record is used as the L1 control field and this field would be compared to the 
same record positions in the warehouse identification record. The comparison would always be 
unequal in this case; consequently, an L1 control break would always occur at this point and the 
incorrect output shown in Figure 12-4 would result. 


If you include the entries enclosed in the heavy lines in Figure 12-3, you can avoid unwanted 
control breaks because when a warehouse identification record (01) is read, the entries on line 
010 of the calculation specifications form set indicator 07 on. When an item record (02) is read 
following the warehouse identification record, an unwanted L1 control break occurs; however, 
the L1 total time output on line 070 of the output format specification is not printed because 
indicator 07 is on. The program then performs the detail time calculations for the item record. 


indicator 07 turns off, allowing L1 control break output to occur normally so that the correct 
output shown in Figure 12-4 will be produced. 
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Figure 12—3. Unwanted Control Break Example — Entries to Avoid Incorrect Output (Part 1 of 2) 
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Figure 12—3. Unwanted Control Break Example — Entries to Avoid Incorrect Output (Part 2 of 2) 
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a. Incorrect output 
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WAREHOUSE TOTAL 
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WAREHOUSE TOTAL 


GRAND TOTAL 





b. Correct output 


Figure 12—4. Unwanted Control Break Example — Outputs 
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12.2.3. Field Indicator 


A field indicator is used to indicate that a particular field in the input record is to be tested 
to see if it is plus or minus or contains all zeros or blanks. Numeric fields can be tested for 
any of these conditions; alphanumeric fields can only be tested for all blanks. The field 
indicator consists of a 2-character entry that you place in the appropriate field in columns 
65 through 70 of the input format specifications form. The permissible entries are 01 
through 99 and H1 through H9. The entry that you place in these columns is the field 
indicator that is defined for the field to be tested. Each time a record is read, the data in 
the specified field is tested for the condition you indicated; if it is met, the field indicator is 
set on. The field indicator remains on until another record is read that does not meet the 
specified condition. 


The same field indicator may be specified for two conditions, in which case the indicator will be 
set on when a record is read that satisfies either condition. 


if S is specified in column 42 of the control card specifications form and a zero or blank indicator 
is specified for a field in columns 69 and 70 of the input format specifications form, the setting 
on and off of this indicator will differ from the normal process. In this case, the zero or blank 
indicator for a field will be set on if the field is reset to all zeros or blanks by a blank after 
specification (B in column 39) on the output format specifications form. 


12.2.4. Resulting Indicator 


A resulting indicator is used to indicate that the result of an operation is to be tested for a 
specified condition. A resulting indicator consists of a 2-character entry that you place in 
the appropriate field in columns 54 through 59 of the calculation specifications form. The 
permissible entries are 01 through 99, L1 through L9, LR, HO through HY, OA through 
OG, OV, U1 through U8, KA through KN, and KP through KW. The entry that you place in 
these columns is the resulting indicator that is defined for the associated operation. The 
resulting indicator is set on if the associated operation is executed and the specified 
condition is met. The resulting indicator remains on either until the operation is executed 
again and the specified condition is not met or until you set it off by using a SETOF 
operation. The conditions that a resulting indicator can be used to indicate depend on the 
type of operation it is used with. 


# # Arithmetic Operation 


The resulting indicator indicates the status of the contents of the result field. If a 
resulting indicator is specified in columns 54 and 55 (plus), the indicator will be set 
on if the contents of the result field are greater than zero. If an indicator is specified 
in columns 56 and 57 (minus), the indicator will be set on if the contents of the result 
field are less than zero. If an indicator is specified in columns 58 and 59 (zero), the 
indicator will be set on if the contents of the result field are zero. If half adjust is 
specified in column 53, the setting of the indicators will reflect the contents of the 
result field after half adjustment has taken place. 


If S is specified in column 42 of the control card specifications form, the first zero or 
blank indicator for the result field will be set if the field is blanked-after on the output 
format specifications form (B is specified in column 39 of the output format 
specifications form). The same indicator may be used to indicate two conditions. In 
these cases, the indicator is set on if either condition is met. 
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= Compare Operation 





The resulting indicator indicates the relationship of factor 1 to factor 2. If a resulting 
indicator is specified in columns 54 and 55 (1>2), the indicator will be set on if factor 1 is 
greater than factor 2. If an indicator is specified in columns 56 and 57 (1<2), the indicator 
will be set on if factor 1 is less than factor 2. If an indicator is specified in columns 58 and 
59 (1=2), the indicator will be set on if factor 1 is equal to factor 2. 


The same indicator may be used to indicate two conditions. In these cases, the indicator is 
set on if either condition is met. 


Test Bit Operation 


The resulting indicator indicates the status of the bits that are tested in a 1-character 
alphanumeric field. The name of the field that contains the bits to be tested is 
specified in columns 43 through 48 of the result field, and which of these bits are to 
be tested is specified in factor 2. Factor 2 specifies the numbers of the bits to be 
tested (O through 7) or the name of a 1-character alphanumeric field that is to be 
compared with the result field to see whether the corresponding bits in the result 
field are 1’s. If a resulting indicator is specified in columns 54 and 55, the indicator 
will be set on if the specified bits are O’s. If an indicator is specified in columns 56 
and 57, the indicator will be set on if the specified bits are mixed (O's and 1's). If an 
indicator is specified in columns 58 and 59, the indicator is set on if the specified bits 
are 1's. 





The same indicator may be used to indicate two conditions. In these cases, the 
indicator is set on if either condition is met. 


= Test Numeric Operation 


The resulting indicator indicates whether the result field contains numeric characters. 
If a resulting indicator is specified in columns 54 and 55, the indicator will be set on 
if all characters are numeric. If an indicator is specified in columns 56 and 57, the 
indicator will be set on if the field contains leading blanks followed by numeric 
characters. If a resulting indicator is specified in columns 58 and 59, the indicator will 
be set on if the field contains all blanks. Each character, except the low-order 
character, must contain a hexadecimal F in the zone portion and a digit (O through 9) 
in the digit portion to be considered numeric. The low-order character may contain a 
hexadecimal C, D, or F in the zone portion and a digit in the digit portion. 


= Test Zone Operation 


The resulting indicator indicates the result of testing the zone of the leftmost 
character of the result field. If a resulting indicator is specified in columns 54 and 55 
(plus), the indicator is set on if a 12 zone (hexadecimal C - includes A through | or &) 
is present. If an indicator is specified in columns 56 and 57 (minus), the indicator is 
set on if an 11 zone (hexadecimal D - includes J through R or -) is present. If an 
indicator is specified in columns 58 and 59 (zero), the indicator is set on if any other 
zone is present. 





The same indicator may be specified for two conditions. In these cases, the indicator 
will be set on if either condition is met. 
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S = ~§=©Look-up Operation 


The resulting indicator indicates how the look-up of a table or array is to be performed. If 
the resulting indicator is specified in columns 54 and 55 (high), the next higher element 
than the search argument specified in factor 1 is retrieved and the indicator is set on. If an 
indicator is specified in columns 56 and 57 (low), the next lower element than the search 
argument specified in factor 1 is retrieved and the indicator is set on. If an indicator is 
specified in columns 58 and 59 (equal), the element that is equal to the search argument 
specified in factor 1 is retrieved and the indicator is set on. An indicator cannot be specified 
for high or low unless the table or array is in sequence. The sequence is specified in 
columns 45 and 57 of the file extension specifications form. Indicators can be specified for 
high, low, or equal or for high and equal or low and equal. In the latter cases, the equal 
condition takes precedence and only when it is not found will the next higher or lower 
element be retrieved. 


m= = =6©CHAIN Operation 


The high field (columns 54 and 55) and low fields (columns 56 and 57) of the resulting 
indicators can be used with the CHAIN operation to specify an indicator that is set on when 
a no-record-found condition occurs. If an indicator is not present in either field and a no- 
record-found condition occurs, the HO (halt 0) indicator is set on and the program 
terminates unless provision is made in the program to set this indicator off. 


= SETOF and SETON Operations 


Columns 54 through 59 are used to specify up to three indicators that are to be set off 
when the SETOF operation is executed or that are to be set on when the SETON operation 
is executed. 


12.2.5. Overflow Indicator 


An overflow indicator is used to control the printing of heading information when forms 
overflow occurs. It consists of a 2-character entry that is placed in columns 33 and 34 of 
the file description specifications form. The permissible entries are OA through OG and 
OV. The entry that you place in these columns is the overflow indicator that is defined for 
the printer or line counter file on this line. The overflow indicator is set on when the forms 
overflow channel is sensed either on the printer or on the line counter file. It is set on 
when a line is printed on or past the line of the form that is associated with the forms 
overflow punch on the carriage control tape or if the forms overflow punch is passed 
during a space operation. It is not set on, however, if the forms overflow punch is passed 
during a skip operation. A skip to a new page caused by an output specification not 
conditioned by an overflow indicator sets the overflow indicator off. 


An overflow indicator cannot condition an exception line (E in column 15), but may condition 
fields within the exception record. 


The overflow indicator is set off after detail output time. If it is set on during total time, itis set off 
@ after the next detail output time. If it is set on during detail time, it remains on for a complete 
cycle and is set off after detail output time. 
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Overflow output can be caused at any time during output by using the fetch overflow routine. 
The fetch overflow routine is used by placing an F in column 16 of the output format 
specifications form on any detail, total, or exception line that is not conditioned by an overflow 
indicator. Each output line is tested during output to see if its conditioning indicators are on. If 
they are and F has been specified in column 16, the overflow indicator for the associated file is 
checked to see if it is on. If the indicator is on and the overflow lines have not been written since 
it was set on, the overflow routine is fetched, the overflow lines associated with the file are 
written, and then the line that caused the overflow to be fetched is written. Figure 12-5 shows 
an example of the entries using fetch overflow for detail, total, and exception output. The 
records on lines 010, 030, 050, and 070 are detail records. The record on line 010 contains 
heading information that is printed on the top of each page when forms overflow occurs. When 
the overflow indicator (OF) is on, line 070 (F in column 16) causes the fetch overflow routine to 
be executed, which in turn causes line 010 to be printed next; that is, line 010 is printed and 
then line 070 is printed. When the fetch overflow routine is executed, the detail record printing 
sequence is line 030, line O50, line 010, and line 070. 
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Figure 12—5. Using Fetch Overflow 
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The records on lines 090, 110, and 130 are total records. Line 090 is printed when the L1 
indicator is on. When the overflow indicator (OF) and the L2 indicator are on, line 110 (F 
in column 16) causes the fetch overflow routine to be executed, which in turn causes line 
010 to be printed before line 110. Line 130 is printed when the L2 indicator is on. When 
the fetch overflow routine is executed, the total record printing sequence is: line 090, line 
010, line 110, and line 130. 


The records on lines 150 and 170 are exception records. When the overflow indicator (OF) 
is on, line 150 (F in column 16) causes the fetch overflow routine to be executed, and this 
in turn causes line 010 to be printed before line 150. When the fetch overflow routine is 
executed, the exception record printing sequence is line 010, line 150, and line 170. 


12.2.6. Function Key Indicator 


The function key indicators (KA through KN and KP through KW) correspond to function 
keys 1 to 22. When one of the function keys and the transmit key are pressed, the 
corresponding indicator is set on and the transmitted data is available to the program. All 
function key indicators are set off before a read to a workstation file is performed. If the 
function key is pressed, one indicator is set on after input. 


You use the function key indicators: 


= To condition calculation operations in columns 9 through 17 of the calculation. 
specifications form 


= To condition output operations in columns 23 through 31 of the output format 
specifications form 


= As a resulting indicator in columns 54 through 59 of the SETOF operation on the 
calculation specifications form 


NOTES: 


1. IBM System/34 has two other function keys and so has two other indicators, KX 
and KY. Thus, errors may occur when IBM System/34 programs are converted to 
OS/3. For compatibility with BC/7, indicators KA, KB, and KC may be referenced 
as F1, F2, F3, respectively. 


2. In RPG II IMS action programs, function key indicators (KA-KN and KP—KW) are not 
set when function keys are pressed. IMS may be configured to initiate transactions 
when function keys are pressed. 


12.3. INDICATORS NOT DEFINED ON THE RPG II SPECIFICATIONS FORMS 


There are two types of indicators that are not defined on the RPG II specifications forms. 
They are the external indicators that are defined in the job control language and the 
internal indicators that are defined by the RPG II program. 
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12.3.1. External Indicators 
There are eight external indicators: U1 through U8 that correspond to UPSI bits O 
through 7, respectively. These indicators are defined by a SET UPSI job control 
statement. They are set on or off by this job control statement prior to the execution of 
the program. 
The format of the SET UPSI job control statement is as follows: 

//ASETAUPS | , U,U.ugU,U5UgU Ug 


where: 


U,.. Ug 
Represents the external indicators U1 through U8. 


1 Set external indicator on. 
0 Set external indicator off. 
x The current setting of the external indicator is not changed. 


For example, assume that external indicators U1, U4, and U6 are to be set on; U2 and U5 
are to be set off; and the current setting of U3, U7, and U8 are not to be changed. In this 
case, the SET UPSI job control statement would be: 


//ASETAUPSI, 18X181XX 


To control external indicators with an RPG program, use the SETON and SETOF 
operations. 


At the end of the job step, the U1 to U8 indicators are copied to the UPS! byte in the job 
preamble. 


12.3.2. Internal Indicators 


There are five internal indicators: 1P (first page), HO (halt zero), LO (control level zero), LR 
(last record), and MR (matching record). Each indicator represents a condition that results 
from the RPG II program processing logic; that is, if the condition that the indicator 
represents occurs during the execution of a program, the RPG II program processing logic 
will set the indicator on. 


a 1P Indicator 
The 1P indicator is set on at the beginning of program execution. It is used to 


condition the printing of heading or detail lines on the first page of your report. It is 
set off immediately before the first record is read. 
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a HO Indicator 


The HO indicator is set on when any one of several error conditions occurs during the 
execution of your program. These error conditions fall into two categories: error 
conditions which, when they occur, allow you the option of setting off the HO 
indicator so that your program can continue; and those that do not provide this option. 
In either case, an error code is placed in the first byte of the *ERROR field. For further 
information on the error codes, see the system messages programmer reference 
manual. 
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If any of the following error conditions set on the HO indicator during the 
execution of your program and you wish to continue processing in spite of the 
error condition, you can do this by writing a routine on the calculation 
specifications form that tests the *ERROR field for the presence of the particular 
code for the error condition and sets the HO indicator off if the error code is 
present. We'll cover this type of routine in our discussion of the *ERROR field in 
Appendix C. 

- Record sequence error 

- Undefined record type 

-  Collating sequence error 

- Trying to add a duplicate record to an indexed sequential file 


- No resulting indicators specified and no-record-found condition occurs during a 
CHAIN operation 


- The overflow area for an indexed sequential file is full. 

- No record found condition when C1 through C9 is used for chaining 

If any of the following error conditions set on the HO indicator during the execution of 
your program, the program will terminate because you do not have the option to 
continue processing by setting the HO indicator off. In these cases, the error cannot 
be bypassed. 

- At least one input and one output file has not been opened. 

- Invalid array index 

- Sequence checking is specified for a table and an element is out of sequence. 
- An attempt is made to find the square root of a negative number. 


- The writing of a record from an update file is attempted before it is read. 


- Any error condition for indexed sequential or direct files other than full overflow 
area, duplicate records, and no record found 


LO indicator 


The LO indicator is used to condition total calculations when a control break has not 
occurred. The LO indicator is always on and cannot be set off. 
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LR indicator 


The LR (last record) indicator is set on by the RPG Il program processing logic before 
total time when the last record has been processed. This means that any output 
written when the last record is processed should be specified as total time output. 
Exception output may be performed when LR is on by specifying LR in columns 7 and 
8 of the calculations specifications for the EXCPT operation. The last record is 
processed when all records from the files for which end-of-file has been specified in 
column 17 of the file description specifications form have been processed. If end-of- 
file has not been specified for any files, all input files must be end-of-file before the 
last record is processed. When the LR indicator is set on, all control level indicators 
(L1 through L9) that are defined are also set on. If the LR indicator is used as a 
conditioning indicator or with the SETON operation, the L1 through L9 indicators are 
not set on at that time. 


If the LR indicator was set on during detail calculations, the L1 through L9 indicators 
are set on before the next input record is read. The total time calculations and output 
are then performed and the program is terminated. 


If the LR indicator is set on during total calculations, the program is terminated after 
total output time. 


You cannot set off the LR indicator. 
MR indicator 


The MR (matching record) indicator is associated with the M1 through M9 matching 
field entries in columns 61 and 62 of the input format specifications form. It is set on 
when all the matching fields in a record of a secondary file match all the matching 
fields in the primary file. The MR indicator remains on during the complete processing 
cycle of both the primary and secondary records. The MR indicator is set off when all 
total calculations, output, and overflow for the records have been executed. 


12.4. USING THE INDICATORS 


The indicators are used to condition the execution of your program. They can be used to 
specify: 


file conditioning, if a file is to be used during the execution of a program; 
control level, when calculations and output are to be performed; 
field record relation, when a field in a record is available for input; 


calculation conditioning, the conditions that must be present before a calculation can 
be performed; and 


output conditioning, the conditions that must be present before a complete record or 
field within a record can be written. 
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12.4.1. File Conditioning 


The file condition indicators are specified only in columns 71 and 72 of the file description 
specifications form. The only entries that are permitted are the U1 through U8 external 
indicators. 


If an external indicator is specified in these columns, the associated file cannot be 
accessed unless the specified indicator was previously set on prior to program execution 
by a SET UPSI job control statement (12.3.1). If the external indicator is not on, the file is 
considered to be at end-of-file and, therefore, cannot be accessed. 


A file condition indicator may be specified for input, output, combined, update, table 
output, and record address files. It cannot be specified for input table or array files, 
chained files, or a file that is being accessed by a record address file. 


12.4.2. Control Level 


The control level indicators are specified in columns 7 and 8 of the calculation 
specifications form. The only entries that are permitted are LO, L1 through L9, and LR. 
These indicators are used to control when calculations are to be performed. If the entry is 
left blank, the calculation is performed at detail time. 


If LO is specified, the calculation is performed every program cycle at total time. 


lf L1 through L9 is specified, the calculation is performed only when the specified indicator 
is on. When the specified indicator is set on by a control break (columns 59 and 60 on the 
input format specifications form), all lower level indicators are also set on. 


lf LR is specified, the calculation will be performed during the last total time. 


12.4.3. Field Record Relation 


The field record relation indicators are specified in columns 63 and 64 of the input format 
specifications form. The entries that are permitted are 01 through 99, L1 through L9, MR, 
and U1 through U8. 


An entry in columns 63 and 64 is used when there is an OR relationship between the 
various types of input records that are to be processed. The OR relationship is used to 
identify those types of records in which most of the fields are in the same position within 
the records. The entries that you make in columns 63 and 64 specify the fields that are 
associated with each record type; that is, the field that is defined on a line is only available 
for input when the indicator you specified in columns 63 and 64 is on or if these columns 
are left blank. In the latter case, the field is common to all record types. When field record 
relation is used, the following points should also be borne in mind: 


a Main storage can be conserved by grouping together, on consecutive lines, all field 
descriptions that do not use field record relation and by grouping together all field 
descriptions that use the same field record relation indicator. 
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7 All fields that are used for control level and chaining and matching fields that are not used @ 
with field record relation must be listed on the input format specifications form before 
those control level and matching and chaining fields that use field record relation. 


= ~—=L1 through L9, U1 through U8, and MR cannot be used as field record relation indicators 
for matching and control fields. In these cases, only 01 through 99 andH1 through H9 are 
permitted. 


= =When more than one matching field is specified and some of the matching fields do not 
use field record relation and the others do, all of the matching fields must he specified first 
without field record relation and those fields that use field record relation must be 
specified in groups by indicator. For example, assume that M1, M2, and M3 are the 
matching fields; M1 uses 01 and 02 as field record relation indicators; M2 uses01 as field 
record relation indicator; and M3 does not use field record relation. In this case, the 
matching fields would be listed on the input format specifications form in the following 


order: 

Matching Field Field Record Relation 
(Columns 61 and 62) (Columns 63 and 64) 
M1 Blank 

M2 Blank 

M3 Blank 

M1 01 

M2 01 

M1 02 





12.4.4. Calculation Conditioning 


The conditions that must be present before a calculation can be performed are specified by 
placing an indicator in columns 10 and 11, 13 and 14, and 16 and 17 of the calculation 
specifications form. The entries that are permitted are 01 through 99, HO through H9, L1 
through L9, LR, MR, OA through OG, OV, KA through KN, KP through KW, and U1 
through U8. 


The entries that you make in these fields are those conditions that you have determined 
must be present before the calculation on this line can be performed. The calculation will 
be performed only when the specified indicators are on. Up to three indicators may be 
specified on a line. If an indicator must not be on (the condition must not be present), this 
can be specified by placing N before the indicator (in column 9, 12, or 15). 


When more than three conditions are required to condition an operation, the first three 
indicators are placed on the first line and the additional indicators (4 through n) are placed 
on successive lines (3 per line) until all conditions have been specified. In these cases (an 
AND relationship), each successive line (after the first) must have AN specified in columns 
7 and 8. Columns 18 through 59 must be blank on the first line and on ail successive AN 
lines except the last. The last line must contain the operation to be performed. A 
maximum of seven AN lines may be used for one operation. @ 
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When the presence of any one of various sets of conditions permits an operation to be 
performed (an OR relationship), the first set of conditions (1 through 3 indicators) is specified on 
the first line and each additional set on a successive line that contains OR in columns 7 and8. In 
these cases, columns 18 through 59 must be blank on the first line and all successive OR lines 
except the last, which must contain the operation to be performed. A maximum of seven OR 
lines may be specified for one operation. 


Figure 12-6 shows some examples of how you can specify calculation conditioning. 


CALCULATION SPECIFICATIONS 


CONDITIONS CALCULATION RESULTING 
INDICATORS RESULT FIELD INDICATORS 
ARITHMETIC 
COMPARE COMMENTS 
LOOKUP 
{FACTOR 2115 
HIGH] Low }EQual 
$4 55/56 6758 59160 
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Figure 12—6. Specifying Calculation Conditioning 


Lines 010 and 020 show an AND relationship. The MULT operation is performed when 
indicators 01, 03, 05, O07, and O9 are on. 


Lines 030 and 040 show an OR relationship. The ADD operation is performed during total! 
time, when either indicators 01 and O2 or indicators 08 and 10 are on. 


Lines 050 through O80 show an AND/OR relationship. The DIV operation is performed 
when the L1 indicator is on and either of two conditions is present: indicators 01, 03, 05, 
and 07 are on; or indicators 09, 10, 11, and 12 are on. 


12.4.5. Output Conditioning 


The conditions that must be present before a complete record or field within a record can 
be written are specified by placing an indicator in columns 24 and 25, 27 and 28, and 30 
and 31 of the output format specifications form. The entries that are permitted are O1 
through 99, 1P, HO through H9, L1 through L9, LR, MR, OA through OG, OV, KA through 
KN, KP through KW, and U1 through U8. 


The entries that you make in these fields are those conditions that you have determined 
must be present before a complete record, or a field within the record, can be written. 
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When the indicators are used to condition the writing of a complete record, columns 32 
through 70 must be blank. The complete record will be written only when the specified 
indicators are on. Up to three indicators may be specified on a line. If an indicator must 
not be on (the condition must not be present), this can be specified by placing N before the 
indicator (in column 23, 26, or 29). 


If more than three conditions are required to condition the writing of a record, the first 
three indicators are placed on the first line and the additional indicators (4 through n) are 
placed on successive lines until all conditions have been specified. In these cases (an AND 
relationship), each successive line after the first must have AND specified in columns 14 
through 16 and columns 32 through 70 must be blank. 


When the presence of any one of various sets of conditions will permit a record to be 
written, the first set of conditions (1 through 3 indicators) is specified on the first line and 
each additional set on a successive line. In these cases (an OR relationship), each 
successive line after the first must have OR specified in columns 14 and 15 and must be 
blank in columns 32 through 70. 


The conditions that must be present before a field within a record can be written are 
specified by placing from one to three indicators in columns 23 through 31 on the line that 
defines the field. The field will be written only when the specified indicators are on. 
AND/OR fines cannot be used with fields within a record; consequently, three indicators 
are the maximum that can be specified for any one field. 


After it has been determined that a record is to be written (all required conditions are 
present), the fields that are defined for the record in columns 32 through 37 (commencing 
on the first line after the last line that specifies the record conditions) that do not have any 
entries in columns 23 through 31 and those whose specified conditions are present are 
written. 


Figure 12-7 shows some examples of how you specify output conditioning for records and 
fields. 


The detail record on line 010 is written when indicators 01 and 03 are on. The record 
always contains the field DATA1; the field DATA2 is written only when indicator 05 is on. 
An AND relationship is shown on lines 040 through O60. The detail record on line 040 is 
written when indicators 01, 03, O05, and O7 are on and the field DATA3 is always included 
in the record. 
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Figure 12—7. Specifying Output Conditioning for Records and Fields 


An OR relationship is shown on lines 070 through O90. The total record on line 070 is 
written when indicators 10, 11, and 12 are on or when indicator 13 is on. The field 
DATA4 is always included in this record. An AND/OR relationship is shown on lines 100 
through 140. The total record on line 100 is written when indicators 01 and 05 are off and 
indicators 03 and O7 are on; or it is written when indicator 09 is on. The field DATAS5 is 
always included in the record. The field DATA6 is included only when indicator O09 is on. 


12.5. SUMMARY OF INDICATORS 


The definition, use, and the setting on and off of the various indicators are summarized in 
Tables 12-1, 12-2, and 12-3, respectively. 
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Indicator 
Definition 


Record 
identification 
indicator 


Field 
indicator 


Control 
level 
indicator 


Resulting 
indicator 


Overflow 
indicator 


Internal 
indicators 


External 
indicator 


Function key 
indicator 


Where 
Defined 


Input format 
specifications 
form, 

columns 19—20 


Input format 
specifications 
form, 

columns 65—70 


Input format 
specifications 
form, 

columns 59—60 


Calculation 
specifications 
form, 

columns 54—59 


File description 
specifications 
form, 

columns 33—34 


Internally 
by RPG Il 


Internally 
by RPG Il 


Calculation 
specifications 
form, 

columns 9—17 
and 

Output format 
specifications 
form, 

columns 23—31 


Table 12—1. 


Indicator Definition 


Permissible Entries 
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File 
conditioning 


Field 
record 
relation 


Control 
level 


Calculation 
conditioning 


Output 
conditioning 


Where 
Specified 


File description 
specifications 
form, 

columns 71—72 


Input format 
specifications 
form, 

columns 63—64 


Calculation 
specifications 
form, 

columns 7—8 


Calculation 
specifications 
form, 

columns 9—17 


Output format 
specifications 
form, 

columns 23—31 
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Table 12—2. Indicator Use 


Permissible Entries 


12-21 
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Table 12—3. Setting Indicators On and Off (Part 1 of 2} 


Type 


Record 
identification 
indicator 


Field 
indicator 


Control 
level 
indicator 


Resulting 
indicator 


Overflow 
indicator 


U1—U8 
external 
indicators 


1P (first page) 
internal 
indicator 


HO-H9 
internal 
indicators 


LO 
internal 
indicator 


When the specified 
record is read and 
prior to the execution 
of total calculations 


When the condition 

the indicator represents 
is present in the 
specified field 


When the value 

in the specified 

control field changes. 
(All tower fevel indicators 
are also set on.) 


When the calculation 

is performed and 

the condition that 

the indicator represents 
is present 


When a line is 
printed on the form 
on or past the 
forms overflow 
channel or if 

the form is spaced 
past that point 


By a //ASETAUPSI 
job control statement 
prior to the execution 
of your program or by 
a SETON operation 
within your program 
or when used as a 
resulting indicator 

in calculations 


At the beginning 
of program execution 


By an error condition (HO) 
or by a SETON 

operation within 

your program 


Always on 


After the current 
processing cycle 

is completed and 
before the next 
record is read during 
the next cycle 


Prior to the 
next time the 
field is to be 
tested for the 
condition 


When the following 
detail cycle is 
completed 


The next time the 
calculation is 
performed and the 
condition that the 
indicator represents 
is not present 


After the following 
heading and detail 
lines are printed 


By a SETOF operation 
within your program 


Before the first 
input record is 
read 


By a SETOF operation 
within your program 
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Table 12—3. Setting Indicators On and Off ( 


Indicator When Set On When Set Off 
Type 


LR (last record) 






internal 
indicator 






indicator 


KA-KN 
KP-KW 
function 
indicator 








MR (matching 
record) internal 


key 





















‘art 2 of 2) 


After the last record Never 
in the tast file is 
processed or by a 
SETON operation in 
your program 



















When all total 
calculations, output, 
and overflow for the 
records have been 

executed 


When ail matching 
fields in a record of 

a secondary file match 
all the matching 

fields in the primary 
file 








Before a read to a 
workstation file is 
issued or by a 
SETOF operation 








When function key is 
pressed 










12.6. SETTING INDICATORS ON VIA THE SYSTEM CONSOLE 


RPG Il provides two subroutines that allow you to set an indicator on in your program via 
the system console. These subroutines are the PF key subroutine, SUBR89, and the 
unsolicited inquiry request subroutine, SUBR95. 


12.6.1. PF Key Subroutine (SUBR89) 


The PF key subroutine, SUBR89, allows you to control the execution of your program by 
using from one to nine unsolicited type-ins called PF keys (PF1 through PF9). The way you 
specify the PF key numbers (positive or negative) in your program determines how you can 
use the PF keys to control program execution. 


12.6.1.1. Using a PF Key with a Positive Number 


To use a PF key with a positive number you must allocate it to your program by including 
the statements shown in Figure 12-8. 


PAGE 
NO 


CALCULATION SPECIFICATIONS 





CALCULATION RESULTING 


RESULT FIELD INDICATORS 


ARITHMETIC 


COMPARE 


FleLD 
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Figure 12—8. Allocating a PF Key with a Positive Number 
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The statements shown in Figure 12-8 will only be executed at the beginning of your program 
(N98 in columns 9, 10, and 11). The number (1 through 9) that you enter for n on line 010 
specifies which PF key you want allocated to your program and the number (01 through 99) that 
you enter for nn on line 040 specifies the indicator to be set on if the allocated PF key is 
activated. After you have included the statements to allocate a PF key to your program, you 
must include a test to determine if the allocated PF key has been activated (an unsolicited PFn 
type-in has been made) and, if so, set on an indicator that conditions calculation or output 


operations. This is done by including the statements shown in Figure 12-9 at another point in 
your program. 


CALCULATION SPECIFICATIONS 








FIELD 
LENGTH 


Tin 
17118 27428 32] 33 42 [42 48/49 51452153454 
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Figure 12—9. Testing PF Key Activation Status 


The statements shown in Figure 12-9 are the same as those in Figure 12-8 except that line 010 
and line 020 must be specified with columns 9 through 17 left blank or specified with other 
indicators. This is necessary so that these statements will be executed during a regular 
program cycle rather than only at the beginning of program execution. 


if you specify a PF key with a positive number, the message 
RPGO38 JOB IS NOW ABLE TO ACCEPT UNSOLICITED KEY-IN-’PFn’ 


will be displayed on the system console at the beginning of program execution to inform you 
that your program will accept the unsolicited PF key type-in indicated in the message. The 
program will then halt. To continue, type in 


GOAyour program name. 


From this point on, the program will test during each cycle to see if the allocated PF key has 
been activated by an unsolicited type-in. If so, the specified indicator is set on and the 
conditioned calculation or output operations will be performed. These operations will also be 
performed thereafter in each program cycle because if the PF key is activated the test will 
always indicate that it is activated. If the PF key is not activated, the indicator is set off and the 
program continues. 


If you want to activate a PF key, type in SOE job number (supplied by system) O PFn. 
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12.6.1.2. Using a PF Key with a Negative Number 
To use a PF key with a negative number you must include the statements shown in Figure 


12-10 in your program. 


CALCULATION SPECIFICATIONS 


CONDITIONS CALCULATION 


FACTOR 1 OPERATION FACTOR 2 
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Figure 12—10. Allocating a PF Key with a Negative Number and Testing Its Activation Status 


The statements shown in Figure 12-10 are the same as those shown in Figure 12-9 except that 
they specify a PF key with a negative number (- in column 33 on line 010). The negative 
specification will also cause these statements to perform a dual function, that is, to allocate the 
PF key to your program and to test its activation status. As with Figure 12-9, these statements 
must be specified with columns 9 through 17 left blank or specified with other indicators. This 
is necessary so that they will be executed during a regular program cycle rather than only at the 
beginning of a program execution. 


When you specify a PF key with a negative number, the PF key is allocated to your program and 
its activation status is tested. The message 


RPGO38 JOB IS NOW ABLE TO ACCEPT UNSOLICITED KEY-IN-'PFn’ 
will be displayed on the system console. The message 
RPGO39 PFn MUST BE ENTERED BEFORE JOB CAN CONTINUE 
will be displayed on the system console and the program will halt. To continue, type in 
SOE job number (supplied by system) message number (supplied by system) PFn 
At this point the program will set on the specified indicator and the conditioned calculation or 
output operations will be performed. These operations will also be performed thereafter in each 


program cycle because the test to see if the PF key is activated will always indicate that it is 
activated. 
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12.6.2. Unsolicited Inquiry Request Subroutine (SUBR95) 


The unsolicited inquiry request subroutine, SUBR95, is similar to the PF key subroutine 
because it also allows you to control the execution of your program by making unsolicited type- 
ins. It differs from the PF key subroutine in that when an unsolicited inquiry request type-in is 
made it only affects the program at the time it is made rather than having a continuing effect as 
with the PF key subroutine. 


To use the unsolicited inquiry request subroutine you must first allocate the subroutine to your 
program by including the statements shown in Figure 12-11. 


CALCULATION SPECIFICATIONS 













CALCULATION RESULTING 


INDICATORS 
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COMPARE 


CONDITIONS 
INDICATORS 
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FIELD 
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FACTOR 2 NAME 
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DECIMAL POSITIONS 
































Figure 12—11, Allocating the Unsolicited Inquiry Request Subroutine 


The statements shown in Figure 12-11 will only be executed at the beginning of your program 
(N98 in columns 9, 10, and 11). The number (01 through 99) that you enter for nn on line 020 
specifies the indicator to be set on if an unsolicited inquiry request is made. 


After you have included the statements to allocate the unsolicited inquiry request subroutine, 
you must include a test to determine if an unsolicited inquiry request has been made (an 
unsolicited IR type-in) and, if so, set on an indicator that conditions calculation or output 
operations. This is done by including the statements shown in Figure 12-12 at another pointin 
your program. 
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Figure 12—12. Testing the Unsolicited Inquiry Request Status 
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The statements shown in Figure 12-12 are the same as those in Figure 12-11 except that line 
010 must be specified with columns 9 through 17 left blank or specified with other indicators. 
This is necessary so that these statements will be executed during a regular program cycle 
rather than only at the beginning of program execution. 


If you specify the unsolicited inquiry request subroutine, the message 

RPGO38 JOB IS NOW ABLE TO ACCEPT UNSOLICITED KEY-IN ‘IR’ 
will be displayed on the system console at the beginning of program execution to inform you 
that your program will accept unsolicited IR type-ins. The program will then halt. To continue, 
type in 

GOAyour program name 
From this point on, the program will test during each cycle to see if an unsolicited inquiry 
request has been made. If so, the specified indicator is set on, the conditioned calculation or 
output operations are performed, and the inquiry request is reset. If not, the indicator is set and 
the program continues. 


At this point, the system you use dictates the method of data entry. 


If you want to make an unsolicited inquiry request and are using an OS/3 system at 


level 8.1 or earlier, type in: ious 
> job number (supplied by system) O IR = 
Thus, you enter: 
PijOAIR =the 
where: 
> <~_ 
Is the SOE. 
ij 
Is the job number (supplied by system). 
0 
Is the message identification. It identifies the message as being unsolicited. 
A 
Is a space. 
IR 


Represents an inquiry request. 


For example, P1OAIR is an unsolicited inquiry request for job 1, and P140AIR is an << 
unsolicited inquiry request for job 14. 
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If you want to make an unsolicited inquiry request and are using an OS/3 system at 
level 8.2 or later, type in: 





P UNS job name IR 
Thus, you enter: 
PUNSA XXXXXXAIR 


where: 


Is the SOE. 


UNS 
Specifies an unsolicited message for a user job. 


A 
Is a space. 


XXXXXX 
Is the job name. 


IR 





Represents an inquiry request. 
Note that because an inquiry request is reset after the IR type-in is made, you must 


make a new type-in each time you want to have the associated indicator set on and the 
conditioned calculation or output operations performed. 


12.6.3. Incorrect Type-Ins 


If you have allocated a PF key or the unsolicited inquiry request subroutine to your program and 
you make an incorrect type-in when you attempt to activate either one, the message 


RPGO40 LAST KEY INVALID OR INACTIVE. VALID KEYS = IR, PF1-PF9 


will be displayed on the system console. To continue, repeat the appropriate type-in with the 
correct information. 
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13. File Processing Methods 


13.1. GENERAL 


RPG II allows you to process files in several ways. The method that you choose for your 
application is determined by how your files are organized and how records can be retrieved 
from a file that is organized in a particular manner. 


In certain cases, this may require you to convert your data files from one format to another 
before you can use them. 


If you wanted to use a file processing method that requires an indexed sequential file and the 
file is a sequential file, you would have to convert it to an indexed sequential file before you 
could use it. You could do this conversion by writing an RPG II program or by using the file 
processing utility described in the data utilities user guide. Table 13-1 lists the file organization, 
how records are retrieved, and the processing methods that can be used. 


Table 13—1. File Organization, Record Retrieval, and Processing Methods (Part 1 of 2} 


File Organization Record Retrieval Processing Methods 
Sequentially (consecutively) 1. Sequential 
2: Matching records 


Randomly Using a tag (ADDROUT) 
file to supply record 
addresses 












Sequential 











Indexed Sequentially (consecutively) 1, Sequentially 


2. Matching records 














Sequentially (consecutively) 
between limits 


Using a record 
address file to 
provide the upper 

and lower limits of 
processing 

Using SET LL operation 



















Randomly Using a record address 
file to supply the 

keys of the records 

to be processed 


Chaining 
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Table 13—1. File Organization, Record Retrieval, and Processing Methods (Part 2 of 2) 





File Organization Record Retrieval Processing Methods 


Direct Randomly ; Using a chaining file to 
supply relative record 
numbers 
Using a tag (ADDROUT) 
file 





Sequentially (consecutively) i Sequential 
Matching records 











13.2. SEQUENTIAL PROCESSING 


Sequential processing consists of processing records in the order in which they appear on the 
file until the file is exhausted or the program terminates; that is, the first record on the file is 
processed, the second record is then processed, and so on. 


13.3. PROCESSING WITH MATCHING RECORDS 


Processing with matching records allows you to sequentially process multiple input files as one 
large sequential file. The sequence in which the records on the individual files are selected for 
processing is controlled by specifying matching fields for each of the files involved. The fields 
are compared and the values they contain govern which record is selected. 


13.3.1. Primary File 


When multiple input files are used, one file must be specified as the primary file by placing a Pin 
column 16 on the file description specifications form, and all of the other input files must be 
specified as secondary or chained files by placing an S or C incolumn 16. The primary file is the 
controlling file in a program. 


When you process with matching records, the primary file must have a complete set of 
matching fields specified for it. The primary file will be processed first when its matching fields 
match those of one or more of the secondary files. 


13.3.2. Specifying Matching Fields 


Matching fields are specified by placing M1 through M9 in columns 61 and 62 on the input 
format specifications form on the line that specifies the field for a file. The matching fields need 
not be specified in any order; that is, M9 can be specified before M3, and so on. The field with 
the highest number will be the first one to be compared, the second highest will be the second, 
and so on. Figure 13-1 shows a typical example of how matching fields are specified. 
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Figure 13—1. 


Example of Specifying Matching Fields 


In the example in Figure 13-1, there are three input files named PRIME, ONE, and TWO. PRIME 
is the primary file and the others are secondary files. Two matching fields are specified (M1 and 
M2) and M2 is the first field that will be compared. 


13.3.3. Record Selection 


When matching records are used in your program, one record is read from each input file at the 
beginning of the program. If any record does not contain matching fields, it is processed and 
another record is read from that file. If all the records contain matching fields, the matching 
fields are compared anda record is selected for processing and then another record is read from 
that file. This process repeats itself until an input file is exhausted or the program terminates. 


The following rules govern record selection: 


1. Records without matching fields are processed before records that have matching fields. 
2. When two or more records do not have matching fields, the primary file is processed first, 
followed by the secondary files in the order specified on the file description specifications 
form. 
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3. If the files are in ascending order, the record with the lowest value in its matching fields is 
processed first. If the files are in descending order, the record with the highest value in its 
matching fields is processed first. 





4. When arecord from the primary file matches one or more secondary records, the primary 
record is processed before the secondary records. 


5. When two or more secondary records match, they are processed in the order that the 
secondary files are specified on the file description specifications form. 


Figure 13-2 shows an example of how records are selected in accordance with the rules. Inthis 
example, three files are used that contain records having 2-character matching fields and a 
record sequence number in record position 80. The primary file is named. PRIME, the first 
secondary file is named ONE, and the second secondary file is named TWO. If a matching field 
is blank, the record has no matching field. The contents of each file and the step-by-step 
selection process for the first 10 records are shown. The record that is selected at each step is 
circled. 


Matching Fields 





Primary File — PRIME (P) 1st Secondary File - ONE (O) 2nd Secondary File — TWO (T) 


Figure 13—2. Matching Record Selection (Part 1 of 3} 
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Order of Record Selection From 
Primary and Secondary Files 


Figure 13—-2. Matching Record Selection (Part 2 of 3) 
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RPG Il 
Record Selection Steps 
File File File 
ee 0 eee 
Ga) oO 1 T 20 1. The first record from each file is read. The P and O records have no matching field so 
they will be processed before the T record. The P record is from the primary file so it 
will be selected first. 
(2) O11 T 20 1. The next P record is read because the last record selected was from the P file. It 
is selected because it has no matching fields and is from the primary file. 
(3) P 30 3 T 20 1. The next P record is read. TheO record is selected because it has no matching field. 


(4) P 30 3 O 30 2jT 20 1] ThenextO record is read. The T record is selected because the value in its matching 


field is lower than that of the other two. 


() P 30 3) O 30 2 T 40 2. ThenextT record is read. The P and O records have a lower value in their matching 


fields and these values are equal so the MR indicator is set on. The P record is 
selected first; it is from the primary file. 


The next P record is read. It is selected before the O record because it has no 
matching fields. 


NO 


® [Pr 4] 0 30 2 T 40 


@ P 50 5 |O 30 2] T 40 2 _ The next P record is read. The Orecord is selected because its matching field is 
lowest. 





O 40 3] T 40 


vu 
oO 
oO 
a 
NR 


The next O record is read. The O andT records have equal values in their matching 
fields, however, the O record is selected for processing first because it is from the 
first secondary file. 


O 40 4] T 40 The next O record is read. It is selected because it has the same value in its matching 


field that the previously selected O record had. 


P 505 O 70 5/T 40 2 The next O record is read. The T record is selected because it has the lowest value in 


its matching fields. 


v 
a 
°o 
a 
nN 


Figure 13—2. Matching Record Selection (Part 3 of 3) 
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13.3.4. Matching Record Indicator (MR) 


The MR indicator is associated with the M1 through M9 matching fields. It is used to condition 
operations specified on the calculation specifications form and the output format specifications 
form. 


The MR indicator is set on when the matching fields of a secondary file record match the 
matching fields of a primary file record. It is set on before detail processing for the first record of 
the matched primary file and remains on during processing of all succeeding primary and 
secondary file records that contain the same matching field. 


The MR indicator is set off when all total calculations and output are completed for the last 
record that contains the same matching field. 

13.4. PROCESSING BY CHAINING 

Chaining allows you to randomly retrieve selected records from an indexed sequential or 
direct file by specifying a field (the chaining field) which is used to locate a record in that 
file (the chained file). Chaining can be accomplished by using the CHAIN operation on the 
calculation specifications form or specifying the chaining field by C1 through C9 on the 
input format specifications form. 

The use of the CHAIN operation allows chaining to be: 

= ~=performed with a chaining field whose value is calculated or read from an input file; 


= ~=performed at either detail or total calculation time; 


= performed more than once by using one or more chaining fields and calculations to chain 
to more than one file; 


™ conditioned by the results of a test or calculation; and 

= ~=performed in an internal subroutine. 

C1 through C9 chaining differs from the CHAIN operation in that it is not as flexible a method. 
The C1 through C9 chaining indicators apply only to input fields, and they cause chaining to 
occur only before detail time. In addition, C1 through C9 chaining requires additional entries on 


the file extension specifications form. 


If you intend to use chaining, it is suggested that you use the CHAIN operation wherever 
possible. 
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When you use chaining you must observe the following rules: 


1. The file specified as a factor 2 ina CHAIN operation cannot have SPECIAL specified as the 
device on which it is contained and it cannot have matching fields, control level fields, C1 
through CQ fields, look ahead fields, or numeric sequence entries. 


2. Thechaining field must have the same length as the keys in the chained file. If the keys in 
the chained file are alphanumeric, the chaining field may be either alphanumeric or 
numeric. If the keys in the chained file are numeric, the chaining field must be numeric. 
When the keys in the chained file are in packed numeric format, the chaining field must be 
either a packed numeric field of the same length as the key field or a numeric field of the 
same length as the unpacked length of the keys in the chained file. 


3. The chaining field must be a numeric field with zero decimal places when chaining to a 
direct file. 


13.4.1. Chaining Indexed Sequential Files 


Every record in an indexed sequential file has a key which can be used to retrieve the record. 
These keys are used in chaining to retrieve records from an indexed sequential file by specifying 
them as the chaining fields. The starting location of the key field is entered in columns 35 
through 38 on the file description specifications form. 


For example, assume that a master customer file is to be updated with information that is 
contained on a transaction file and a report of deleted customers is to be printed. The 
transaction file contains the customer's identification and the amount he has paid on his 
outstanding balance to date. The master customer file contains all information about the 
individual customers. The customer records on the master file are to be updated by adjusting 
those customer balances that the transactions on the transaction file apply to. The common 
denominator between the transaction file and the master customer file is the customer 
identification. Since this is the case, chaining can be used; that is, the transaction file can be 
used as the chaining file by specifying the customer identification field in that file as the 
chaining field and specifying the master customer file as the chained file. 


Figure 13-3 shows the required entries on the various specifications forms for this example if 
the CHAIN operation is used, and Figure 13-4 shows the required entries if C1 through CQ is 
used. In both cases, the transaction file is a card file named TRANS, the master customer file is 
an indexed sequential file named MASTER, the printer file is named PRINT, and IDNO is used as 
the chaining field. 


Figure 13-4 shows the required entries on the various specifications forms for this example if 
C1 through C9 is used for chaining. As you can see, an additional entry is required on the file 
description specifications form (an E in column 39 to indicate that additional information is 
needed on the file extension specifications form) and on the input format specifications form 
(C1 in columns 61 and 62 to identify IDNO as the chaining field). A file extension specifications 
form is also required to relate the chaining field on the transaction file (TRANS) to the master 
file (MASTER). The entries on the calculations specifications form are also different; that is, one 
specification line rather than two is used. 
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Figure 13—3. Example of Specifying Chaining Using CHAIN Operation (Part 1 of 2) 
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Figure 13—3. Example of Specifying Chaining Using CHAIN Operation (Part 2 of 2) 
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Figure 13—4. Example of Specifying Chaining Using C1 through CQ (Part 1 -of 3) 
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Figure 13—4. Example of Specifying Chaining Using C1 through C9 (Part 2 of 3) 
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Figure 13—4. Example of Specifying Chaining Using C1 through C9 (Part 3 of 3) 
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13.4.2. Chaining Direct Files 


Each record in a direct file has a position on the file relative to the beginning of the file. These 
positions are called the relative record numbers. They are used in chaining to retrieve records 
from a direct file by specifying them as chaining fields. 


When you want to retrieve records randomly from a direct file you must create a file that 
contains the relative record numbers of the record you want to retrieve. Then you use this file to 
chain to the direct file. 


Figure 13-5 shows you an example of how to randomly retrieve records from a direct file. In this 
example, assume that you want to retrieve selected records from a direct file and print them. 
The file containing the records you want to print (the direct file) is named DIRECT, the file that 
contains the relative record numbers is named RECSEL, and the printer file is named PRELR. 


As you can see, RECSEL is defined on the file description specifications form as the input 
primary file and DIRECT as a direct input chained file that is processed randomly by relative 
record numbers. RRNO is defined on the input format specifications form as a numeric field 
with no decimal places, andthe records in the file DIRECT are defined as an 80-character field. 


The CHAIN operation is used on the calculation specifications form with RRNO (factor 1) to 
retrieve the selected records from the file DIRECT (factor 2) and each record is subsequently 
printed by the entries on the output format specifications form. 


13.4.3. Creating a Direct File Using the CHAIN Operation 


If you want to create a direct file, you load records from an input file onto a disk file by relative 
record numbers. You do this by first defining the direct file to be created as a chained output disk 
file on the file description specifications form. You then select a numeric field (with no decimal 
places) in the input record that is to be used to supply the relative record numbers. The name of 
this field is then used as factor 1 in a CHAIN operation that has the name of the output file 
specified as factor 2. When processing commences, the disk space required for the direct file 
will be filled with blanks. Then, during calculations, the specified field in the input record will be 
used as the relative record number for output to the corresponding relative record positions on 
the disk file. At output time, the entire record will be written on the disk file in the positions 
corresponding to the relative record number. This process is repeated until all records on the 
input file have been written on the disk file. When this occurs (end-of-file on the input file), any 
relaiive record position on the disk file that does not have a record in it will contain blanks. 


Figure 13-6 is an example of the required entries on the various specifications forms for 
creating a direct file using the CHAIN operation. In this example, employee records are 
contained on a card file named EMPFILE and a direct file named PERSNL is to be created. The 
field EMPNO is used to supply the relative record numbers. 
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Figure 13—5. Example of Chaining a Direct File (Part 2 of 2) 
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t 


t 





UP-8067 Rev. 6 SPERRY UNIVAC OS/3 13-16 
RPG II 





CALCULATION ee eee ea 


{INDICATORS ae FIELD INDICATORS 
[ ARITHMETIC | 
FACTOR 2 NAME FIELD 
LENGTH 
LOOKUP 
ACTOR 21 1S 
HIGH | LOW JeQual 
33 42[43 48/49 51 152}53154 55]56 57158 59)60 


OUTPUT FORMAT SPECIFICATIONS 




















OPERATION 


FACTOR 1 
fl 18 27|28 





HALF ADJUST 





DECIMAL POSITIONS 


H 


lol] CONTROL LEVEL 















































































ACKER 7 
reten AvERELGW OUTPUT INDICATORS 
_ DATA FORMAT CODES commas |. ZERO CODES 
PrB/LIR NEGATIVE VALUE INDICATION | cepren | BALANCE 
x Psone fj ca ft TO PRINT x 
rand FIELD 2 
oe] ¢ NAME af Aj 
yet Ss w]<] POSITION 
fafsfole|*] & 8fz] z 
© Ol¢) output 
lof Rfofe]. | la 
ral oa 
fayoyo | 0:0 CONSTANT OR EDIT WORD 
fefi7fve| 19 20) 2 38 
DE ca FE ae OT Ss Oe ee OO OO 
| | ell pot ij tf 4 | ss Teel Iescws Coens Benes Comme bores) Mae © Jit _¢ 4 1 
ll | lal po da ar pa peri tiriin 
Rl a 
pop Pp pa brrais 
a a 
| id | | sp Din 
lie os ee Oe ee a Ss a Co al Us Case Lug ones es es (Gn) Kd Ge ti.11 t 
a “°,2.6,¢ 11.80 sp be et tt 
¥ 
| 4 MPN, L195 Dat pag eg gee Pg ag ep 

















Figure 13—6. Creating a Direct File (Part 2 of 2) 











UP-8067 Rev. 6 SPERRY UNIVAC OS/3 13-17 
RPG Il 





13.5. RECORD ADDRESS FILE PROCESSING 


Record address file processing allows you to process an indexed sequential file randomly or 
between specified limits. 


13.5.1. Processing an Indexed Sequential File Randomly 


When a record address file is used to process an indexed sequential file randomly, the record 
address file must contain the keys of the records that are to be retrieved from the indexed 
sequential file. When your program is executed, a record is read from the record address file, 
the first key in that record is used to retrieve a record from the indexed sequential file. The 
record from the indexed sequential file is then processed. The next key inthe record address file 
selects the next record to be processed. This continues until the end of the record address file 
record or a blank field is encountered. When this occurs a new record address file record is 
read. When the record address file is exhausted (end-of-file) the program terminates. 


The following rules apply to a record address file when it is used to randomly process an 
indexed sequential file: 


1. The record keys in the record address file must begin in position 1 of the record and each 
record key must be contiguous (no intervening blank spaces). 


2. The length of the key fields in the record address must be the same in all records. 


3. The number of key fields in a record in the record address file may vary; however, a record 
must contain at least one key field. A blank field that is equal in length to a key will cause 
the next record in the record address file to be read. 


4. The length and format of the key field entries in the record address file must be the same as 
the key of the indexed sequential file that is being processed. 


Figure 13-7 shows the required entries to process an indexed sequential file randomly by using 
a record address file. Only the entries that will retrieve the records from an indexed sequential 
file are shown. Additional entries on the input format, calculation, and output format 
specifications form would be required for a complete program. In this example, the indexed 
sequential file is named INSEQ, the starting key field location is location 3, and the record 
address file is named RECAD. The file extension form is required to relate the record address 
file to the indexed sequential file. 





UP-8067 Rev. 6 SPERRY UNIVAC OS/3 13-18 
RPG Il Update B 








FILE DESCRIPTION SPECIFICATIONS 


FILE PROCESSING MODE EXTENSION OR 
KEY OR RECORD LINE COUNTER NUMBER 
ADDRESS FIELD LENGTH CODE NAME OF OF BN Tes 
LABEL EXIT 
OR NAME OF 
USER DEVICE 
ROUTINE 









FILE TYPE 
FILE DESIGNATION 


















iN MAIN 
STORAGE 
TO BE RESERVED 
FOR 
INDEX 






SEQUENCE RECORD ADORESS TYPE 
FILE FORMAT FtLE ORGANIZATION 












OVERFLOW 
INDICATOR 














DEVICE 
RECORD 
LENGTH KEY FIELD 
STARTING | 2 


LOCATION 





A'PILKIR 
VUTIDIX 2 


2 














RECORD SEQUENCE 
OF CHAINING FILE 


NUMBER OF THE 


CHAINING FIELO NUMBER 
. TO TABLE OR 


FILE NAME ARRAY NAME PER TABLE 


OR ARRAY 
FROM 


FILE NAME 


N 
N 
¢ 
< 
co] 
$ 
5 














Figure 13—7. Example of Processing an Indexed Sequential File Randomly, Using a Record Address File 





13.5.2. Processing an Indexed Sequential File between Limits 


A record address file can be used to process a portion of an indexed sequential file. In this case, 
the record address supplies the upper and lower limits of the portion of the indexed sequential 
file to be processed. The records on the record address file consist of two record key entries in 
the form low key/high key, where the low key indicates the lower limit of the portion of the 
indexed sequential file that is to be processed; and the high key, the upper limit. When your 
program is executed, a record is read from the record address file and the indexed sequential 
file is processed starting at the lower limit. Processing continues until the upper limit is 
reached. If the record address is not exhausted at this point, the next record is read from it to 
supply a new set of limits and the processing of the indexed sequential file commences again. 
The program terminates when the record address file is exhausted, the lower and upper limits 
supplied by the record address file do not have to be valid keys on the indexed sequential file 
because processing begins when a key is found that is greater than or equal to the lower limit 
and it ends when a key is found that is greater than the upper limit. 


The following rules apply to a record address file when it is used to process an indexed 
sequential file between limits: 


1. Each record on the record address file can contain only two entries. The entries specify the 
low and high limits of the portion of the indexed sequential file that is to be processed. 


2. The record key entries must begin in record position 1 of the record. The first entry (low 


key) indicates the low limit of processing and the second (high key) indicates the upper 
limit. 
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@ 3. Thesecond key entry in the record must be contiguous with the first (no intervening blank 
spaces). 


4. The record key entries must be in packed decimal format if the keys on the file to be 
processed are packed. 


Figure 13-8 shows examples of the required entries on the applicable specifications forms for 
processing a sequential file within limits. In this example, customer records are contained on 
an indexed sequential file named CUSREC. The file is arranged in sequence by a 5-digit 
customer number. The first digit of the customer number indicates the geographic region 
where the customer is located. For example, all customers in region 1 have customer numbers 
ranging between 10000 and 19999. The program is to print a report that hits all customers in 
regions 3, 4, 6, 7, 8, and 9. This is accomplished by creating a record address file, SELREG, that 
contains the following data: 


nasts 
adits 1 through 5 | 6 through 10 


As you can see, an E is specified in column 39 on the file description specifications form for 

® SELREG to indicate that further information is required on the file extension specifications 
form. In addition, on the line for CUSREC, an L appears in 28 to indicate that the file is to be 
processed between limits. The entries on the file extension specifications form are required to 
relate the record address file (SELREG) to the indexed sequential customer file (CUSREC). The 
input records and fields are described on the input format specifications form and the output 
records and fields on the output format specifications form. 
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Figure 13—8. Example of Processing an Indexed Sequential File between Limits (Part 1 of 2} 
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Figure 13—8. Example of Processing an Indexed Sequential File between Limits (Part 2 of 2) 
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13.6. PROCESSING WITH AN ADDROUT FILE 


By using an ADDROUT (address output) file, you can process a sequential file in a sequence 
other than the normal sequence; that is, instead of processing record 1, then record 2, and so 
on, you can process the records in whatever order you wish. This can be accomplished by 
creating an ADDROUT (TAG) file that contains the addresses of the records you want to 
process. The ADDROUT file is created by sorting the file that contains the records you want to 
process by using the SPERRY UNIVAC OS/3 Sort/Merge with the ADDROUT option. For 
‘further information, see the sort/merge user guide. The ADDROUT file is then used to retrieve 
the records from the sequential file. This feature of RPG II allows you to retrieve records from a 
given file in a variety of ways by producing several ADDROUT files and then using each 
ADDROUT file to retrieve records from the original file in a different sequence. 


Figure 13-9 shows the required entries to process a sequential file randomly using an 
ADDROUT file. Only the entries that will retrieve the records from the sequential file are 
shown. Additional entries on the input format, calculation, and output format specifications 
form would be required for a complete program. In this example, the ADDROUT file is named 
TAGS and the file to be processed is named ALLSEQ. On the file description specifications 
form, TAGS is specified as an input record address file (I in column 15 and R incolumn 16) and 
also an ADDROUT file (T in column 32). The E in column 39 indicates that further information is 
required on the file extension specifications form. ALLSEQ is specified as the primary input file 
(Lin column 15 and P in column 16). Because ALLSEQ is being processed by an ADDROUT file, 
an R must appear in column 28, and an lincolumn 31. The R indicates random processing, and 
the | indicates record identification is used to retrieve records. The entries on the file extension 
specifications form are used to relate the ADDROUT file (TAGS) to the sequential file (ALLSEQ). 
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Figure 13—9. Example of Processing with an ADDROUT File 
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13.7. DEMAND FILES AND READ OPERATION PROCESSING 


Demand files and the READ operation are used to read a record from a file other than the 
primary or secondary files during calculation time. Arecord is retrieved during calculation time 
rather than waiting for the next cycle. 


13.7.1. Demand File 


A demand file can be an input, update, or combined file. It can be processed sequentially, or it 
can be an indexed sequential file that is processed randomly by a record address file or 
sequentially between limits by using a record address file or the SETLL operation. 


13.7.2. READ Operation 


Demand files can only be processed by the READ operation. When the READ operation is 
executed, the record identifying indicator for the record type is set on and the fields are 
extracted before the next calculation. 


13.7.3. Using Demand Files and the READ Operation 
When demand files and the READ operation are used, the following rules must be observed: 


1. When a demand file is used, a D must be placed in column 16 on the line on the file 
description specifications form where the demand file is specified. 


2. Columns 17, 18, 33, and 39 on the file description specifications form must be blank for a 
demand file. 


3. Column 32 on the file description specifications form must be blank or contain X or |when 
a demand file is used. 


4. A demand file is always referenced on the input format and calculation specifications 
form. If the demand file is an update or combined file, it may be referenced on the output 
format specifications form. 


5. Columns 33 through 42 (factor 2) on the line on the calculation specifications form where 
the READ operation is specified must contain the name of the demand file. This name 
must be the same name that was specified for the demand file on the file description 
specifications form. 


6. Columns 58 and 59 on the calculation specifications form may contain any indicator 
other than HO. The indicator that is specified is set on when the demand file is 
exhausted (end-of-file). If an indicator is not specified, HO is set on when the demand 
file is exhausted. Columns 54 through 57 must be blank. 


7. A READ operation on the calculation specifications form can be conditioned by control 
level indicators in columns 7 and 8 and/or other indicators in columns 9 through 17. 











— 
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8. Look-ahead fields (** in columns 19 and 20) cannot be specified for a demand file on the 
input format specifications form. 


9. Columns 59 and 60 and 61 and 62 cannot be used to specify control levels or matching 
fields for demand files on the input format specifications form. 


13.7.3.1. Processing a Demand File 


Figure 13-10 shows the required entries on the various specifications forms for a program that 
processes a demand file with the READ operation. In this example, there are four files specified 
on the file description specifications form: a combined file named REPNAM that contains 
employee names, an update/demand file named EMPNO that contains employee number, an 
output file named CURNAM that is to contain the employee names and numbers, and a display 
file named DISPLAY. When the operations specified on the calculation specifications form are 
executed, the READ operation reads a record from the demand file EMPNO each time a record 
is read from the file REPNAM. If the record read from the demand file (EMPNO) contains a code 
in record position 8 (indicator 25 is off), the program transfers control to REIT and reads another 
record from the demand file EMPNO. This process is repeated until a record is found that does 
not contain a code in record position 8 (indicator 25 is on). A Z is then moved into the field 
named CODE in the demand file EMPNO. When the demand file EMPNO is exhausted (end-of- 
file), indicator 12 is set on, which causes a line to be executed and causes the end-of-job 
message to be displayed. 
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Figure 13—10. Example of Processing a Demand File with the READ Operation (Part 1 of 2} 
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Figure 13—10. Example of Processing a Demand File with the READ Operation (Part 2 of 2} 
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13.7.3.2. Processing a Demand File Using the SETLL Operation 


A demand file may also be processed between limits by using the SETLL operation. The SETLL 
operation allows you to establish any record as the next sequential record for an indexed 
sequential file during calculations. This enables you to initiate or reset the sequential 
processing at any point within the file independent of the previous position. Consequently, a 
SETLL operation may be used with a READ operation to retrieve any desired record. 
Subsequent READ operations will retrieve successive records sequentially until! the end of file 
is reached or another SETLL operation establishes a new next record. If a SETLL operation has 
not been performed before a READ operation, the first READ operation will retrieve the first 
record of the file. A SETLL operation may be specified after end-of-file to reset the processing 
sequence to start at the record indicated by the SETLL operation. The SETLL operation differs 
from other limits processing in that, each time it is encountered, a new lower limit for 
subsequent processing is established. Limits processing with a record address file requires 
that all records within the indicated limits must be read before a new limits record can take 
effect. 


Figure 13-11 is an example of how to use the SETLL operation to perform limits processing. 


In this example, the input file CARDINP contains the employee numbers of those 
employees who have requested their pay checks before their vacations begin. The 
demand file EMPDATA is a master file that contains the payroll data for each employee. 
Each time a record is read from the CARDINP file, it is used to specify the next master 
file record to be read from the EMPDATA file. This is done by specifying the field 
MANNUM as factor 1 and EMPDATA as factor 2 in the SETLL operation on the 
calculation specifications form. Processing continues until the CARDINP file is exhausted. 
Note that the field MANNUM in the file CARDINP has a length of 4, and the key field for 
the file EMPDATA is a packed field with a length of 2. This may seem to be in conflict 
with the requirement that in a SETLL operation the key in factor 1 must be the same 
length as the key specified for the demand file on the file description specifications 
form. There is no conflict in this case because a 2-character packed field contains 3 
digits and a sign, which is the same as a 4-character zoned numeric field (leading or 
trailing sign separate). 
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Figure 13—11. Example of Processing a Demand File with the SETLL Operation (Part 1 of 2) 
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Figure 13—11. Example of Processing a Demand File with the SETLL Operation (Part 2 of 2) 
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13.8. LOOK-AHEAD FIELDS AND FORCE OPERATION PROCESSING 


RPG Il processes one record at a time. During multifile processing, look-ahead fields provide 
you with the ability to look at information in the next record of each file that is available for 
processing. Then, based on this information, calculations can be performed that will condition 
the execution of a FORCE operation that will override the normal multifile record selection. 


13.8.1. Look-Ahead Fields 


The record in the input area for each file is used to supply the information for the 
look-ahead fields that are specified on the input format specifications form. Only one 
record from each file is in the input area at one time; therefore, only one set of 
look-ahead fields can be specified for any one file. 


During multiple file processing, when an input file is selected by your program, the 
current record is in the input area and the look-ahead fields contain data from the next 
record in that file. When combined or update files are selected, the current record is 
then in both the input area and the look-ahead fields. For files not yet selected for 
processing, the look-ahead fields contain data from the next record in that file. 


The following rules must be observed when look-ahead fields are used: 


1. Columns 15 and 16 on the input format specifications form must contain an alphabetic 
sequence entry (AA through 22). 


2. ** must be placed in columns 19 and 20. 


3. The format, location, and field name must appear in columns 43 through 58 on the 
following line. 


4. Because all look-ahead fields are available during the processing of a given file, the field 
names for the look-ahead fields must be unique. If an input field is also used as a look- 
ahead field, the look-ahead field must have a different name. 


5. Columns 21 through 42 and 59 through 74 must be blank on a line that defines a look- 
ahead field. 


6. A look-ahead field cannot be used as a resuli field on the calculation specifications form, 
nor can it be blanked-after on the output format specifications form. 


13.8.2. FORCE Operation 


The FORCE operation is specified on the calculation specifications form. It is used to override 
the normal record selection process during multifile processing; that is, the record that is 
selected for processing is the next record for the file for which the FORCE operation was issued 
rather than the record that would normally be selected. 




















UP-8067 Rev. 6 SPERRY UNIVAC OS/3 13-29 
RPG Il 








The following rules must be observed when the FORCE operation is used: 


1. Columns 18 through 27 and 43 through 59 must be blank on the line where the FORCE 
operation is specified on the calculation specifications form. 


2. The name of the file that is being forced must appear in columns 33 through 42 (factor 2) of 
the calculation specifications form. 


3. A FORCE operation can only be issued at detail time. 


4. Ifa FORCE operation is issued for a file that is exhausted (end-of-file), the normal multifile 
logic selects the next record for processing. 


5. If more than one FORCE operation is issued in a cycle, only the last one is effective. 


6. The MR (matching record) indicator is always off when a record from a FORCE operation is 
processed. 


13.8.3. Using Look-Ahead Fields and the FORCE Operation 


The following subsections illustrate examples of how to use look-ahead fields and the FORCE 
operation. 


13.8.3.1. Controlling Record Selection during Multifile Processing 


Figure 13-12 shows the required entries on the input format specifications and calculation 
specifications forms for a program that uses look-ahead fields and the FORCE operation to 
select the next record for processing. Only the entries for selecting the next record are shown. 
Additional entries on the file description, calculation, and output format specifications forms 
would be required for a compiete program. In this example, there are three files to be processed: 
the primary file named PRIME, the first secondary file named FIRSEC, and the second 
secondary file named SECSEC. On the input format specifications form, each file is described 
as having two types of records. The fields in each type of record have the same field name. This 
is permitted because only one record is available for processing during any cycle. The look- 
ahead fields are specified once for each file and they reference all records within that file. The 
look-ahead fields have different names because they are available during the processing of any 
record type. Each record in the input files has a consecutive sequence number in the look- 
ahead field. This number is used in conjunction with the compare operations onthe calculation 
specifications form to select a record for processing from the file with the lowest sequence 
number. On the calculation specifications form, indicators 17, 18, and 20 are used to condition 
the FORCE operations and indicator 25 is used to set H1 on when duplicate sequence numbers 
exist. 
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Figure 13—12. Example of Controlling Record Selection during Multifile Processing (Part 1 of 2) 
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Figure 13—12. Example of Controlling Record Selection during Multifile Processing (Part 2 of 2) 
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13.8.3.2. Matching Records from Secondary Files 


Figure 13-13 shows the required entries on the input format and calculation specifications 
form for a program that uses look-ahead fields to match two secondary files to a primary file. 
Only the entries for performing the matching are shown. Additional entries on the file 
description, calculation, and output format specifications would be required for a complete 
program. In this example, there are three files to be processed by matching records: the primary 
file named PRIME, the first secondary file named FIRSEC, and the second secondary file named 
SECSEC. On the input format specifications form, each file is described as having one type of 
record. The secondary files have look-ahead fields. On the calculation specifications form, 
there is no processing when the MR (matching record) indicator is not on. When a primary 
record (indicator 01) is processed with MR on, the compare operation compares the look-ahead 
fields in the secondary files. If these files are equal, indicator 25 is set on. This occurs when the 
matching field in the primary field matches both matching fields in the secondary files. 
Indicator 25 is then used to cause the record from the second secondary file to be processed. 
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Figure 13—13. Example of Required Entries for Matching Records from a Secondary File (Part 1 of 2) 
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Figure 13—-13. Example of Required Entries for Matching Records from a Secondary File (Part 2 of 2) 


13.9. PROCESSING WITH TABLES 


A table is a collection of related units of information. A good example of this would be a payroll 
application where you have several job classifications and you have to find the applicable pay 
rate for each classification in order to compute the weekly salaries. If you did not have a 
computer, you would use a table to obtain the pay rates; that is, you would look at the table to 
find the desired job classification, select the associated pay rate, and compute the weekly 
salary. With RPG Il, you can do similar things by using tables. 


13.9.1. Table Formats 


Each unit of information in a table is called an element. Each element in a table is identical in 
that it contains the same type of information, is the same length, and has the same number of 
decimal positions if the table contains numeric data. 


A table file can consist of elements from a single table or elements from two tables. The former 
is called a solitary table file and the latter an alternating table file. Figure 13-14 shows the 
formats of the two types of table files. 
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Figure 13—14. Table File Formats 


When you use tables in your program, they must conform to the following rules: 


1. The first table element in each input record must begin in record position 1, unless 
the // PARAM COL=7 statement is used. Then the first element begins in record 
position 7 and the **blank also are in positions 7 through 9. 


2. All elements in a table must be the same length. 


3. Table elements must be contiguous within each input record. This applies regardless of 
whether the table file is in solitary or alternating format. The first table element must begin 
in record position 1, the next element must start in the record position immediately 
following the end position of the first, and so on. 
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A table element must be contained completely within a record. It cannot be split; that is, 
part of a table element cannot be in one record and the remainder in the next record. 


Each input record except the last must contain the same number of table elements. The 
last input record may contain fewer elements. 


If a table file is in alternating format, each record in the file must begin (starting in record 
position 1) with an element from the first table, and it must end with an element from the 
second table. 


If you specify sequence checking, the last element for a table in ascending sequence must 
be the highest in the sequence; for a table in descending sequence, the last element must 
be the lowest in sequence. 


Compile time table may be up to 128 characters per record depending on the input device. 


13.9.2. Table Definition 


When you use a table in your program, you must define it by specifying the following 


information: 

= A unique name for it 

= When it is to be loaded into main storage 
= The number of elements in each record 

= The total number of elements in the table 
= #§The length of each element 

= The data formats of the elements 

a 


The number of decimal positions in each element (if the data is numeric) 


Whether the file in which the table is contained is in solitary or alternating format 


You define all tables on the file extension specifications form. If a single table is involved 
(solitary format), you define it in columns 27 through 45. If two tables are involved (alternating 
format), you define the second table in columns 46 through 57. 


You can load a table at either compilation time or execution time. The method that you pick 
governs whether you will need to make additional entries on the file description specifications 
form. 
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If you load a table at compilation time, you have to make entries only on the file extension 
specifications form, because you include the table in the input deck for your source program 
where it is compiled along with your program and becomes a permanent part of it. In this case, 
each table that you want to load must be preceded by a record that contains ** blank in positions 
1 through 3 or in positions 7 through 9 if 7// PARAM COL=7 is specified. This record, plus the 
table records, must be placed in the deck following the last source program statement or the 
last file translation or alternate collating sequence statement in the order in which you 
specified the tables on the file extension specifications form. A record with /* in positions 1 and 
2 must follow the last table used. 


If you want to load a table at execution time, you have to make entries on both the file 
description specifications form and the file extension specifications form. In this case, entries 
are required on the file description specifications form because the table is not part of your 
program. Instead, it is considered to be like any other input data used by your program. 
Therefore, you must use the file description specifications form to describe the file it is 
contained on. When you describe an input table file on the file description specifications form, 
you must specify the file as an input table file that has fixed length records and is a sequential 
file. You do this by placing an! in column 15, a T in column 16, and an F in column 19, and by 
leaving column 32 blank. When you do this, the table file will be read into main storage at 
execution time from the specified card, tape, or disk device. 


If your table files are on punched cards and you want to load them at execution time via the 
control stream reader (CTLRDR), you can do this by placing a record that contains /$ in 
positions 1 and 2 before the table records anda record that contains /* after the table records in 
each table file. You then place these files in the program execution job control stream 
immediately after the // EXEC statement in the order in which you specified them on the file 
extension specifications form. When your program is executed, these files will be read into 
main storage from the control stream reader. If data is also to be read from the control reader, it 
should follow the last table. 


13.9.2.1. File Description and File Extension Specifications Form Entries for 
Table Definition 


The required entries for table definition on the file description and file extension specifications 
forms are summarized in Table 13-2 and Tahle 13-3, respectively. These tables show you the 
entries you must make when you use tables in your program. 
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Table 13—2. Required File Description Entries for Table Definition 


File name 7 through 13 If the table is to be loaded at execution time or automatically written on an output file at 
end-of-job, enter the name of the table file or the output file. 





File type 15 If the table is to be loaded at execution time, enter an | in this field. 

If the table is to be written on an output file at end-of-job, enter an O in this field. 
File designation 16 lf the table is to be loaded at execution time, enter a T in this field. 

lf the table is to be written on an output file at end-of-job, leave this field blank. 


File format 19 Enter an F in this field. This entry is required because all table input and output files 
must be in fixed format. 


Block length 20 through 23 Enter the block length if the table input or output file is blocked. This entry must be a 
multiple of the record length. 


Record length 24 through 27 Enter the record length in this field. 


File organization 32 Leave this field blank for both table input and output files. This is required because table 
files must be sequential files. 


Extension or line counter code 39 If the table is to be loaded at execution time, enter an E in this field. This entry is 
required because you must supply additional information on the file extension 
specifications form. 


Device 40 through 46 Enter the name of the device that the table file is to be read from at execution time or 
written on at end-of-job. 


If the table is on punched cards and you want to load it at execution time via the job 
control stream reader, enter CTLRDR in this field. 
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Table 13—3. Required File Extension Entries for Table Definition 


Field Name/Column 


From file name 11 through 18 
To file name 19 through 26 


Table or array name 27 through 32 


Number of entries per record 
33 through 35 


Number of entries per table or 
array 36 through 39 


Length of entry 40 through 42 


Data format 43 


Decimal positions 44 


Sequence 45 


Table or array name 46 through 51 


If the table is to be loaded at execution time, enter the file name that is specified in 
columns 7 through 13 on the file description specifications form. 


Leave this field blank if the table is to be loaded at compilation time. 


If the table is to be written on an output file at end-of-job, enter the name of the output 
file that is specified in columns 7 through 13 on the file description specifications form. 


Leave this field blank if the table is not to be written on an output file at end-of-job. 


Enter the name of the table. The table name must be in the form TABaaa, where aaa is 
from one to three alphanumeric characters. 


Enter the number of elements per record in the tabie. 


Enter the total number of elements contained in the table. 


Enter the length of each element in the table. The maximum length for a binary element 
is 9. The maximum length for a numeric element is 15. The maximum length for an 
alphanumeric element is 256 


If L or R is specified in column 43, the length that is specified must include the 
preceding or following sign. 


If the table is to be loaded at execution time and the data in the table elements is in 
binary format, enter a B. If the data is in packed decimal format, enter a P. 


If the data in the table elements is preceded by a sign, enter an L. If the data is followed 
by a sign, enter an R. 


lf the data in the table elements is numeric, enter the number of decimal positions (O 
through 9). 


Leave this field blank if the data in the table elements is not numeric. 


If the table elements are in ascending sequence, enter an A. If they are in descending 
sequence, enter a D. An entry is required if you use a LOKUP operation and you specify 
a high or low resulting indicator 


If the table file is in alternating format, enter the name of the second table. The table 
name must be in the form TABaaa, where aaa is from one to three alphanumeric 
characters. 


Used with the second table when the table file is in alternating format. The entries are 
the same as those for columns 40 through 45. 
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13.9.2.2. Table Definition Examples 


Figure 13-15 shows examples of how to define tables on the file description and file extension 
specifications forms. 


FILE DESCRIPTION SPECIFICATIONS 
; core 
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Figure 13-15. Table Definition 


# File Description Specifications Form 


Line 010 shows that PAYINF is an input table file (1 in column 15 and T in column 
16). The file is a sequential file in fixed unblocked format (F in column 19; columns 
20 through 23 blank; column 32 is blank), the length of each record is 80 characters 
(80 in columns 24 through 27). Additional information about this file is contained on 
the file extension specifications form (E in column 39), and the file is read from the 
card reader (READER in columns 40 through 46). In this case, the table file is on 
punched cards and it must have a record that contains /$ in positions 1 and 2 before 
the table records and a record that contains /* in positions 1 and 2 after the table 
records. The file must be placed in your program execution job control stream 
immediately after the // EXEC statement. 
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Lines 020 and 030 show that LSTPAR and CURCHG are also input table files. They differ 
from PAYINF in that they are read from different types of devices, that is, LSTPAR is read 
from disk (DISC in columns 40 through 46) and CURCHG is read from tape (TAPE in 
columns 40 through 46). 





Line 040 shows that FINCHG is an output file (0 in column 15). The file is a sequential file 
in fixed unblocked format (F in column 19; columns 20 through 23 are blank; column 32 is 
blank), the length of each record is 80 characters (80 in columns 24 through 27), and the 
file is written on tape (TAPE in columns 40 through 46). This file is used to store a table file 
at end-of-job. 


a File Extension Specifications Form 


Line 010 shows that PAYINF is a table file that is loaded at execution time (PAYINF in 
columns 11 through 18). The file contains two tables in alternating format. The first table 
is named TABCLS (TABCLS in columns 27 through 32) and the second table is named 
TABRTE (TABRTE in columns 46 through 51). There are four table elements from each 
table in each record (4 in columns 33 through 35). Each table consists of 160 elements 
(160 in columns 36 through 39). The length of each element in the first table (TABCLS) is 
10 characters and the elements are in ascending order (10 in columns 40 through 42 and 
Ain column 45). The length of each element in the second table (TABRTE) is 10 digits with 
no decimal positions (10 in columns 52 through 54 and O in column 56). 


Line 020 shows that LSTPAR is a table file that is loaded at execution time (LSTPAR in 
columns 11 through 18). The file contains a single table named TABPNO (TABPNO in 
columns 27 through 32). There are eight elements in each record (8 in columns 33 through 
35), the table contains 160 elements (160 in columns 36 through 39), and the length of 
each element is 10 characters (10 in columns 40 through 42). 





Line 030 shows that CURCHG is a table file that is loaded at execution time (CURCHG in 
columns 11 through 18). The file contains two tables in alternating format. The first table 
is named TABCUS (TABCUS in columns 27 through 32) and the second table is named 
TABDIS (TABDIS in columns 46 through 51). There are eight table elements from each 
table in each record (8 in columns 33 through 35). Each table consists of 200 elements 
(200 in columns 36 through 39). The length of each element in the first table (TABCUS) is 
five characters (5 in columns 40 through 42). The length of each element in the second 
table (TABDIS) is five digits, and each element contains three decimal positions (5 in 
columns 52 through 54 and 3 in column 56). At end-of-job, the tables are written on the 
output file FINCHG (FINCHG in columns 19 through 26). 


Line 040 shows that TABSSN and TABTAX are two tables in alternating format that are 
loaded at compilation time (columns 11 through 18 are blank; TABSSN is in columns 27 
through 32; and TABTAX is in columns 46 through 51). There are five table elements from 
each table in each record (5 in columns 33 through 35). Each table consists of 60 elements 
(60 in columns 36 through 39). The length of each element in the first table (TABSSN) is 
eight characters (8 in columns 40 through 42). The length of each element in the second 
table (TABTAX) is eight digits with four decimal places (8 in columns 52 through 54 and 4 
in column 56). 
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Line 050 shows that TABCST is a single table that is loaded at compilation time (columns 
11 through 18 are blank; TABCST in columns 27 through 32). There are eight table 
elements in each record (8 in columns 33 through 35). The table consists of 160 elements 
(160 in columns 36 through 39). The length of each element is 10 digits with 2 decimal 
places (10 in columns 40 through 42 and 2 in column 44). 


13.9.3. Using Tables 


You access specific information in a table by using the LOKUP operation. This process consists 
of specifying a search value (called the argument), specifying the search conditions (search the 
table for a value equal to, next greater than, next less than, greater than or equal to, or less than 
or equal to the argument), and then searching the table to see whether one of its elements 
contains a value that meets the search conditions you specified. If a value that meets the search 
conditions is present, this can be used to set indicators that condition subsequent operations or 
to cause a data element (called the function) to be selected from a related table. In the latter 
case, the function that is selected from the related table will be the one that is in the same 
relative position as the element that met the search conditions on the table that was searched; 
that is, if the third element meets the search conditions, the third function in the related table 
will be selected. If no corresponding element exists (the related table is shorter), the related 
table function is unchanged from its previous value. 


The LOKUP operation is specified on the calculation specifications form. The argument is 
specified in the factor 1 field (columns 18 through 27), LOKUP is specified in the operation field 
(columns 28 through 32), the name of the table to be searched is specified in the factor 2 field 
(columns 33 through 42), the name of the related table (if applicable) is specified in the result 
field (columns 43 through 48), and the search conditions are specified by putting one or two 
indicators in the resulting indicator fields (high columns 54 and 55, lowcolumns 56 and 57, and 
equal columns 58 and 59). 


If you use a table name in any other operation, it references the last element that was found ina 
previous LOKUP operation or the first element if no LOKUP operation was performed. 


13.9.3.1. Using the LOKUP Operation 


Figure 13-16 shows you the actual contents of five tables (TABLE1, TABLE2, and TABLES in 
solitary format; TABLE3 and TABLE4 in alternating format) along with the entries required to 
define these tables on the file extension specifications form. This is followed by a series of 
entries on the calculation specifications form that show you several ways you can use the 
LOKUP operation with these tables and a chart that shows what the result of the operation Is in 
each case. 


TABLE CONTENTS 





Figure 13—16. LOKUP Operation Examples (Part 1 of 3} 
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Figure 13—16. LOKUP Operation Examples (Part 2 of 3) 
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Figure 13—16. LOKUP Operation Examples (Part 3 of 3) 





13.9.3.2. Using Data from Table LOKUP 


A typical example of using data from tables is a payroll application in which you have hourly 
employees whose pay rates are determined by their job classification. In this case, you have to 
determine what each employee's pay rate is, based upon his job classification, and then 
multiply the number of hours he worked by the pay rate to calculate his weekly pay. 
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You can handle this application by including a job classification field on each employee's time 
card and by using a job classification table and a related pay rate table. Then, you can process 
each time card and use the job classification as a search argument to search the job 
classification table for the particular job classification. When you find the job classification, the 
applicable pay rate will be selected from the related pay rate table and you can use it to calculate 
the employee’s weekly pay. 


Figure 13-17 shows the format of the two tables and the required entries on the specifications 
forms for this application. 


Job Classification Pay Rate 
(TABCLS) (TABPAY) 
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Figure 13—17. Computing a Payroll with Tables (Part 1 of 2) 
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Figure 13—17. Computing a Payroll with Tables (Part 2 of 2) 


As you can see in Figure 13-17, the tables are in alternating format (TABCLS in columns 27 
through 32 and TABPAY in columns 46 through 51 on the file extension specifications form) 
and the table file they are on is loaded at execution time (PAYFILE in columns 7 through 13 on 
the file description specifications form and in columns 11 through 18 on the file extension 
specifications form). 


Line 010 on the calculation specifications form causes the job classification (CLASS) to be used 
as the search argument for searching the job classification table (TABCLS). If the job 
classification is found, indicator 10 is set on and line 020 is performed. 


Line 020 takes the pay rate from the related table (TABPAY) and multiplies this by the number of 
hours the employee worked (HOURS) and stores the result in the GPAY field, which is five 
positions in length with two decimal positions. The result that is stored in this field is half- 
adjusted (rounded). 


If the job classification cannot be found (indicator 10 is not on), line 030 is performed. This 
causes the literal 000.00 to be moved to the GPAY field to indicate that the job classification for 
this employee is not in the table. 
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13.9.3.3. Modifying a Table during Program Execution 


You can temporarily change a table during the execution of your program. This can be done by 
using the table as a result field in an arithmetic or move operation. This causes the appropriate 
element in the table to be modified for this execution of your program. This change only applies 
while the program is being executed. It does not permanently change the table. if you want a 
temporary change to become permanent you can do this by writing the table out at end-of-job. 


Figure 13-18 shows an example of how to make a temporary change to tables in alternating 
format during program execution. In this case, there are two tables called TABCLS and 
TABPAY. All elements in TABCLS that contain 50 are to be changed to 75, and the related 
elements in TABPAY are to be changed to 900. 
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Figure 13—18. Modifying Table Data during Program Execution 


Line 010 causes the constant 50 to be used as the search argument for searching the table 
TABCLS. If the value is present in an element, indicator 20 is set on and that element and the 
related element in TABPAY are available for change. Lines 020 and 030 are executed, 75 
moves into the TABCLS element, and 900 moves into the TABPAY element. 


If you want these changes to be permanent, you can do this by defining an output file on the file 
description specifications form and then specifying this output file on the file extension 
specifications form as the file that TABCLS and TABPAY are to be written on at end-of-job. 


13.9.3.4. Adding Elements to an Existing Table 


There are times when you have a table that you know you will have to add to at some later time. 
You can avoid having to recreate this table when you want to add new data by initially creating 
this table as a “short” table; that is, you create a table that contains the data elements that you 
presently have, and you provide space in the table in which to add new data. You do this by 
initially specifying, on the file extension specifications form, the number of elements you 
expect to have in the table rather than the number you presently have. When you do this, you 
will provide space for new data because, when the table is loaded, the unused parts will be filled 
with zeros if the table is numeric or with blanks if it is alphanumeric. 
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Figure 13-19 shows an example of how to add new data to existing tables that are in alternating 
format. In this case, there are two short tables called TABSHA and TABSHB. These tables are 
alphanumeric and they each contain fifty 4-position data elements and 50 elements that are 
filled with blanks. New data elements are to be added to these tables in the space provided for 
them; that is, the new data elements will be placed in the areas filled with blanks. 
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Figure 13—19. Adding Elements to Existing Tables 


Line 010 is conditioned by indicator 10. When indicator 10 is on, a record has been read that 
contains information in the fields NEWELA and NEWELB. These fields are to be added to tables 
TABSHA and TABSHB, respectively. To ensure that these fields are placed in the correct 
location in these tables, a search is made of TABSHA for the first available location. Since the 
tables are alphanumeric and all unused parts are filled with blanks, the search argument is four 
blanks enclosed in quotes (columns 18 through 27). When the first available location is found, 
indicator 29 is set on and this location and the related location in TABSHB are available for 
adding new data elements. 


When indicator 29 is on, lines 020 and 030 are executed; this places a new data element in 
each table (NEWELA in TABSHA and NEWELB in TABSHB). This process is repeated each 
program cycle until the new data elements are exhausted. 


The new elements that are added to the tables are temporary; that is, they are in the table only 
during this execution of your program. If you want these new elements to become a permanent 
part of these tables, you define an output file on the file description specifications form and then 
specify this file on the file extension specifications form as the file that TABSHA and TABSHB 
are to be written on at end-of-job. 


13.10. PROCESSING WITH ARRAYS 


An array is a collection of related units of information. It differs from a table in that you access 
an individual data item without having to search the entire array. You do this by specifying the 
array name followed by a comma and an index (a constant that specifies the actual number of 
the data item or the name of a numeric field with no decimal places that contains the item 
number.) Also, you can sequentially process each item in an entire array by using the array 
name only once with certain calculation operations. 














UP-8067 Rev. 6 SPERRY UNIVAC OS/3 13-48 
RPG It 





By using arrays, you can substantially reduce the number of statements required in your 
program when you have calculations that are repeated for fields that have the same 
characteristics or when you want to check the contents of an array element for one or more 
specific characteristics. 


13.10.1. Array Formats 

Each unit of information in an array is called an element. Each element in an array is identical to 
the other elements in that it contains the same type of information, is the same length, and has 
the same number of decimal positions if the array contains numeric data. 

An array file can consist of elements from a single array or elements from two arrays. The 


former is called a solitary array file and the latter an alternating array file. Figure 13-20 shows 
the format of the two types of array files. 
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Figure 13—20. Array File Formats 














UP-8067 Rev. 6 SPERRY UNIVAC 0S/3 13-49 


RPG It Update D 








When you use arrays in your program, they must conform to the following rules. 


1. 


2. 


The first array element in each input record must begin in record position 1. 
Ail elements in an array must the same length. 


Array elements must be contiguous within each input record. This applies regardless of 
whether the array file is in solitary or alternating format. The first array element must 
begin in record position 1, the next element must start in the record position immediately 
following the end position of the first, and so on. 


An array element must be contained completely within a record. It cannot be split, that is, 
part of an array element cannot be in one record and the remainder in the next record. 


Each input record except the last must contain the same number of array elements. The 
last input record may contain fewer elements. 


If an array file is in alternating format, each record in the file must begin (starting in record 
position 1) with an element from the first array and it must end with an element from the 
second array. 


If you specify sequence checking, the last element for an array in ascending sequence 
must be the highest in the sequence and, for an array in descending sequence, the last 
element must be the lowest in sequence. 


An RPG II program produces unpredictable results if it uses an array element that is 
indexed by a literal number and when the product of this number multiplied by the 
array element length exceeds 4095. 


13.10.2. Array Definition 


When you use an array in your program, you must define it by specifying the following 
information: 


A unique name for it 

When it is to be loaded into main storage 

The number of elements in each record 

The total number of elements in the array 

The length of each element 

The data format of the elements 

The number of decimal positions in each element (if the data is numeric) 


Whether the file in which the array is contained is in solitary or alternating format 
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You define all arrays on the file extension specifications form. If a single array is involved 
(solitary format), you define it in columns 27 through 45. If two arrays are involved (alternating 
format), you define the second array in columns 46 through 57. You can load an array at 
compilation time, during execution, or by using the input format or calculation specifications 
form. The method that you pick governs whether you need to make additional entries on the file 
description specifications form. 


If you load an array at compilation time, you include the array in the input deck for your source 
program, where it is compiled along with your program and becomes a permanent part of it. In 
this case, each array that you want to load must be preceded by a record that contains **blank in 
positions 1 through 3. This record, plus the array records, must be placed in the deck following 
the last source program statement or the last file translation or alternate collating sequence 
statement in the order you specified the arrays on the file extension specifications form. A 
record with /* in positions 1 and 2 must follow the last array record. 


If you want to load an array at execution time, you have to make entries on both the file 
description specifications form and the file extension specifications form. In this case, entries 
are required on the file description specifications form because the array is not part of your 
program. Instead, it is considered like any other input data used by your program and, as such, 
you must use the file description specifications form to describe the file on which it is 
contained. When you describe an input array file on the file description specifications form, you 
must specify the file as an input array file that has fixed-length records and is a sequential file. 
You do this by placing an! in column 15, a Tincolumn 16, and an F incolumn 19 and by leaving 
column 32 blank. When you do this, the array file will be read into main storage at execution 
time from the specified card, tape, or disk device. 


If your array files are on punched cards and you want to load them at execution time via 
the control stream reader (CTLRDR), you can do this by placing a record that contains /$ 
in positions 1 and 2 before the array records and a record that contains /* after the array 
records in each array file. You then place these files in the program execution job control 
stream immediately after the // EXEC statement in the order you specified them on the 
file description specifications form. When your program is executed, these files are read 
into main storage from the control stream reader. 


lf you load an array (in solitary format only) by using the input format or calculation 
specifications form, you define the array on the file extension specifications form as you 
would any other array that is not being loaded at execution time, with the exception that 
columns 19 through 26 and 33 through 35 must be blank. 


13.10.2.1. File Description and File Extension Specifications Form Entries for 
Array Definition 


The required entries for array definition on the file description and file extension specifications 
form are summarized in Tabie 13-4 and 13-5, respectively. These tables show you the entries 
you must make when you use arrays in your program. 
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& Table 13—4. Required File Description Entries for Array Definition 


File name 7 through 13 If the array is to be loaded at execution time or automatically written on an output file at 
end-of-job, enter the name of the array file or the output file. 


File type 15 If the array is to be loaded at execution time, enter an | in this field. 


If the array is to be automatically written on an output file at end-of-job, enter an O in 
this field. 


File designation 16 If the array is to be loaded at execution time, enter a T in this field. 


If the array is to be automatically written on an output file at end-of-job, leave this field 
blank. 


File format 19 Enter an F in this field. This entry is required because all array input and output files 
must be in fixed format. 


Block length 20 through 23 Enter the block length if the array input or output file is blocked. This entry must be a 
multiple of the record length. 


Record length 24 through 27 Enter the record length in this field. 


File organization 32 Leave this field blank for both array input and output files. This is required because 
array files must be sequential files. 


Extension or line counter code 39 If the array is to be loaded at execution time, enter an E in this field. This entry is 
required because you must supply additional information on the file extension 
specifications form. 


Device 40 through 46 Enter the name of the device the array file is to be read from at execution time or 
written on at end-of-job. 


If the array file is on punched cards and you want to load it at execution time via the job 
control stream reader, enter CTLRDR in this field. 
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Table 13—5. Required File Extension Entries for Array Definition 


Field Name Column Entry 


From file name 11 through 18 lf the array is to be loaded at execution time, enter the file name that is specified in 
columns 7 through 13 on the file description specifications form. 











Leave this field blank if the array is to be loaded at compilation time or if it is loaded by 
using the input format or calculation specifications form. 


To file name 19 through 26 If the array is to be written on an output file at end-of-job, enter the name of the output 


file that is specified in columns 7 through 13 on the file description specifications form. 


Leave this field blank if the array is not to be written on an output file at end-of-job or 
the array is to be loaded by using the input format or calculation specifications form. 















Table or array name 27 through 32 | Enter the name of the array. The array name can consist of from one to six 
alphanumeric characters. The array name must not begin with TAB. If you intend to use 
the array name with indexes in your program, you should limit the array name to three 


alphanumeric characters. 





Number of entries per record 
33 through 35 


Enter the number of elements per record in the array. 









Leave this field blank if the array is loaded by using the input format or calculation 
specifications form. 












Number of entries per table or 
array 36 through 39 





Enter the total number of elements contained in the array. 


Length of entry 40 through 42 Enter the length of each element in the array. The maximum length for a binary element 
is 9. The maximum length for a numeric element is 15. The maximum length for an 


alphanumeric element is 256. 


lf L or R is specified in column 43, the length that is specified must include the 
preceding or following sign. 






Data format 43 If the array is to be loaded at execution time and the data in the array elements is in 
binary format, enter a B. If the data is in packed decimal format, enter a P. 


If the data in the array elements is preceded by a sign, enter an L. If the data is followed 
by a sign, enter an R. 


Leave this field blank if the data in the array elements is in alphanumeric or unpacked 
numeric format or if columns 33 through 35 are blank. 


Decimal positions 44 If the data in the array elements is numeric, enter the number of decimal positions (O 
through 9). 


Leave this field blank if the data in the array elements is not numeric. 


Sequence 45 If the array elements are in ascending sequence, enter an A. if they are in descending 
sequence, enter a D. An entry is required if you use a LOKUP operation and you specify 
a high or low resulting indicator. 





Table or array name 46 through 51 | If the array file is in alternating format, enter the name of the second array. The array 
name can consist of one to six alphanumeric characters. The array name must not 
begin with TAB. If you intend to use the array name with indexes, you should limit the 
array name to three alphanumeric characters. 


Length of entry 52 through 54 


Data format 55 Used with the second array when the array file is in alternating format. The entries are 


the same as those for columns 40 through 45. 


Decimal positions 56 





Sequence 57 
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13.10.2.2. Array Definition Examples 


Figure 13-21 shows some examples of how to define arrays on the file description and file 
extension specifications forms. 
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Figure 13—21. Array Definition 


a  ~=6File Description Specifications Form 


Line 010 shows that CARAY is an input array file (I in column 15 and T in column 
16). The file is a sequential file in fixed unblocked format (F in column 19; columns 
20 through 23 and column 32 are blank); the length of each record is 80 characters 
(80 in columns 24 through 27); additional information about this file is contained on 
the file extension specifications form (E in column 39); and the file is read from the 
card reader (READER in columns 40 through 46). In this case, the array file is on 
punched cards, and it must have a record that contains /$ in positions 1 and 2 before 
the array records, as well as a record that contains /* in positions 1 and 2 after the 
table records. The file must be placed in your program execution job control stream 
immediately after the // EXEC statement. 
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Lines 020 and 030 show that DARAY and EARAY are also input array files. They differ 
from CARAY in that they are read from different types of devices; that is, DARAY is read 
from tape (TAPE in columns 40 through 46) and EARAY is read from disk (DISC in columns 
40 through 46). 


Line 040 shows that ARAYOUT is an output file (O in column 15). The file is a sequential 
file in fixed unblocked format (F in column 19; columns 20 through 23 and column 32 are 
blank); the length of each record is 80 characters (80 in columns 24 through 27); and the 
file is written on disk (DISC in columns 40 through 46). This file will be used to store an 
array file at end-of-job. 


File Extension Specifications Form 


Line 010 shows that CARAY is an array file that is loaded at execution (CARAY in columns 
11 through 18). The file contains two arrays in alternating format. The first array is named 
AR1 (AR1 in columns 27 through 32) and the second array is named AR2 (AR2 in columns 
46 through 51). There are four array elements from each array in each record (4 in 
columns 33 through 35). Each array consists of 200 elements (200 in columns 36 through 
39). The length of each element in both arrays is 10 digits with no decimal places, andthe 
elements are in ascending order (10 in columns 40 through 42 and 52 through 54, O in 
columns 44 and 56, and A in columns 45 and 57). 


Line 020 shows that DARAY is an array file that is loaded at execution time (DARAY in 
columns 11 through 18). The file contains two arrays in alternating format. The first array 
is named AR3 (AR3 in columns 27 through 32) and the second array is named AR4 (AR4 in 
columns 46 through 51). There are eight elements from each array in each record (8 in 
columns 33 through 35). Each array consists of 200 elements (200 in columns 36 through 
39). The length of each element in each array is five characters (5 in columns 40 through 
42 and 52 through 54). At end-of-job, the arrays are written on the output file ARAYOUT 
(ARAYOUT in columns 19 through 26). 


Line 030 shows that EARAY is an array file that is loaded at execution time (EARAY in 
columns 11 through 18). The file contains a single array named AR5 (AR5 in columns 27 
through 32). There are 10 elements in each record (10 in columns 33 through 35); the 
table contains 160 elements (160 in columns 36 through 39); and the length of each 
element is eight digits with three decimal places (8 in columns 40 through 42 and 3 in 
column 44), 


Line 040 shows that AR6 and AR7 are two arrays in alternating format that are loaded at 
compilation time (columns 11 through 18 are blank; AR6 is in columns 27 through 32; AR7 
is in columns 46 through 51). There are five array elements from each array in each record 
(5 in columns 33 through 35). Each array consists of 100 elements (100 in columns 36 
through 39). The length of each element in each array is eight characters (8 in columns 40 
through 42 and columns 52 through 54). 


Line 050 shows that AR8 is an array that is loaded by using the input format or 
calculation specifications form (columns 11 through 18 are blank; AR8 is in columns 
27 through 32; columns 33 through 35 are blank). The array consists of 120 elements 
(120 in columns 36 through 39). The length of each element is 15 digits with two 
decimal places (15 in columns 40 through 42 and 2 in column 44). 
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13.10.3. Using Arrays 


You can use arrays in your program on the input format, calculation, and output format 
specifications. You can access the entire array or individual elements. 


If you want to access the entire array, you specify only the name of the array. The array name 
must be the same as specified on the file extension specifications form. 


If you want to access an individual array element, you do this by specifying the array name 
followed by a comma and an index (a constant that specifies the actual number of the data 
item or the name of a field with no decimal places that contains the item number). An 
array name followed by a comma and an index entry cannot exceed 6 characters when 
used on an input or output specifications form and cannot exceed 10 characters when 
used in factor 1 or factor 2 on the calculations specifications form. When using the six 
character limitation, the governing factor is the number of elements in the array. 


If you have an array that contains 99 elements, you could give the array a 3-character 
name, such as ARY, and you would be able (within the 6-character limitation) to access 
any of the elements because the highest index you could specify is 99 (ARY,99). If you 
have an array that contains 999 elements, you could not give this array a 3-character 
name because you must allow for a 3-digit index. If you gave it a 3-character name (such 
as ARX) and you wanted to access element 100, you could not do this because the 
specification ARX,100 exceeds six characters. In this case, you would have to change the 
array name to a 2-character name, such as AX, in order to access element 100; then you 
could access element 100 by specifying AX,100 or any 2-character name followed by a 
comma and the index 100. 


When you use an array with an index and the index is a constant, the same element is 
used each time the operation is performed. If the index is a numeric field, the element 
number in the field will determine which element is used when the operation is 
performed. In either case, the index value cannot exceed the number of elements in the 
array. A program exception occurs if the index value exceeds 2,147,483,647. 


You must also remember that, when you use an array in your program, the 
characteristics of the array must be the same each time you access it. This means that 
each element in the array must contain the same number of digits or characters each 
time you access the array. 


13.10.3.1. Loading an Array with the Input Format Specifications Form Using 
Fixed Indexes 


Figure 13-22 shows you an example of how you can load an array with the input 
format specifications form using fixed indexes. In this example, the array ARY is defined 
on the file extension specifications form as an array that is loaded by using the input 
format or calculation specifications form (columns 11 through 18 and 33 through 35 are 
blank) and that has twenty 5-character elements (20 in columns 36 through 39 and 5 in 
columns 40 through 42). The input format specifications form shows two methods of 
loading data into array ARY. The first method is shown on lines 010 and 020. It shows 
the case where the array elements are contained in consecutive positions within a single 
input record. In this case you need to specify only the consecutive positions that the 
array elements occupy within the input record (1 through 50) and the array name (ARY) 
as shown in line 020 to have the first 10 elements loaded into the array. 
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The second method is shown on lines 030 through 080 and 090 through 140. It shows the case 
where the array elements are not in consecutive positions and are contained in more than one 
record. Inthis case, each element that is not in the first record must be specified separately; that 
is, the array name and an index must be used to load each element from the record that 
contains it. You have to define the record that contains the elements and then specify on 
successive lines where the element is in the record and where it is to be loaded in the array. If 
you look at line 030, you will see that a second record type is defined and that the elements from 
this record are placed in elements 11 through 15 of array ARY by the entries on lines 040 
through O80. The remaining elements of array ARY are loaded from the third record type 
defined on line 090 by the entries on lines 100 through 140. 
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Figure 13—22. Loading an Array with the Input Format Specifications Form Using Fixed Indexes 
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13.10.3.2. Loading an Array with the Input Format Specifications Form Using 
Input Fields as Indexes 


Figure 13-23 shows you an example of how you can load an array with the input format 
specifications form using input fields as indexes. In this example, the array AY is defined on the 
file extension specifications form as an array that is loaded by using the input format or 
calculation specifications form (columns 11 through 18 and 33 through 35 are blank) and that 
has ten 5-character elements (10 in columns 36 through 39 and 5 in columns 40 through 42). 
As you can see, on the input format specifications form, there are two record types, 05 and 06. 


The 1-character field that precedes each element in the input record is specified as the index for 
that element and this field is then used on the succeeding line to load the element into the 
array. Lines 020 through 170 load the first eight elements from record type 05 into the array, 
and lines 190 through 220 load the last two elements from record type 06 into the array. 


You can increase the size of the array without having to make additional entries on the input 
format specifications form by including additional type 05 and 06 records in your input file that 
have different values in their index fields. By doing this, each succeeding type 05 record will 


load eight additional elements into array AY and each succeeding type 06 record will load two 
additional elements. 
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Figure 13—23. Loading an Array with the Input Format Specifications Form Using Input Fields as Indexes (Part 1 of 2) 


UP-8067 Rev. 6 SPERRY UNIVAC OS/3 13-58 
RPG Il 





INPUT FORMAT SPECIFICATIONS 


i po FIELD DESCRIPTIOr 
RECORD | CRECORDIDENTIFICATIONCODES CS CODES 














FIELO LOCATION 


Ce ree ee ee ee eee 


POSITION 


FIELO 
NAME 


01.99 or AA.2Z 


Pe eee Een “numeen 


SEQUENCE 


POSITION POStTION 








O=OPTIONAL 
t*NOICATOR OR ** 
CHARACTER 
STACKER SELECT 
DATA FORMAT ?.8:L:R 
DECIMAL POSITIONS 
CONTROL LEVEL 





© RECORD IDENTIFYING 


a 
y 
So 
ay 
i) 
Py 
eo 
© 


RS EE A a ea a Na es Ce ns rd (eT 


a 
oO 
























rb 











L 
a 


r 






























































mms eres il boda 2 hi} 1 at HOLY, Fut 1O 








Figure 13—23. Loading an Array with the Input Format Specifications Form Using Input Fields as Indexes (Part 2 of 2) 


13.10.3.3. Loading an Array with the Calculation Specifications Form 


You can also load an array with the calculation specifications. You can do this by specifying a 
series of input fields on the input format specifications form, and then use move and arithmetic 
operations on the calculation specifications to load the data into the array. Figure 13-24 shows 
an example of how to do this. 


In this example, the array ARZ is defined on the file extension specifications form as an array 
that is loaded by using the input format or calculation specifications form (columns 11 through 
18 and columns 33 through 35 are blank) and that has fifteen 5-character elements (15 in 
columns 36 through 39 and 5 in columns 40 through 42). 
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& As you can see, on the input format specifications form, there are two record types, O07 and 08. 
Record type 07 contains 10 fields and record type 08 contains 3 fields. These fields are used 
with the operations on the calculation specifications form to create and load the elements into 

array ARZ. 


On line 010 of the calculation specifications form, the element 1 is loaded into array ARZ 
by adding the contents of FA to FB. Elements 2, 3, 4, and 5 are loaded on lines 020 
through O50 by moving the contents of FC, FD, FE, and FF into the array. Element 6 is 
loaded on line O60 by adding the contents of element 5 (ARZ,5) to FG. Elements 7 and 8 
are loaded on lines 070 and O80 by moving the contents of FH and FI into the array. 
Element 9 is loaded on line 090 by adding 100 to FJ. Element 10 is loaded on line 100 by 
subtracting the contents of FA from element 9 (ARZ,9). Elements 11, 12, and 13 are 
loaded on lines 110 through 130 by moving the contents of FK, FL, and FM into the array. 
Element 14 is loaded on line 140 by adding the contents of FK and FM. Element 15 is 
loaded on line 150 by subtracting the contents of FL from element 14 (ARZ,14). 
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Figure 13—24, Loading an Array with the Calculation Specifications Form (Part 1 of 2) 
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Figure 13—24. Loading an Array with the Calculation Specifications Form (Part 2 of 2) 


13.10.3.4. Using the LOKUP Operation with Arrays 


You can search an array to determine whether it contains a particular data element. As with 
searching a table, this process consists of specifying a search value (called the argument), 
specifying the search conditions (search the array for a value equal, next greater than, next less 
than, greater than or equal to, or less than or equal to the argument), and then searching the 
array to see whether one of its elements contains a value that meets the search conditions you 
specified. If a value that meets the search conditions is present, this can be used to set 
indicators that condition subsequent operations or indicate the location in the array of the 
element that met the search conditions. 


The LOKUP operation is specified on the calculation specifications form. The argument is 
specified in the factor 1 field (columns 18 through 27); LOKUP is specified in the operation field 
(columns 28 through 32); the name of the array to be searched is specified in the factor 2 field 
(columns 33 through 42); and the search conditions are specified by placing one or two 
indicators in the resulting indicator fields (high columns 54 and 55, low columns 56 and 57, and 
equal columns 58 and 59). If high or low are used, the array must be in either ascending or 
descending order. The result field (columns 43 through 48) is not used. The entry in factor 2 
may be an array name without an index, an array name with a constant index (literal subscript), 
or an array name with a numeric field index (variable subscript). 
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If an array name without an index is specified in factor 2, the search commences at the 
beginning of the array and ends at the end of the array or when the search conditions you 
specified are met. With this type of search, you can check the resulting indicators and 
determine whether a specific element is present in the array or whether the search conditions 
have been satisfied. There is no means of determining the location of the element that satisfied 
the search conditions because an index is not specified with the array name. If an array name 
with a constant index (array name, numeric constant) is specified in factor 2, the search 
commences at the element whose number is the same as the numeric constant and ends at the 
end of the array or when the search conditions you specified are met. With this type of search, 
you can check the resulting indicators and determine whether a specific element is present in 
the array or whether the search conditions have been satisfied. There is no means of 
determining the location of the element that satisfied the search condition because the index is 
a constant and does not change. The main use of this type of search is when you know 
approximately where the element is that you are searching for in the array. By specifying a 
constant index that represents the beginning of the area the element is in, you can greatly 
reduce the search time. 


If an array name with a numeric field index (array name, numeric field name) is specified in 
factor 2, the search commences at the element whose number is contained in the index field 
and ends at the end of the array or when the search conditions you specified are met. If the 
search conditions are met, the number of the element that met the search conditions is stored 
in the index field and the associated resulting indicator is set on. If the search conditions are not 
met, the index field is set to 1 and the associated indicator is set off. With this type of search, the 
location (number) of the element is stored in the index field. Consequently, the element that 
met the search conditions can be used in subsequent operations by specifying the array name 
and the numeric field index. 


Figure 13-25 shows four examples of using the LOKUP operation with arrays. The entries on 
the file extension specifications form apply to all of the examples. 


Line 010 on the file extension specifications form shows that CFILE contains the numeric array 
CLU. CLU consists of sixty 3-digit elements with no decimal places arranged in ascending 
sequence, and there are 15 elements in each record. 


Line 020 shows that EFILE contains two arrays, FIG and WIN, in alternating format. FIG is a 
numeric array that contains fifty 5-digit elements with no decimal places arranged in ascending 
sequence. WIN is an alphanumeric array that contains fifty 4-character elements. Both FIG and 
WIN have 10 elements in each record. 


Line 030 shows that DFILE contains two arrays, DIS and FAM, in alternating format. Both DIS 
and FAM are numeric arrays that contain one hundred 7-digit elements and each record 
contains 10 elements from each array. DIS is in ascending sequence. 
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Figure 13—25. Using the LOKUP Operation with Arrays 
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| @ The circled numbers on the calculation specifications form refer to the following examples: 


Example 1 — Lines 010 and 020 


Starting with the first element, the array CLU is searched for an element that is equal to 
UNOT. If an element is found, indicator 66 is set on. If an element is not found, indicator H3 
is set on. These entries show you whether an element equal to UNOT is present in the 
array, but they will not indicate which element meets the search conditions because the 
array name (CLU) was specified without an index in factor 2. 


Example 2 - Lines 040 through 090 


This example shows how you can reduce the search time by limiting the search to a 
particular area of the array. Assume that you know that element 30 contains the 
value 791. By comparing MIDV with 791, you can determine whether MIDV is equal 
to element 30. If it is, indicator 68 is set on and the program branches around the 
LOKUP operations (line 050). If MIDV does not equa! element 30, a LOKUP operation 
is specified for each half of the array. If MIDV is less than element 30, indicator 67 is 
set on and line O60 is executed. This search commences at the beginning of the array 
(CLU,1). If MIDV is not less than or equal to element 30, indicator 67 is set off and 
line 070 is executed. This search commences at element 31 of the array (CLU,31). If a 
value equal to the search argument MIDV does exist in the array CLU, indicator 68 is 
not set on and indicator H8 is set on (on line O80). These entries show whether an 
element equal to MIDV is present in the array, but they will not indicate which 
element meets the search conditions because the array was specified with a constant 
index (CLU,1 and CLU,31) and this index does not change. 


Example 3 - Lines 110 through 150 


On lines 110 and 120, the contents of the numeric fields A and B are set to 1. These are 
then used as numeric field indexes for the arrays in the operations on lines 130 through 
150. 


On line 130, CNT is the search argument. The array to be searched is DIS. The search 
commences with the first element of DIS (since the index field, A, has been set to 1) and 
searches for a value that is equal to CNT. If this value is found, Ais set equal to the number 
of the element that met the search conditions and indicator 25 is set on. If this value is not 
found, indicator 25 is notsetonandAcontains 1 after the LOKUP operation is completed. 


Online 140, the element in the FAM array that corresponds to the element DIS,A found in 
the previous LOKUP operation is used as the search argument. The FIG array is searched 
for a value equal to FAM,A. If this value is found, B is set equal to the number of the 
element that met the search conditions and indicator 20 is set on. This operation is 
performed only if the previous LOKUP operation on line 130 resulted in an equal condition. 


On line 150, the data in the element in the WIN array that corresponds to the element 
FIG,B found in the previous LOKUP operation is moved to the THEL field. This operation is 
performed only if the previous LOKUP operation on line 140 resulted in an equal condition. 
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= Example 4 - Lines 170 through 200 


in this example, elements are added to the FIG and WIN arrays. On line 170, the contents 
of numeric field A is set to 1. This is then used as a numeric field index for the operations on 
lines 180 through 200. 


On line 180, 00000 is used to search the FIG array for the first vacant element. If an 
element equal to 00000 is found, A is set equal to the number of the element that met the 
search conditions and indicator 40 is seton. Anow contains the number of the first vacant 
element in FIG and its corresponding WIN array. 


On lines 190 and 200, the new element (FIGNEW/) is inserted in the vacant element inthe 
FIG array and the new element WINNEW is inserted in the corresponding vacant element 
in the WIN array. 


13.10.3.5. Using Arrays to Format Output Records 
Figure 13-26 shows an example of how to use arrays to format your output records. 


In this example, there are three arrays: AR1, AR2, and AR3. On the file extension specifications 
form, these arrays are defined as arrays that are loaded by using the input format specifications 
or calculation specifications form (columns 11 through 18 and columns 33 through 35 are 
blank). On line 010, AR1 is defined as a numeric array that has four 5-digit elements with no 
decimal places. On line 020, AR2 is defined as an alphanumeric array that has five 10- 
character elements. On line 030, AR3 is defined as a numeric array having six 4-character 
elements with two decimal places. 


The input format specifications form shows that there are two record types: 01 and O02. Record 
type 01 contains array AR1 in record positions 3 through 22 and array AR3 in record positions 
55 through 78. Record type 02 contains array AR2 in record positions 3 through 52 and array 
AR3 in record positions 55 through 78. The output format specifications form shows that array 
AR3 and the first element of array AR1 are to be included in an output record, as are array AR3 
and an element from array AR2 (identified by the numeric field index Z). Each element in array 
AR3 is to be edited by the edit word OA.AA&CR (A represents blank), and the element from 
array AR1 is to be zero suppressed. To illustrate this, we will assume that the contents of the 
first two records are: 





Record Type Array Contents 
01 AR1 21345768902134576890 
AR3 021345678901 32457689687L 


(L is interpreted as a minus 3) 


02 AR2 BOBAJACEAADICKASMITHABILLA 
BOYDAAAJOEAZEEDABENATABOR 


AR3 02134567890132457689687L 
(L is interpreted as a minus 3) 
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If we make these assumptions, the entries on the output format specifications will produce the 
following output records: 


Output Record 1: 


Array Position in Record Contents 





AR1 (First element) 96 through 100 21345 
AR3 48 through 95 A2.13AAA45.67AAA 
89.01 AAA32.45AAA 
76. 89AAA68.73ACR 
Output Record 2: 


Array Position in Record Contents 





AR2 (Third element 102 through 111 ABILLABOYD 
— Assumes that 

the contents of field 

Z is 3.) 


AR3 48 through 95 A2.13AAA45.67AAA 


89.01 AAA32.45AAA 
76.89AAA68.73ACR 
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Figure 13—26. Using Arrays to Format Output Records (Part 1 of 2) 
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Figure 13—26. Using Arrays to Format Output Records (Part 2 of 2) 


13.10.3.6. Using Arrays to Reduce the Number of Statements You Must Write 


Some calculation operations allow you to specify an array name without an index to 
reference the entire array. These operations are ADD, Z-ADD, SUB, Z-SUB, MULT, DIV, 
SORT, MOVE, MOVEL, MLLZO, MLHZO, MHLZO, MHHZO, MOVEA, DEBUG, XFOOT, and 
LOKUP. 


Some calculation operations allow you to specify an array element only. These operations are 
COMP, DSPLY, TESTB, TESTN, TESTZ, BITON, BITOF, and MVR. 


Figure 13-27 shows an example in which four columns of data with three levels of totals are 
printed by using individual fields. Figure 13-28 shows how you can obtain the same results 
with fewer statements by using arrays. 


In Figure 13-27, the fields L1TOT1 through L1TOT4 are used to accumulate the L1 totals 
for the data in each of the four columns of the report. L1TOT1 contains the L1 total for 
column 1 (data in FIELD1), L1TOT2 contains the L1 total for column 2 (data in FIELD2), 
L1TO3 contains the L1 total for column 3 (data in FIELD3), and L1TOT4 contains the L1 
total for column 4 (data in FIELD4). These first-level totals are added to the L2TOT1, 
L2TOT2, L2TOT3, and L2TOT4 fields when an L1 control break occurs. Similarly, these 
second-level totals are added to the L3TOT1, L3TOT2, L3TOT3, and L3TOT4 fields when 
an L2 control break occurs. 


In Figure 13-28, the arrays AL1, AL2, and AL3 are used in place of the individual total 
fields. The fields L1TOT1 through L1TOT4 used in Figure 13-27 are replaced by the array 
AL1. The data for column 1 (FIELD1) is accumulated in element 1 of array AL1; the data 
for column 2 (FIELD2) is accumulated in element 2 of array AL1; the data for column 3 
(FIELD3) is accumulated in element 3 of array AL1; and the data for column 4 (FIELD4) is 
accumulated in element 4 of array AL1. This produces the first-level totals. Similarly, the 
fields L2TOT1 through L2TOT4 used in Figure 13-27 are replaced by array AL2. The data 
in array AL1 is accumulated in array AL2 for the second-level totals. The fields L3TOT1 
through L3TOT4 used in Figure 13-27 are replaced by array AL3. The data in array AL2 in 
accumulated in array AL3 for the third-level totals. 
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As you can see, by using arrays, you can substantially reduce the number of statements you 
must write. In Figure 13-27, arrays are not used and it takes 27 statements to produce the 
desired results. In Figure 13-28, where arrays are used, it takes only 15 statements. 
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Figure 13—27. Calculating Totals without Arrays (Part 1 of 2) 
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Figure 13—27. Calculating Totals without Arrays (Part 2 of 2) 
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Figure 13—28. Calculating Totals with Arrays (Part 1 of 2) 
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Figure 13—28. Calculating Totals with Arrays (Part 2 of 2) 


13.10.3.7. Using the EXCPT Operation to Write Array Elements 


Figure 13-29 shows an example of how you can use the EXCPT operation to write one 
element from each of two arrays on each line of a report. The file description 
specifications form shows the specifications for a punched card file and the report file. The 
file extension specifications form shows that there are two arrays, AR1 and AR2, in 
alternating format. Both arrays contain 10 elements, and there are 5 elements from each 
array in each input record. Array AR1 is a numeric array and each element contains three 
digits with no decimal places. Array AR2 is a numeric array and each element contains 

© seven digits with no decimal places. The arrays are loaded at compilation time (columns 
11 through 18 are blank). 


The input format specifications form describes the input file INFILE. 
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Lines 010 through 030 on the calculation specifications form show detail calculations. On line 
010, index field A is set to 1. On line O20, array AR1 is searched for an element equal to TYPE. If 
an element is found that is equal to TYPE, under field A is set to the number of that element. On 
line 030, QUAN is added to the element in AR2, which corresponds to the element that met the 
search conditions on line 020. 


Lines 040 to 100 show the total calculations. On line 040, field B, which is to be used as 
a counter, is set to 1. Line O60 specifies the exception output to write out one element of 
each array on the report. On line 70, field B is compared to 100. If field B is equal to 100, 
all of the elements of the arrays have been written out and indicator 60 is set on. If 
indicator 60 is not set on, field B is incremented by 1, the program branches to REPEAT 
(line O50), and the next elements from arrays are written out on the report. This cycle 
repeats itself until all the elements in the arrays have been written out. At end-of-job (LR 
is on), all the elements of array AR2 are added up and the total is placed in the field 
named GRTOT. Lines 010 through 040 on the output specifications form cause the 
headings TYPE and QUANTITY to be printed on every page of the report prior to the 
elements of arrays AR1 and AR2. Lines 050 through 070 are the exception output lines, 
and they cause one element from array AR1 and one element from array AR2 to be 
printed on each line of the report. Lines 080 through 100 cause the field GRTOT to be 
printed with the word GRAND TOTAL at end-of-job. 


COMPILATION MODE INVERTED ALTERNAT 
PRINT COLLATIN 
oumP «x GENERATE SEQUENCI 

z 2 DEBUG CODE 

LINE OPERATOR | 5 

NO CONTROL not 

n USEO j= . 
3 5 14 


Ls Lev old a 


CONTROL CARD SPECIFICATIONS 


SUBROUTINE OR 
ACTION PROGRAM 


PROGRAM 


NOT USED IDENTIFICATION 





¥ 
z 
4 
a 
a 
3° 
x 
g 
a 
7 








FILE PROCESSING MODE 






FILE TYPE 
FILE DESIGNATION 





EXTENSION OR 
LINE COUNTER 
CODE 














KEY OR RECORD 
ADDRESS FIELD LENGTH 








SEQUENCE RECORD ADORESS TYPE 
FILE FORMAT FILE ORGANIZATION 










NAME OF 
LABEL EXIT 
OR NAME OF 
USER DEVICE 
ROUTINE 





















OVERFLOW 
INDICATOR DEVICE 
RECORD 


w 
x aw 
LENGTH Pa D | KEY FIELD 
e s STARTING | 2 
vocation | 
27428|29 30]31}32]33 34|35 38439]40 46 |47 52 
| 
















BLOCK 
LENGTH 






P/S/R/C/D/T 







VOIC!UID 
WTIOMK 2 








RECORD SEQUENCE 


OF CHAINING FILE 


NUMBER OF THE 
CHAINING FIELD 


NUMBER 
TO TABLE OR OF ENTRIES 
FILE NAME ARRAY NAME PER TABLE 
OR ARRAY 


FROM 
FILE NAME 


P/B/L/R DATA FORMAT 
DECIMAL POSITIONS 


7] 








Figure 13—29. Using EXCPT Operation to Write Array Elements (Part 1 of 2) 
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Figure 13—29. Using EXCPT Operation to Write Array Elements (Part 2 of 2) 
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13.11. PROCESSING WITH ALTERNATE COLLATING SEQUENCE 


A collating sequence is the order in terms of value that the characters in a data processing 
system's character set have in relation to one another. This means that a specific value is 
assigned to each character in the character set so that, when you compare one character to 
another, that character will be higher or lower in value than the character it was comparedto. 


13.11.1. RPG Il Collating Sequence 


The normal collating sequence for RPG Il is the EBCDIC collating sequence shown in Table 
13-6. If you examine Table 13-6 you can see that the letters A, B, and C have been assigned the 
hexadecimal values C1, C2, and C3 respectively; consequently, the letter B is higher in value 
than the letter A but lower in value than the letter C. 


If the normal collating sequence does not meet your specific requirements, you can change it by 
defining an alternate collating sequence. 

13.11.2. Defining an Alternate Collating Sequence 

If you need to use an alternate collating sequence in your program, you indicate this by entering 
an S incolumn 26 of the control card specifications form. Then, at compilation time, you include 
one or more records that contain the changes to be made to the normal collating sequence in 


your compilation input deck. 


The records that contain these changes must be in the following format: 





Position Entry 

1 through 6 ALTSEQ. This indicates that this is an alternate collating sequence 
record. 

7 and 8 Blank 

9 and 10 Enter the hexadecimal value (Table 13-6) that corresponds to the 


character whose normal collating sequence is being changed. 


11 and 12 Enter the hexadecimal value that corresponds to the character that is 
to replace the character specified in columns 9 and 10. 


13 through 80 These positions can be used in the same manner as columns 9 and 10, 
and 11 and 12 to specify additional changes to the normal collating 
sequence. Each 4-position set defines an additional change. 
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Table 13—6. RPG Il Collating Sequence (Part 1 of 3) 

















Hexa- 
decimal 
Value 


| oooooo00 | —ts—‘YC«CCd 
[90000001 |__| 01 
[00000010 [| —S—S~d— 
F 00000011 | ——~d—o sd 
00000100 | ———S=~di—i id 
[00000107 | —————~«dt oid 
[00000110 | 06] 
[o0000111_| ———~+dto7 
[00001000 |) | ~08 

[oo001001_| ————~«dt ot 
[00001010 [SSC 
{| 00001011 —[ t~—“‘é‘zL:«COWCSC(‘SCid”d 
Foooo1100_ [| ———~d—oc Ci” 
osogt101 [| oo 
[oooor10 | | of 
[0000111 | ———S—S~dt oF 
[00010000—[ “70 

[00010001 tt 
[00010010 fd 12 
[90910011 [13 
[00010100 | Sid ta 
[o0010101_[ Sid 
[00010110 | —S~d—t 
Foooions | id tr 
[00011000 [| ——Ssd—it! 
-o0g11001 |] 19] 
[ooorior0 | Sd 
| 00011011 | CB 
eoogt 1008" a es 
| ooo11101 [|  tC—“‘iE:CS ‘OT 
[oo0110 | Sd 
[ooo | SSCS 
[00100000 | ——S—~d—C2 
[00100001 [SSS 2 
[00100010 | +t 22d 
RO a a eT 
[~ooro0100 | SSCS sd 
[oo100101 [SSCS 
[o0100110| Sd 2 
[ooroorns | SSCS 2 
[00101000_[ | 78 
[ooro1001 | ——S~d— 
[~ooro1010 | —SSCSC~S 2 
[ooror011_| St 
| 00101100 | CC 
Se a omy 
[oororn0 |S 2 
EE a 2 
[o0110000_ [| ——S~d; (Cid 






EBCDIC 
Character 




















































Hexa- 























nary EBCDIC decimal 
Value Character Value 

00110001 31 
Oot roeTOs I 82 
| oorroors [8 
Sel a ee 
[oormorio | —S~d—C i'd 
Eportorit f+ 

| oorsio00 fT 88 
-ooir001_| —SSC~C~SCi Cd 
| oomor0, sf A 
ooroms_ | SCS BY 
P oorti00 fC 
Pp oorim0n Sf 8 
res te 


oorr110_| 
oot | S—~d—e 
[07000000 | Biank or space | 40 
Foro00001 “| CdS Cd 
For000010_| [a2 
01000011 
[01000100 | Sir rd 
[oro00101 | Sia 
[o1000110 | ——S~S a 
[ooo | Sida 
[o1o01000 [SSCS a+r 
[o1o0r001 | | «3 
[oroo110 | ¢ ~*~ aa 
oroo1011 | SCS ab 
[oroor101_[ (| ap 


01001100 
01001111 
01010000 
01010001 
01010010 
01010011 
01010100 
01010101 
01010110 
01010111 
01011000 
01011001 
01011010 
01011011 
01011100 





fo) 


oO 
wry 


55 


oa 
> 


fo>) ajor Q apn o os 
nym oO om nest 


01011111 
01100000 
01100001 


/ 
/ 


~ 
= 
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Table 13—6. RPG II Collating Sequence (Part 2 of 3) 













Hexa- 

















Binary EBCDIC decimal 
Value Character Value 
01100010 62 

| 01100011 [| —Ci‘idEC 
| 01100100 [| t—( CC Cd 
| o1m0oi00 *—| tt C—“Ci;éidr:C(i SS Cd 
| oroorr1o [| t(“ ted Cd 
 uOVtOOr T= eg | 
| or101000 [ (CCC 
p01701001_—| CC 
| 01101010 “| A 
p oot sd 
P ornornnon [ -~ st eo 
Pov01110 S#[| > Cir 
P orotate 
p_01110000 fT 0 
PF o1110001 «| 
pF oiinooio “| CCE 
P| o1i0011_ «| 8 
F 01110100 | 3 
Tororo | iY 
rortor10_| ———«dtC id 
Fonio11 | Sid 
[ort1000 [| Sid? 
OUR OOn S| PO 
[ort11010 |: _-+| 7A _| 
onion | # | 78 | 
[01111100] @ +t 7e_—id 
omnion | Sid 
P 0111710 =| = 

OL pret: Le —— — | 
|_1ooo00c00 | 
|_10000001_[ 

| 10000010 | 
/10000011_ [| 


1000010 
10000101 





00] 00] 00] 00] 00 Joo 00] 00} co sw 
O| to] > oly A) ST pas n|m 


| 10000100 [| 
[10000101 | 
| 100001190 | 
| 10000111 | 
| 10001000 [| 
|_10001001 [Od 
| 10001010 ‘| 
| 10001011_—f 
[10001100 ff 
p 10007707 Of 
10001110 8E 
| 40001111 | 






ee eee ae eee 
|_ioo10000_[ 8 
| 10010001 [| 
|_ 1010010 | 
jp iooroorn fo 8 
| 10010100 [TT 
| _too1o101 | 8 
| oor, | 
eres) a 
ee ea 
aerial (A: Med 
ee eee ae 
ee SOB: cc 
Saar eee 
















10011000 
10011001 
10011010 
10011100 














Hexa- 
Value Character Value 
tooion | Cd 8 
e+} 
P= OOTIT I = ———— 5 5 ar 
| 10100000 | CE A 
| 10100010 [| CT 
BoC a 
| io100100 [| 
| 10100103 [| sd 
P_ioioo1i0 | CS 
| 10100111 :«| SY 
| toro1000_ | 
Pororoor_f CCS 


10101010 


10101100 


oO 


10101111 
10110 
10110001 
10110010 
10110011 
10110100 


8 


101101171 
10111000 


10111011 
10111100 
10111101 
10141110 
10111111 
11000000 
11000001 
11000010 
11000011 
11000100 
11000101 
11000110 


tvs] 
io) 


volo QJOLOJOLOLOLOLOJOL QLOPO/ OOO] oO |a|o @j}o iovd Tes) [ool took fos) DID IPD |[P|[P| Y|/ >| P|] Pp] pPi yp | > 
Gio THMIOIO] DB] pjoOpolm| DE Bai w [My ]—1 O Imi m olp coon Bw WIN f= am|m QD] Pl O;BMlNIM [Mia lo 


11001000 





[11001001 | 1 SSS 
[001010 [SSS 
Pqqoojonvc df — 
|11001100 | CS 
[rroortor | 
[rro0r10 | 
|11001111_~«| Cid 
[11010000 | f___ 
[tioroont_—| tS CC~*™ 
PAIOtOO On ——— Der | 
[rrororis [Pf 07] 
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Table 13—6. RPG I! Collating Sequence (Part 3 of 3) 






















Hexa- 
Value Character Value 

} 11011000 | 1011000 pa ___}os__ 
Pvio1001 TR 

Pvioi1010 ST CC A 
Prono | ——~« ee _| 
iioi100 | ———S—S—~d +d 
PavOTITG). OD __] 
Prono | —S~s Eid 
es i eee 
| 11100001 ~—[ C—C‘i~iCSE 
[0100100 fi U ee 
Paro1oio | —~+i er _] 
P11101011—~SO [| t~—“‘T CEC 
EO TO TOO 8 ae EC 
ea NOTION, = fl = Ee 
EE a ce | 
P1110 =O] —C—“‘dCSE 
| iinio000 =| o 7 t—“<iCSF 
fe AE SONOO be AP) 
rong. ere — 7 
Pino |e —~+s re __] 
Tirm001 | 9 Sid 
Paadiioier he A 
Parnno11_f Sid 
EPH 1000 es eC 
AEST ee 
PEEL ee a Be 
prmpremi [ en | 
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You can use the entire record to specify collating sequence changes. If you have more than one 
change in a record, the 4-position change sets must be contiguous. If a blank position appears 
between two change sets, the changes following the blank position will be ignored. You can use 
as many change records as needed, provided they are in the proper format. 


When you include alternate collating sequence records in your compilation input deck, these 
records must be preceded by a record that contains **blank in positions 1 through 3. This 
record, plus the alternate collating sequence records, must be placed in the deck following any 
file translation records. A record with **blank in positions 1 through 3 or /* in positions 1 and2 
must follow the last alternate collating sequence record. 


If you define an alternate collating sequence, it will affect how sequence checking, matching 
field operations, and alphanumeric comparison operations are performed. It will not, however, 
affect numeric comparison operations, look-up operations, or table or array sequence 
checking; and no data will be altered. 


13.11.3. Using an Alternate Collating Sequence 


As you know, you can use an alternate collating sequence when the normal collating sequence 
does not meet your needs. For example, you could define an alternate collating sequence when 
you want two characters to be considered equal, when you want to alter the normal collating 
sequence by inserting a character between two existing characters, or when you want to 
change the position of characters in the collating sequence. 


13.11.3.1. Causing Characters to Be Considered Equal 


Figure 13-30 shows how you can use an alternate collating sequence to cause characters to be 
considered equal. In this example, assume that you want to have a blank considered equal toa 
zero. To have these characters compare equally, they must appear in the same position in the 
collating sequence. If you examine Table 13-6, you will see that the hexadecimal value for 
blank is 40 and the hexadecimal value for zero is FO. You then must define an alternate collating 
sequence in which blank is replaced with zero by placing 40 (blank) in positions 9 and 10 and FO 
(zero) in positions 11 and 12 in an ALTSEO record. 


1 10 


ALTSEQAA4BOFSB 





Figure 13—30. Causing Characters to Be Considered Equal 


If you defined this alternate collating sequence, the field AAAA would be considered as being 
equal to OOOO. 
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13.11.3.2. Inserting a Character between Two Existing Characters in the 
Collating Sequence 


Figure 13-31 shows how you can use an alternate collating sequence to insert a character 
between two existing characters in the collating sequence. In this example, assume that you 
want to insert an asterisk (*) between the characters A and B in the collating sequence. In this 
case, the asterisk must take the letter B’s position. If you examine Table 13-6, you will see that 
the hexadecimal value for asterisk is 5C and the hexadecimal value for B is C2. You then must 
define an alternate collating sequence in which asterisk takes B’s position by placing 5C in 
columns 9 and 10 and C2 in columns 11 and 12 inan ALTSEQ record. At this point, the asterisk 
has taken B's position; however, the desired change requires that each successive character, 
beginning with B, must take the position of the next higher character in the collating sequence. 
This means that B must take C’s position, C must take D’s position, and so on until | occupies the 
position normally held by the hexadecimal value CA, for which there is no printable character. 
This requires the following additional entries in the ALTSEQ record: 





Column Entry Explanation 

13 and 14, 15 and 16 C2C3 B(C2) takes C’s (C3) position 

17 and 18, 19 and 20 C3C4 C(C3) takes D's (C4) position 

21 and 22, 23 and 24 C4c5 D(C4) takes E’s (C5) position 

25 and 26, 27 and 28 C5C6 E(C5) takes F’s (C6) position 

29 and 30, 31 and 32 C6C7 F(C6) takes G's (C7) position 

33 and 34, 35 and 36 C7C8 G(C7) takes H’s (C8) position 

37 and 38, 39 and 40 C8C9 H(C8) takes I’s (C9) position 

41 and 42, 43 and 44 C9CA (C9) takes the unprintable character CA’s position. 


1 10 20 30 40 
ALTSEQAASCC2C2C3C3CACACSCSCECECTC7C8C8CICICA 
a 


asterisk (*) B takes C’s position, 
takes B's C takes D's position, 
position. and so on. 





Figure 13—31. Inserting a Character between Two Existing Characters in the Collating Sequence 


If you defined this alternate collating sequence, an asterisk has a higher value than A and a 
lower value than B because the collating sequence is A, *, B, C,D, E, F, G, H, linstead of A, B, C, 
D, E, F, G, H, I. 
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13.11.3.3. Changing the Position of Characters in the Collating Sequence 


Figure 13-32 shows how you can use an alternate collating sequence to change the position of 
characters in the collating sequence. In this example, assume that you want to change the 
position of the letters A and B so that B appears before A. In this case, you must reverse the 
positions of these letters in the collating sequence. If you examine Table 13-6, you will see that 
the hexadecimal value for A is C1 and the hexadecimal value for B is C2. You then must define 
an alternating collating sequence in which A is replaced by B and B is replaced by A. You do this 
by placing C1(A) in positions 9 and 10, C2(B) in positions 11 and 12, C2(B) in positions 13 and 
14, and C1(A) in positions 15 and 16 in an ALTSEOQ record. 


| 10 20 30 40 50 60 
ALTSEQAACIC2C2C1 


Figure 13—32. Changing the Position of Characters in the Collating Sequence 


If you defined this alternate collating sequence, A has a greater value than B because the 
collating sequence is B,A,C,...,X,Y,Z, instead of A,B,C,...,X,Y,Z. 


13.12. PROCESSING WITH FILE TRANSLATION 

File translation is the ability to translate any character into another character. This means that 
you can cause a specific character to be automatically changed to whatever other character you 
choose by defining a file translation table. 

13.12.1. Defining a File Translation Table 

If you need to use file translation in your program, you indicate this by entering an F in 


column 43 of the control card specifications form. Then, at compilation time, you 


include one or more records that contain the file translation table in your compilation 
input deck. 


The format of the records that contain the file translation table depends upon whether 
the table is to apply to all files in your program or only to selected files. 


If the table is to apply to one or all files in your program, the format of the translation 
table record is: 


Position Entry 





1 through 8 Enter *FILESAA if the translation table applies to all files in your 


program. Enter the file name if the translation table applies to one 
file in your program. 


9 and 10 Enter the hexadecimal value (Table 13-6) that corresponds to the 
character that is to be translated on input or translated to on output. 
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Position Entry 


11 and 12 Enter the hexadecimal value that corresponds to the _ internal 
character that RPG II will work with. This character replaces the 
character in positions 9 and 10 on input and is replaced by the 
character in positions 9 and 10 on output. 


13 through 80 These positions can be used in the same manner as columns 9 and 10, 
and 11 and 12, to specify additional character translations. Each 4- 
position set defines an additional character translation. As with 
positions 9 and 10, and 11 and 12, the first two positions specify the 
character to be translated on input or translated to on output, and the 
second two positions specify the internal character RPG II will work 
with, that is, the character that replaces the character in the first two 
positions on input and is replaced by the character in the first two 
positions on output. 


You can use the entire record to specify character translations. lf you have more than one 
character translation in a record, the 4-position translation sets must be contiguous. If a 
blank position appears between two translation sets, the translation sets following the 
blank position will be ignored. You can use as many translation table records as needed, 
provided they are in the proper format. 


If the table is to apply to one or more selected files in your program, two types of 
translation table records are required. The first type specifies the files that are involved 
and the second specifies the characters to be translated. The format of a record that 
specifies which files are involved is: 





Position Entry 
1 through 8 *EQUATEA 
9 through 80 Enter the names of the files (from columns 7 through 13 of the file 


description specifications form) to be translated. If more than one 
file is involved, a comma must separate each file name. 


You can use the entire record to specify file names that are associated with the translation 
table. When a file name is encountered that is not followed by a comma, it indicates that this is 
the last file to be associated with the translation table. A file name cannot be split between 
records. It must be specified completely in one record. You can use as many file specification 
records as needed, provided they are in the proper format. 
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After you have specified the files that are involved, you must then specify the character to be 
translated. You do this by preparing one or more records in the following format: 








Position Entry 
1 through 8 *EQUATEA 
9 and 10 Enter the hexadecimal value (Table 13-6) that corresponds to the 


character that is to be translated on input or translated to on output. 


11 and 12 Enter the hexadecimal value that corresponds to the _ internal 
character RPG Il will work with. This character will replace the 
character in positions 9 and 10 on input and be replaced by the 
character in positions 9 and 10 on output. 


13 through 80 These positions can be used in the same manner as columns 9 and 10, 
and 11 and 12, to specify additional character translations. Each 4- 
position set defines an additional character translation. As with 
positions 9 and 10, and 11 and 12, the first two positions specify the 
character to be translated on input or translated to on output, and the 
second two positions specify the internal character RPG II will work 
with, that is, the character that replaces the first two positions on input 
and is replaced by the character in the first two positions on output. 


You can use the entire record to specify character translations. If you have more than one 
character translation in a record, the 4-position translation sets must be contiguous. If a blank 
position appears between two translation sets, the translation sets following the blank 
positions will be ignored. You can use as many translation table records as needed, provided 
they are in the proper format. 





When you include file translation table records in your compilation input deck, these records 
must be preceded by a record that contains **blank in columns 1 through 3. This record, plus 
the file translation table records, must be placed in the deck immediately following the last 
source program statement. A record with **blank in columns 1 through 3 or /* in columns 1 
and 2 must follow the last file translation table record. 


if you define a file translation table, a character from each record in a file is replaced internally 
by the translation character whether it is an input, output, update, or combined file. This 
includes tables or arrays loaded at execution time. 


When you have a combined or update file, the file is translated at both input and output time. If 
an update file is involved, each record must be written before the next record is read. 


When you use a file translation table with a chaining or record address file, the translated data 
must be the data you intend to retrieve. 
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13.12.2. Using a File Translation Table 


As you know, you can use a file translation table in your program when you need to translate 
specific characters into other characters during input or output. For example, you could define a 
file translation table if you had a file that contained coded confidential data, such as wholesale 
prices, and you wanted to: 


= translate this data into its actual value to perform calculations with it in your program; or 

™ translate specific characters into other characters for more than one file but not all files in 
your program. 

13.12.2.1. Using File Translation to Translate Characters in a File 


Figure 13-33 shows an example of how you can use a file translation table to translate 
characters to other characters in a file. 


In this example, assume that the file CONFILE contains billing information in the form of the 
retail price for an item and the coded wholesale price. The wholesale price code consists of a 
10-character alphabetic code in which letters are substituted for numbers. In this case, assume 
that LAMPEWICKS is the code and the substitution is: 





If you want to use the wholesale price in your program calculations, you must define a 
translation table so that these letters are translated into numbers when they are read. The 
hexadecimal values for the wholesale price code letters and the numbers that they are to be 
translated to are: 


Wholesale Hexadecimal Equivalent Hexadecimal 
Code Value Number Value 
L D3 1 F1 
A C1 2 F2 
M D4 3 F3 
P D7 4 F4 
E C5 5 F5 
WwW E6 6 F6 
| C9 7 F7 
C C3 8 F8 
K D2 9 FQ 
S E2 0 FO 


The translation table that you supply must translate L to 1, Ato 2, Mto 3, andsoon. Youdo this 
by placing D3(L) in positions 9 and 10, F1(1)in positions 11 and 12, C1(A)in positions 13 and 14, 
F2(2) in positions 15 and 16, D4(M) in positions 17 and 18, F3(3) in positions 19 and 20, and so 
on. 
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1 10 20 30 40 50 





CONFILEAD3FICIF2D4F3D7F4C5FSEGFECOF7C3F8D2F9EZFO 





Figure 13—-33. Using File Translation to Translate Characters in a File 


If you define this translation table, CC.KA translates as 88.92. 


If you wanted this translation table to apply to all the files in your program, you could 
substitute *FILESAA for CONFILEA in positions 1 through 8. 


13.12.2.2. Using File Translation for More than One but Not All Files 


Figure 13-34 shows an example of how you can use a file translation table in your program 
when you need to translate specific characters into other characters in more than one but not 
all files in your program. 


In this example, assume that you have four files named AFILE, BFILE, CFILE, and DFILE. 
When you encounter a left parenthesis, (, or a right parenthesis, ), in any of these files, 
they are to be changed to a left brace, {, and a right brace, }, respectively. To do this, you 
must first define the files that are involved by specifying a *EQUATE record that lists these 
files. Then, you must define a *EQUATE record that defines a translation table that 
translates ( to {, and ) to }, by placing 4D(( ) in positions 9 and 10 and CO({) in positions 11 
and 12, and 5D( )) in positions 13 and 14 and DO(}) in positions 15 and 16. & 





1 10 20 30 
“EQUATEAAFILE,BFILE,CFILE ,DFILE 


“EQUATEA4SDCO5DD9 





Figure 13—34. Using File Translation to Translate Characters for More than One but Not All Files 


If you define this translation table, the field (99976) translates as {99976}. 


13.13. PROCESSING WITH WORKSTATIONS 


A workstation is an interactive device with a screen for displaying dialog text and a 
keyboard for entering input. 


One or more workstations can concurrently enter data into an executing RPG II program. 
When you use the workstation, you must enter your input on screen formats created with 


the screen format generator. These screen formats must correspond to the input/output 
fields you define on the input and output specifications. : 
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To execute a workstation program, you enter standard job control statements first. A 
program can contain only one workstation file, but you can assign up to 255 
workstations to it using the standard // DVC ... // LFD job contro! sequence. 


You can connect all, some, or none of the 255 workstations to the workstation file 
when the program is executed. If none of the workstations are connected when the 
program opens the workstation file, the program waits for the first workstation to be 
connected by the CONNECT operation and then displays the first screen. While the 
program is executing, you can connect other workstations and then disconnect them 
when you no longer need them. However, once you connect the first workstation and 
then disconnect it along with all other workstations you may have added, the following 
occurs: 


 ] For primary files (13.3.1): the last record (LR) indicator is set on and the program 
terminates. 


a For demand files (13.7.1): the end-of-file indicator is set on. 

All input you enter at the workstation should produce output from the program so that the 
operator knows that the input was processed. For multivolume workstation files, the 
operator should always wait for the return message after the input is entered before going 


to system mode; otherwise, other workstations connected to the file may be delayed with 
their transactions. 


The end-of-file function key (function key 15) disconnects your workstation from your 
program. 


You must observe the following restrictions when you use a workstation file: 


# You can only use one workstation file per program. 
# You must specify the workstation file as a combined file. 


= If you specify the workstation file as a primary file, you can’t use secondary files in 
the program. 


» If you specify the workstation file as a demand file, primary and secondary files are 
not required. 


= You can’t use control level indicators, matching fields, or look-ahead fields. 
= You can't use the first page indicator (1P). 


a You can’t use output before you enter input because the workstation identification 
field used internally by RPG Hl doesn’t contain a value until after an input transaction 
is completed. When you use multivolume workstation files, the output goes to the 
workstation that last transmitted input. 


The first record generated by RPG II as input from each workstation is blank. The program 
recognizes this blank record and displays the initial screen format. Depending on the 
screen formats you generate, it is possible that other records may also be blank. 
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You should provide some means of identifying the source of the input data from the data 
itself. This is necessary because each workstation transaction could involve several 
input/output sequences using the same or different screen formats. Therefore, you should 
separate the activities of the workstations within the program. 


13.13.1. File Description Specifications for Workstation Files 


The following entries are valid for the file description specifications for a workstation file: 


Column Entry 

6 Must contain F. 

7 through 13 Must contain the file name. 

15 Must contain a C for combined files. 

16 Must contain a P for a primary file or a D for a demand file. When 
you specify a primary file, you can’t use any secondary files in the 
program. , 

17 and 18 Must be blank. 

19 Must contain an F for a fixed-length record. 


20 through 23 Blank or equal to the record length. 

24 through 27 Length of the longest record. It must be equal to the highest end 
position you specified on the input or output specification. This 
entry doesn’t apply to the screen size. 

28 through 39 Must be blank. 

40 through 46 Must contain the word WORKSTN, identifying the file as a 
workstation file. You can use only one workstation file per 
program, but you can assign up to eight workstations to it. 

47 through 70 Must be blank. 

71 and 72 Enter an external indicator (U1 through U8) if needed. 

73 and 74 Must be blank. 


75 through 80 Enter a program identification if needed. 














UP-8067 Rev. 6 





SPERRY UNIVAC OS/3 13-85 
RPG Il Update A 


13.13.2. Input Format Specifications for Workstation Files 


The following special considerations apply to the input format specifications for a 


workstation file: 


Column 


19 and 20 


19 through 41 


44 through 51 


59 and 60 


61 and 62 


Entry 





Look-ahead fields. Must be blank. You can’t use look-ahead fields. 
(See 13.8.) 


Must identify each different record type (or screen type) including 
the initial blank screen. 


Must contain the location of the field in the input record, not the 
location on the screen. The location of a particular input field 
depends on the number and length of the fields that precede it in 
the input record. You must know the format of the input record 
created for each screen format. 


Must be blank. You can’t use control level indicators. 


Must be blank. You can’t use matching fields. 


The screens created by the screen format generator must correspond to the input fields 
you define on the input format specifications. 


13.13.3. Calculation Specifications for Workstation Files 


The following special considerations apply to the calculations specifications for a 


workstation file: 
Column 


28 through 32 


Entry 


Must contain the READ operation in order for demand files to input 
data. You must use the READ operation before the first output 
occurs at the workstation. The first record read is blank. 


13.13.4. Output Format Specifications for Workstation Files 


The following special considerations apply to the output format specifications for a 


workstation file: 
Column 
23 through 31 


40 through 43 


Entry (on output file identification) 


Must not contain the first page indicator (1P). 


Blank 
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Column Entry (on first field description following an output file 
identification) 

23 through 31 Must be blank. 

42 and 43 Enter Kn, where n is the length of the format name. 


45 through 54 Must contain a format name. One format name is required for 
each output record for the workstation file. You can’t use more 
than one format name per record. You must enclose the format 
name within apostrophes. 


Column Entry (on other field descriptions) 


40 through 43 End position. The end position refers to the end position of the 
field in the output record, not to the end position of the field as 
it appears on the screen. The fields in the output record start in 
position 1 and must appear in the order expected by the screen 
format. 


You can’t use output before you enter input. When you use multivolume files, the output 
goes to the workstation that last transmitted input. 


The screens created by the screen format generator must correspond to the output fields 
you define on the output format specification. 





13.13.5. Input/Output Errors for Workstation Files 


When an input/output error occurs with a workstation file, the *ERROR field contains the 
character 4 (X‘F4’) and the HO indicator is set on. When using a demand file, reset the HO 
indicator to continue processing. 


13.13.6. Sample Program for a Workstation File 
You use the following commands at the workstation to create and compile your program: 


LOGON user-id 
EDT 


RPG II source program 


@WRITE INPUT1 
// JOB COMPIL 
//RPGBL RPG, IN=INPUTI 
/& 
@WRITE $Y$JCS 
@HALT 
RV COMPIL 
LOGOFF 





UP-8067 Rev. 6 SPERRY UNIVAC 0S/3 13-87 
RPG II Update A 


@ In the sample program, a MIRAM file is accessed from a workstation. The MIRAM file 
contains a list of names and addresses and is indexed by name. You access the MIRAM 
file with the CHAIN operation by using the name as a key. 


You enter a name at the workstation on the screen format ENTRNAME (Figure 13-35) 
created with the screen format generator. 


ENTER NAME 





Figure 13—35. Screen Format ENTRNAME for Sample Workstation Program 


If the name you enter is in the MIRAM file, the address information is displayed with the 
screen format ADDRFRMT (Figure 13-36): 


NAME: ROBERT L. SMITH 


ADDRESS: 1234 ANY STREET 
ANYTOWN, ST 12345 


@ ENTER NAME 





Figure 13—36. Screen Format ADDRFRMT for Sample Workstation Program 


If the name you enter is not in the MIRAM file, the error screen format NOFIND (Figure 
13-37) is displayed: 


NAME: TOMMY CARTRE 
NOT FOUND IN FILE 


ENTER NAME 





Figure 13—37. Screen Format NOFIND for Sample Workstation Program 


The program processes names until all workstations are disconnected from the 
workstation file. When this happens, the last record indicator (LR) is set on by RPG Il and 


eS the program terminates. 


Figure 13-38 gives a sample program for this workstation file. 
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Figure 13—38. Sample Workstation Program (Part 2 of 2) 
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The following explains the coding in Figure 13-38. 





Line Number Explanation 

1 The control card specification contains the program name 
ADDCHK. 

2 The first file description specification describes the workstation file. 


It is the primary file and is a combined file. 


3 The second file description specification describes the MIRAM file 
named MAST, which contains the names and addresses. 


4 The input format specification specifies that indicator 01 is the 
record identifying indicator for the blank record. This blank record 
is the first record read from each workstation. 


5 and 6 The input format specification for the name you enter from the 
workstation. 


7 through 11 The input format specification for the records from the chained 
MIRAM file. 
12 The calculation specification for the MIRAM file CHAIN operation, 





using the key named NAME. 


13 through 18 The output format specifications that display the screen format 
named ADDRFRMT, which contains the address information 
retrieved from the MIRAM file. 


19 through 21 The output format specifications that display the error screen 
format named NOFIND when the name you enter is not found in 
the MIRAM file. 

22 through 24 The output format specifications that display the input screen 
format named ENTRNAME. 

13.14. KEY SPECIFICATION WITH MIRAM FILES 

You can process MIRAM (CDM) files using single-key or multikey structures. Once a file 
is created using a particular structure, any programs that access it must use the same 
key structure. 


There are two ways of specifying a single-key MIRAM file: 


m= Enter the key length (columns 29 and 30), file type (columns 31 and 32), and key 
location (columns 35 through 38), on the file description specifications form. 





m Enter the continuation line option entry (columns 54 through 59), key location 
(columns 60 through 65), key length (columns 66 and 67), and the key options 
(columns 68 and 69) on the file description specifications continuation statement. 
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In both cases, the key specified is the primary key of reference. 


For a multikey MIRAM file, enter the key descriptions on the file description 
specifications continuation statements (5.2.18). You must use the continuation 
statement when you create a file that has more than a single key structure, and the 
specification sequence of key structure must be KEY1 through KEY5 (5.2.18.2). i 


When you use the continuation statements, you must leave columns 29 and 30, and 35 
through 38 blank. Columns 31 and 32 must contain an entry. 


For multikey MIRAM files, the first key specified on the continuation statements is used 
as the primary key of reference. 


Use the SETK operation (7.3.3.8.2) to select the key structure that will be used to 
retrieve records from the indexed file. 


13.14.1. Processing a Multikey MIRAM File Sequentially by Key 


A multikey MIRAM file may be processed sequentially by a key structure other than the 
primary key structure. This requires the use of the SETK operation. The program 
example in Figure 13—38A shows that the indexed MIRAM file is printed sequentially by 
KEY 2. 


Lines 2 through 4 give the definition of the file. Line 3 shows that KEY1 is 20 positions 
long and begins in position 1. Line 4 shows that KEY2 is 5 positions long and begins in 
position 21. This file is also the primary input file. 


The first record read from the file is by KEY1, but this record is not printed because 
indicator 01 is set off at line 11 the first time as a result of the calculations. Indicator 
01 is also used to control the printing (lines 13 and 14). The SETK operation on line 10 
sets KEY2 as the key of reference. 


Since the SETK operation sets the file to the beginning of KEY2, this operation is 
executed only once, the first time through the calculations. 


The next record read from the file is the first record read sequentially for KEY2. This is 
the first record printed since indicator 01 is set off only on the first cycle. 


Similarly, the remaining records are read sequentially by KEY2 and printed. 





UP-8067 Rev. 6 SPERRY UNIVAC OS/3 13-90b 


RPG Il Update D 





CONTROL CARD SPECIFICATIONS 




























COMPILATION MODE 
ERROR ANALYSIS 


FORMS ALIGNMENT INDICATOR INITIALIZATION 


x FILE TRANSLATION 





INVERTED 
PRINT 


ALTERNATE 
COLLATING 
SEQUENCE 


























« GENERATE SIGN HANDLING 


z 
crcnaron | {oeeue coos 


J 
NOT NoT 
O | useo USED 
NOT USED 
10 14/15/36 17 tg 20/2122 25) 





BINARY SEARCH 










O/1/J OR BLANK 
1 OR BLANK 

3 SOR BLANK 

5 fF OR BLAN 


NOT USED 


S1-G6 OR BLANK 





r | ~ 2/9/4 OR BLANK 


FILE DESCRIPTION SPECIFICATION 


FILE PROCESSING MOUE EXTENSION OR Ft 
FILE DESIGNATION KEY OH RECORD LINE COUNTEH NUMBER 
ADUHE Sd FIELD LENGTH cope NAME OF OF BYTES 


n 









IN MAIN 






LA/U OR BLANK 


















SEQUENCE RECORD ADURESS TYPE bn bANE bf STORAGE 
FILE FILE FORMAT FILE ORGANIZATION Not user vevice | 7O8E eserves 
F 
ry 
pe [= > OVERFLOW USED ROUTINE inne x 
6 sv] worcator DEVICE 
Y BLOCK RECORD xl oO CONTINUATION LINES 
4 LENGTH LENGIH al Oo [xKevereco 2 \ 
2 ft: Fr] g | starting zo 
“i 7 tocation | x OPTION ENTRY xe 
23]24 27{78}29 so] s1fs2]3u sa] 36 Ja) 39] 40 46 }a7 52|53] 5 so} eo 6s}66 67 
Veo, / 00 if tpuda PAE SKi ia farrell: sl eee aes es ae | i 
B ; 
wL aus aoaa 1 1 pao Pauaultaa he chetiel: f vq) CE Y epi 
st | 








fh iat doi i t i oe ‘ ine od 4 4 foe de Wa 4 
V2Z0Ol / 2.0 i DFA. PRINTER i bi ddbaar ie 
INPUT FORMAT SPECIFICATIONS 


FIELD DESCRIPTION 





RECORD IDENTIFICATION 
























































RECORD IDENTIFICATION CODES 
N 9 « FIELD LOCATION x 
Si]u pas o 2 va r, 
Z</o ie - é a [a3 
Salt =O oye = a aw 
3 rar = wslo 
FILE og 2)s)2e a a FrELO 2 vale 
NAME a? «/3°2 = = tials 2 NAME s 4 98 
ae ra oa §| Position GI POSTION Of POSITION Blels FROM ais) 2 3 Zez)er 
zl/a2 » < a < a reac $ espzztts 
zfa]oo ofola O}ala ofolxioli« = ~ cs] Szle 
fa[nfojsio| oz Fara cs Zin] Pape ara rs o z te Slee] $ 
aria SINE Nir Niziela Ps ° Peay eo 2 
po] R | -fola Zzlo[a Z1olG zfelofala fe) oo = = & 
4 1741819 20] 21 24425 [26] 27128 31[32}33] 3435 38}39{40 [41/42/43 [44 a7|48 152453 581/59 60163 62 65 66! 
O.// Ns 8 a ees Co ol tia rive eer ees tae We eae tabs Wes Woes Ue cee 3 eS 
pir tii wa iy fa Dron | 4 oLeh = ie a ee a eae Oy ME {{ 
o 
pint eae pe 4 cil ato \ fara) ae Wd MBE b 
| mr leee Gris Ga Ps 8 ril faa t 1 2G} / O10 Aud AA ey 


CALCULATION SPECIFICATIONS 


CONDITIONS CALCULATION RESULTING 
INDICATORS RESULT FIELD INDICATORS 


EES FACTOR 1 OPERATION FACTOR 2 


COMPARE COMMEN 


LO-L9/LA/SR 


(FACTOR 2) 1S 


T] HIGH] LOW |€O 
56 57 60 


fa 

PTE ea 

Tout t 
ree, 


4 
| bg 
7 


[o[>] CONTROL LEVEL 
DECIMAL POSITIONS 





fo [= 











SSS To enor | 


Popp 
Reto 15] 
KS fe | 









STACKER SELECT/ 
F-FETCH OVERFLOW 


























CODES 
NEGATIVE VALUE INDICATION 
none [CA 


QATA FORMAT 
PB UR 









COMMAS 
INSERTED 
















x 
4 FIELD = 
Fle NAME a ND 
el o 4) POStTION 
<fpoa 4 iN 
y 2 
r 
1.3 OUTPUT 
“AUTO Bl KECORD 
o 
39 


40 




















RG Sa boG 





Co fefetef cerone | 


Pp aN fa fale 


Pa tal Tole] 














Figure 13-38A. Indexed MIRAM File Program Example 
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13.15. PROCESSING WITH DATA STRUCTURES 

You use data structures to: 

# Allow multiple definitions of internal areas using different data formats 

=  Subdivide data fields so that you can reference either the entire field or its subfields 


= Group fields to make referencing easier 


A data structure is an alphanumeric byte string that starts on a double-word boundary. 
It initially contains blanks. If you specify a compile-time array as a subfield, the array 
data is positioned in the data structure. Similarly, subfields that redefine an input field 
contain input data after an input operation. 


Subfields that redefine a result field, however, are left as blanks. Therefore, if you define 
any of the subfields as numeric, they must be initialized with numeric data before they 
are used in any calculation operations. 


You can redefine subfields in the data structure by specifying the same information in 
columns 44 through 51 (to/from location) of the input specifications form for another 
subfield. 


You must specify the name of an input field or a result field that you want to redefine in 
the data structure. The name doesn’t need to immediately precede the subfields that 
redefine it. When you redefine an input field, the information you specify in columns 44 
through 51 (to/from location) is relative to the beginning of the data structure, not to the 
positions that the field occupies in the input record. 


If you use a field as a data structure name or as a data structure subfield name, the 
reserved space for that field is in the data structure no matter where you defined the field. 


You can give a subfield the same length attributes as other subfields or fields. An 


alphanumeric subfield can be up to 256 characters in length; a numeric subfield can be up 
to 15 characters in length. 


lf you specify an array as a subfield, the length must be the same as the amount of main 
storage required to store the entire array. 


You must observe the following restrictions when using data structures: 
= A data structure can’t be more than 9999 characters in length. 
« Data structure entries must be specified last on the input specifications form. 
= You define the length of a data structure in two ways: 
- lf you specify the data structure name as a field in an input record, the data 
structure length must be the same as the length of the input field. If the 


to-location (columns 48 through 51) you specify for a subfield is longer than 
the length you defined for the input field, the input field specification is invalid. 


— 
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- If you don't specify the data structure name as a field in an input record, the data 
structure length is defined by the highest to-location (columns 44 through 47) 
you specified for a subfield. 


= You can’t use look-ahead fields as a data structure or a subfield. 

= You can’t specify packed or binary numeric fields as a subfield within a data 
structure. You can define the fields as packed or binary in a file. When the field is 
placed in the data structure, RPG II converts it to zoned decimal format and it remains 
as such. 

= You can't specify reserved words, array elements, or table names as a subfield. 

= You can’t subdivide numeric subfields of data structures. 

« If you define an internal area more than once and both alphanumeric (unpacked) and 
numeric (packed) data formats are present, be careful of which operations you 
perform, since both formats can’t coexist. The format must be alphanumeric or 
numeric, but not both. 


13.15.1. Input Format Specifications for Data Structures 


The following entries are valid for the input format specifications for a data structure. 
(All columns not defined must be blank.) 





Column Entry 
6 Must contain |. 
7 through 13 May contain the name of the data structure (maximum of six 


characters). It must meet the requirements of a field name. You 
reference the data structure name as: 


= @A field on the input or output format specifications form 

= An RLABL operation on the calculation specifications form 

# A SAVDS or INFDS name in columns 60 through 65 of the file 
description specifications continuation line for a WORKSTN 
file 


19 through 20 Enter DS, which indicates this is a data structure. 


13.15.2. Input Format Specifications for Subfields of a Data Structure 


The following entries are valid for the input format specifications for the subfields of a 
data structure. You must specify these entries on the line below the data structure 
specification. (All columns not defined must be blank.) 
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Column 

6 

44 through 47 
48 through 51 


44 through 50 


52 


53 through 58 
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Entry 





Must contain I. 

Enter the number of the record position in which the subfield 
begins (from-location). This number is relative to the beginning of 
the data structure. 

Enter the number of the record position in which the subfield ends 
(to-location). This number is relative to the beginning of the data 
structure. 

Enter *OPCODE, *RECORD, *SIZE, *STATUS, *MODE, *INP, 
or *OUT to define the reserved, self-defining subfields for 
the file information data structure (INFDS). 


Enter the number of digits from O through 9 that are to the right of 
the decimal point if the subfield is numeric. 


Leave this column blank if the subfield is alphanumeric. 

Enter the subfield name. This allows the program to reference the 
subfields you defined in columns 44 through 50. The subfield 
name can: 

= Be identical to an input name or a result field name 

= Appear as an RLABL operation 

= Be used in factor 1, factor 2, or as an output field 

The subfield name cannot: 

= Be specified in different data structures 


= Be specified as part of another data structure 


Subfield names must meet the requirements of a field name. 
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13.16. PROCESSING WITH INTERACTIVE DATA ENTRY 


When you specify the CONSOLE device in columns 40 through 46 on the file 
description specifications form, the operator can enter input to an executing RPG I 
program from a workstation. Workstation prompts generated from the field name on 
the input format specifications form prompt the operator to enter the data. To display 
the prompts, the operator must enter a function key. 


If the CONSOLE file is a record address file, then RPG Il forms the name of the screen 
format by adding FM at compilation time to the program name you specified in columns 
75 through 80 of the control specifications form. In other words, if you name the 
program ACCT, the name of the screen format is ACCTFM. 


For other CONSOLE files, the record identifying indicator is added to the program name 
so that each format is distinct. In other words, if you name the program ACCT and it 
contains three record types with indicators 01, O02, and 03, the names of the screen 
formats are: 


ACCTO1 
ACCTO2 
ACCT03 


If you used OR lines on the input specifications form to identify the same record, the 
record is associated with only one screen format. 


Control information on the top line of the workstation screen allows the operator to 
identify the current record and specify the next record type to be prompted. The 
remaining lines on the workstation screen are used for the formatted record. For each 
field you specify, 14 characters are reserved that define the field name and its 
attributes. Therefore, you must limit the record length to 1518 characters. The size and 
number of fields in a record determine the format that is generated for the screen 
format. Figure 13-39 shows a sample prompt screen generated when you press 
function key 5. 


5 5 


® i © 
RETNUM NO7.0 
| 


—_—— 
1,2,3,4,5 


FLDNUM NO2.0 __ 
FLDATA A 20 


© 





Figure 13-39. Function Key 5 Prompt Screen 
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Letters in the following explanation correspond to the contents of the prompt screen 
generated by function key 5. The codes, indicators, field names, field types, and field 
lengths shown in Figure 13-39 are obtained from the input description specification 


form. 


Q2O2O8O OM © 


Record identification code for prompted record (columns 21 through 27, input description specification) 
Record identifying indicator for prompted record (columns 19 and 20, input description specification) 


Record identifying indicators for all record types selected before data is entered into current screen (columns 19 
and 20, input description specification) 


Record identifying indicators for all record types selected after data is entered in current screen format 
Prompted field names for screen 5 (columns 53 through 58, input description specification) 

Type of field: alphanumeric (S) or numeric (N) — (column 52, input description specification) 

Field length or field length and decimal positions (columns 44 through 51, input description specification) 


Cursor indicates the next entry position. 


RPG II generates four possible prompt screen formats: 


One-column screen format 


Results when from 1 to 23 fields are described on the input specification form for a 
record of the console file. Each alphanumeric field is from 1 to 66 characters in 
length. Each numeric field is from 1 to 15 digits in length, with a maximum of nine 
decimal places. The maximum record size possible is 1518 for a single-column 
format. (This is also the maximum allowable record size for any input record under 
interactive data entry.) Figure 13-40 shows a sample 1-column screen format 
created by the screen format generator. A 14-character prompt with the field name 
(from one to six characters) and field type (alphanumeric or numeric) always results. 
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x X 1,2,3,4,5,6,7,8,9,10 1,2,3,4,5,6,7,8,9,10 






Fy NO1.0 9 

F2 NO2.0 99 
F3 NO3.0 999 
FA NO4.0 9999 












FS NO5.1 99999 

F6 NO6.2 999999 

F7 NO7.3 9999999 

F8 NO8.4 99999999 

FQ NO9.5 999999999 

F10 N10.6 9999999999 

FI. N11.7 99999999999 
Fl2 N12.8 999999999999 
F13 N13.0 9999999999999 
FI4 N14.0 99999999999999 
FIS5 N15.9 999999999999999 


FI6 A 16 XXXXXXXXXXXXXXXX 

A 17 XXXXXXXXXXXXXXXXX 

A 18 XXXXXXXXXXXXXXXXXX 

A 19 XXXXXXXXXXXXXXXXXXX 

F20 A 39 XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
A 
A 
A 







50 XXXXXXXXXXXXXXXXXXXXXX XX XXXXXX XXX XXX XX XXAXXXXXXXXXX 
66 XXXXXXXXXXXXXXXXXXXXAXXXKXAXXXKXKAXKX KK KKK KKK X KXX XX KK XK XX KX XX XXX KX 
66 






F22 


F23MAX XXXXXXXXXXX XX XX XXX XXKX XXX XX XXX XXXX XXX XXX XX XXX XXX XX XX XX XX XX XX XX XXX 











Figure 13-40. One-Column Prompt Screen (23 Fields) 





= =Two-column screen format 


Results when from 24 to 46 fields are described. Figure 13-41 shows a sample 
2-column prompt screen having 24 fields. When field lengths exceed 26 characters, 
the format automatically adjusts and does not allow 46 fields on the screen (Figure 
13-42). 


4,2,3.4,5,6,7 





Figure 13-41. Two-Column Prompt Screen (24 Fields) 
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Figure 13-42. Two-Column Prompt Screen, Self-Adjusting Fields 


| Three-column screen format 
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Update C 


Results when from 47 to 69 fields are described. Figure 13-43 shows a sample 
3-column prompt screen having 47 fields. When any field length exceeds 12 
characters, the format automatically adjusts. 


4.52:3:4.5,657 





Figure 13-43. Three-Column Prompt Screen (47 Fields) 
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= ~=6Four-column screen format @ 


Results when from 70 to 80 fields are described. Figure 13-44 shows a sample 


4-column prompt screen having 70 fields. The format automatically adjusts when 
any field length exceeds six characters. 





Figure 13-44. Four-Column Prompt Screen (70 Fields} 


t 








The workstation prompts are 14 positions in length and have the following format: & 
Position Entry 
1 Blank (This indicates the workstation field control character for 


the prompt.) 


2 through 7 Field name 
8 Blank 
9 N indicates a numeric field and A indicates an alphanumeric field. 


10 through 13 Field length. With numeric fields, positions 10 and 11 contain the 
field length, position 12 contains a decimal point, and position 13 
indicates the number of decimal positions in the field. With 
alphanumeric fields, positions 10 and 11 contain blanks and 
positions 12 and 13 contain the field length. 


14 Blank (This indicates the workstation control character for the 
input field.) 
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& The following job control stream allows you to use interactive data entry: 


// 
// 
// 
// 
// 
// 
// 
// 
/$ 


/* 
/8 
// 


JOB RPGIDA 

DVC 20 

LFD PRNTR 

WORK 1 

WORK2 

TEMP 1 

EXEC RPGII 

PARAM CONSOLE=L fdname 


source deck 


FIN 


When you compile programs that use CONSOLE files, use the CONSOLE=Ifdname 
parameter on the // PARAM job control statement (18.2.3) to differentiate this type of 
file from a system console file. The RPG Il compiler generates batch screen format (S 
and D) statements that are processed separately by the batch screen format (S and D) 
converter. When using the CONSOLE parameter in the jproc, the source deck input must 


@ be from disk. 


The following conditions cause the RPG I! compiler to generate error diagnostic messages: 


= You use more than one CONSOLE file in a program. 


# You use a workstation file and a CONSOLE file in the same program. 


m You didn't enter an | (for input file) in column 15 of the file description specifications 
form. 


= You entered a record length that exceeded 1518 characters. 


= You specified an invalid record identifying indicator. 


= §€You specified fields that overlap. 
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13.16.1. File Description Specifications for Interactive Data Entry 


The following entries are valid for the file description specifications for interactive data 
entry. The columns not described contain standard entries. 


Column 





15 
16 


17 


20 through 23 


24 through 27 


28 


29 and 30 


31 


Entry 





Enter | to indicate that this is an input file. 


Enter a P for primary file, S for secondary file, D for demand file, or 
R for record address file. 


Leave this column blank if the program can end, even if all records 
from the file are not processed. If you leave this column blank for 
all files in the program, all records from every file are processed 
before the program ends. The operator indicates a normal end-of- 
file by pressing function key 15 for a CONSOLE file. 


Enter E if the program can end only if all records from the file are 
processed. 


Leave this column blank or enter a block length that is equal to the 
record length you enter in columns 24 through 27. 


The record length is the highest to-location you specified on the 
input format specifications form in columns 48 through 51. You 
can enter a record length from 2 through 1518. 


If you indicate the CONSOLE file is a record address file, you 
obtain the record length by multiplying the length of the record 
address field by 2. In this case, you can enter a record length from 
2 through 58. 
Must be blank. 


Must be blank if you entered a P, S, or D in column 16. 


Enter the length of the record key (from 1 through 29) if you 
entered an R in column 16. 


This column is only used with record address files. Leave this 
column blank if the record address file keys are the same as the 


index file keys. 


Enter A if the indexed file has zoned decimal keys. 
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Column 





32 through 38 


39 


40 through 46 
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Entry 





Must be blank. 

Must be blank if you entered a P, S, or D in column 16. 

Enter E if you entered an R in column 16. 

Enter CONSOLE for the device name. The file can either be an 


input data file or a record address file. You can use only one 
CONSOLE file in a program. 


13.16.2. Input Format Specifications for Interactive Data Entry 


The following entries are valid for the input format specifications for interactive data entry. 
The columns not described contain standard entries. 


Column 


14 through 16 


15 through 18 


19 and 20 


Entry on file and record identification 


You must not enter AND but you can enter OR in columns 14 and 
15. OR indicates a relationship between record identifying 
indicators or record types. When you specify OR, you must 
describe the same number of record identification codes as you 
described on the preceding line. 


RPG Il uses the entries you specify in columns 15 and 16 
(sequence), column 17 (number), and column 18 (option) to 
determine: 


= Which record types can be used in place of the default record 
types. That is, the record types that can be selected before you 
enter data for the record type currently being displayed. 


m Which record types are valid after you enter data for the 
record type currently being displayed. 


RPG Il inserts the valid before-and-after record types in the top line 
of the screen format that is displayed for a CONSOLE file. 


Enter a record identifying indicator from 01 to 10 to define the key 
the operator must use to select that record type. You can’t use the 
same indicator to define more than one record type in the input 
format specifications for one program. 
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Column 
21 through 23 


24 


25 
26 


27 


28 through 34 


35 through 74 
Column 


53 through 58 


59 and 60 


61 and 62 
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Entry on file and record identification 
Must be blank. 


Enter 1 for the record identification code to identify which record 
was keyed. This code is automatically inserted into each new 
record when it is prompted. 


Must be blank. 
Enter C. 


Enter the digit, alphabetic character, or special character that you 
specified in position 1 of the input record. 


If you want to specify only one record identification code in 
columns 21 through 27, leave these columns blank. If you want to 
specify two record identification codes, then you must also specify 
entries in these columns. Code these columns as you did columns 
21 through 27, except enter 2 in column 31 to indicate record 
position 2. 


Must be blank. 
Entry on field description 


Enter a field name that will be used as a prompt for this data. This 
name must be from 1 to 6 alphanumeric characters. If you want to 
enter data into a whole array for a CONSOLE file: 


= define the whole array as a subfield within a field of the 
CONSOLE file record; or 


w define each array element with an index and place this entry 
in columns 53 through 58. The index must be an integer 
value. 


Enter a control level indicator (L1 through L9) if this is a primary or 
secondary file to indicate that you want a contro! break when there 
is a change in the field’s contents. 


Enter a matching field indicator (M1 through M9) if this is a 
primary or secondary file to indicate a match field. 


Leave these columns blank if this is not a primary or secondary 
file. 
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When you describe the fields in a CONSOLE file record: 


An alphanumeric field must not be more than 66 characters in length. 
A numeric field must not be more than 15 digits in length. 
A record must not be more than 1518 characters in length. 


You can specify subfields within the fields of a CONSOLE file record. Make sure the 
from and to field locations (columns 44 through 51) for subfields don’t overlap the 
from and to field locations for another field. You can’t prompt subfields, but they can 
be assigned values from the prompted field and be used in calculations and output 
specifications. 
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14. Printing Techniques 


14.1. GENERAL 


If any of the output from your program is to be a printed report, RPG Il reduces the effort required 
to produce the report by providing the following aids: 


™ a preprinted printer format chart that you can lay out your report on; 


2 an extensive editing capability that you can use in your program to edit the lines to be 
printed on the report; 


\ 
= special field names that you can use in your program to cause automatic dating, page 
numbering, and duplication of fields; and / 


= the ability to store a report on a line counter file (an intermediate tape or disk file) so that it 
can be printed when your system is not being used to its fullest capacity. 


14.2. PRINTER FORMAT CHART 


Before you write your program, you must determine what your final product is going to be. If it is 
a printed report, you must know what is to be printed on each line of the report, that is, heading, 
detail, or total information. You must also know which fields contain this information, the 
position on the line where the individual fields are to be placed, and the spacing between each 
line. This is accomplished by laying out your report on the printer format chart (Figure 14-1). 
Once the report is laid out, you then use it as a guide to make the necessary entries on the 
specifications forms to effect the required output. 
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The numbers that appear on the top of the form represent the print positions. When you lay out 
your report, headings and constant information should be spelled out completely in the print 
positions they are to occupy on the report. Any variable information should be represented by 
x's. lf a field is to be edited, the actual edit word should be entered in the print positions that the 
field is to occupy. 


The use of the columns to the left of the print positions is optional. These columns can be used 
to specify the line name, the type of line (H - heading information, D - detail information, T - 
total information), the number of lines to be spaced before or after the line is printed, the 
number of the channel on the carriage control tape that is to be skipped to before or after the 
line is printed, whether the information on the line is alphanumeric or numeric (A or N), andthe 
line number (the position of the line relative to the top of the form). 


The area to the right of the print positions is used to associate the channel number on the 
carriage control tape with the line on the form that you want to skig to before or after printing 
the line. The channel number is indicated by placing an x in one or more of the channel columns 
in this area such that the sum of the indicated values of the channel columns equals the 
number of the channel you want to specify. For example, if after printing a line on line 12 you 
wanted to skip to line 40, you could accomplish this by specifying channel 6 incolumns 21 and 
22 on the output format specifications form for this line and then indicating channel 6 on the 
printer format chart carriage control tape area opposite line 40. Note that the channel numbers 
that you may specify are determined by the printer subsystem that is being used. 


Figure 14-2 shows an example of typical entries on the printer format chart. 


In this example, a report listing the accounts receivable is laid out..Each page of the report will 
have headings printed and then the detail information for each customer follows. When ail the 
information for one customer is exhausted, a control break occurs and a subtotal is printed. The 
next customer is listed and the process continues until all data is exhausted, at which point a 
grand total of all accounts receivable is printed. Page overflow is to occur at line 40. The 
heading lines, detail lines, and total lines are indicated in the columns to the left of the print 
positions by H, D, and T, respectively. The spacing between the lines is also indicated in these 
columns. The dollar amounts in print positions 101 through 110 are to have a dollar sign ($) at 
the extreme left, commas are to be inserted where necessary, they are to be zero suppressed up 
to the decimal point, and a single asterisk (*) indicates a Subtotal and double asterisks (**) 
indicate the grand total. This is indicated by the edit words that appear in these print positions. 
The top of the form (home paper) is indicated by specifying channel 7 on the carriage control 
tape opposite line 4 and page overflow is indicated by specifying channel 1 opposite line 40; 
that is, when the printer carriage reaches line 40 it will automatically skip to the top of the next 
page of the report. 


14.3. EDITING 


With RPG Il the editing of numeric fields (including the printing of dollar signs, commas, 


decimal points or periods, and signs) can be accomplished by using either edit codes or edit 
words. 
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14.3.1. Edit Codes 


A series of 1-character edit codes is provided that edit a field in a predefined way. These edit 
codes consist of the simple edit codes (X, Y, and Z) and the combined edit codes (1, 2,3,4,A,B, 
C, D, J, K, L, and M). 


An edit code is used by entering it in column 38 of the output format specifications form on the 
line that contains the field to be edited. Note that the end position specified for the output must 
allow for the insertion of data into the field by the edit code. 
If an entire array is to be printed using an edit code, two blanks are inserted to the right of 
every element in the array before any other editing takes place. In this case, the end 
position specified for the output must allow for the added blanks. 
14.3.1.1. Simple Edit Codes 
The editing performed by the simple edit codes is as follows: 
a xX 
Removes the plus from the rightmost character position in the field. A negative sign is not 
removed and leading zeros are not suppressed. If S or blank is specified in column 40 of the 
control card specifications form, the plus sign is removed automatically without the use of 
this edit code. 


7 Y 


Inserts slashes in 3- to 6-character fields as follows: 





Field Edited 

Length Result 

3 Xx/X 

4 XX/XX 

5 XX/XX/X 

6 XX/XX/ XX 
e 2 


Suppresses zeros to the left of the most significant digit of the field and removes the sign 
from the rightmost character position. 


Decimal points are not considered and are not printed when this edit code is used. 
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14.3.1.2. Combined Edit Codes 


The editing performed by the combined edit codes is shown in Table 14-1. 


All of the combined edit codes shown in Table 14-1 suppress leading zeros. The number of 
decimal positions specified for a field determine where the decimal point is printed. In these 
cases the last digit to be zero suppressed is the one immediately to the left of the decimal point. 
If decimal positions are specified for a field and a zero balance is not to be printed, the decimal 
point is printed if the field contains a nonzero balance. If decimal positions are specified and a 
zero balance is to be printed, the decimal point is printed and the zero balance is printed to the 
right of the decimal point. Table 14-2 shows all of the combined edit codes and provides 
examples of their effect on unedited fields. 


Table 14—-1. Combined Edit Codes 


Combined Edit Codes 


Negative Value Indication Editing 
Performed 


R 
1 A Commas are inserted in the field; 
a zero balance is printed. 
2 B Commas are inserted in the field: 
a zero balance is not printed. 








J 
K 
3 L Commas are not inserted in the field; 
a zero balance Is printed. 
M 


Cc 
D 


Commas are not inserted in the field; 
a zero balance ts not printed. 








If J is specified in column 21 of the control card specifications form, the commas replace 
decimal points and vice versa in the edited fields and the last digit to be zero suppressed is the 
second one to the left of the decimal point. 


Asterisk protection or a floating dollar sign can be used with any of the combined edit codes. 
This is accomplished by specifying ‘*’ or ‘$’ in columns 45 through 47 along with a combined 
edit code in column 38 of the output format specifications form on the line that contains the 
field to be edited. The dollar sign will appear to the left of the most significant nonzero digit. An 
asterisk will appear in place of each zero that is suppressed. 


14.3.2. Edit Words 


Generally, the edit codes will be sufficient to handle your editing requirements. Occasionally a 
situation will arise which requires special or unusual editing. For such situations RPG Il allows 
you to specify your own editing requirements. This is accomplished by specifying an edit word 
enclosed in apostrophes in columns 45 through 70 of the output format specifications form on 
the line that contains the field to be edited. If an edit word is used, column 38 on that line must 
be blank. 














Specified 
Conditions 












Zero balance 
with no 
decimal positions 


Zero balance 


with 2 
decimal positions 


Negative number 
with no 
decimal positions 


Negative number 
with 3 
decimal positions 


Positive number 
with no 
decimal positions 


Positive number 
with 2 
decimal positions 















Value in 
Field 


000000 


000890 


000890 


5432154 


5432154 


Unedited 





890 


890 


5,432,154 





54,321.54 











Table 14—2. Using Combined Edit Codes 





Edit Code Specified 


_ fe fm fe ae 


blank 00 blank blank .00 


i ae oe ffm fe 
890 890 890 .890CR 830CR .890CR .890- 890. 





890 890 890CR 890CR 890 








5,432,154 5432154 5432154 


890 

89 
fae fone [ome ne [one fae [oe 
oe [ne [nee [ose [ae [oe fe 


54,321.54 $4321.54 $4321.54 54,321.54 





It Sd 
€/SO DIVAINN AYYadS 


9 “aey L908-d/N 


L-tl 
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14.3.2.1. Edit Word Format 


An edit word consists of three parts: the body, sign status, and expansion. The body is the 
portion of the edit word that provides space for the digits that are to be transferred from the field 
to be edited and the punctuation that is to appear in the edited field. The body begins at the 
leftmost position of the edit word and ends at the rightmost position that is to contain a digit 
from the field to be edited. The sign status is the portion of the edit word that is used to specify 
whether the field is positive or negative and/or to specify constant information. The sign status 
begins at the first position to the right of the body. CR, -, or & is used to indicate sign status. If 
any of these is specified and a field is positive, blank spaces will be substituted in the edited 
field. If CR or - is specified and a field is negative, the specified indicator will be printed. The 
expansion consists of characters that will be printed regardless of sign status. Figure 14-3 
shows examples of the format of typical edit words. 


14.3.2.2. Using Edit Words 
The following rules apply to edit words: 
1. An edit word must be enclosed in apostrophes. 


2. A blank in the body of the edit word indicates that this position in the edited field is to 
contain the character from the same position in the data field. 


3. A zero inthe body of the edit word indicates that the field is to be zero suppressed. It should 
be placed in the rightmost position where zero suppression is to stop. Each zero that 
appears to the left of the stop position in the data is replaced with a blank space in the 
edited field. Zero suppression begins at the leftmost position in the data and continues up 
through the stop position unless a nonzero digit is encountered to the left of the stop 
position. In the latter case, zero Suppression stops at the position where the nonzero digit 
is encountered and that digit and all following are printed. 


4. An asterisk (*) in the body of the edit word indicates that the field is to be edited using 
asterisk protection. It should be placed in the rightmost position where zero suppression is 
to stop. Each zero that appears to the left of the stop position in the data is replaced by an 
asterisk. 


5. An ampersand (&) in either the body or the status portion of the edit word indicates that 
that position in the edited field is to be a blank space. 


6. Adollar sign ($) in the body of the edit word immediately to the left of the zero suppression 
code (O) indicates that the dollar sign is to appear immediately to the left of the first 
significant digit in the edited field. This is called the floating dollar sign. Adollar sign inthe 
leftmost position of the edit word indicates that the dollar sign is to appear in that position 
in the edited field. This is called the fixed dollar sign. 


Note that a dollar sign is not replaced by a digit in the field to be edited and cannot be 
counted as a digit select character. Note also that when you use a floating dollar sign, the 
number of blanks plus the zero in the edit word must equal the number of digits in the field 
to be edited. 
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7. Decimal points and commas in the body of the edit word indicate the position in the edited 
field where they are to be printed. They will be printed in the indicated positions unless 
they are to the left of the most significant digit. In that case, they will be replaced by blank 
spaces or asterisks if asterisk protection is used. 


8. CRoraminus(-)inthe status portion of the edit word indicates that the specified symbol is 
to be printed in the edited field if the data is negative. If the data is positive the symbol is not 
printed. 


9. Anycharacter, other than §$, &, -, *, or comma, that appears in the body of the edit word is 
printed in the edited field provided that its relative position is to the right of the most 
significant digit in the data. If it is to the left, a blank space replaces it. 


10. Any character other than an ampersand (&) that is included in the status portion of the edit 
word will be printed in the edited field. If an ampersand is specified, it will be replaced bya 
blank space. 


11. If leading zeros are desired, the edit word should be increased by one position on the left 
and a zero should be placed in that position. 


Figure 14-4 shows examples of typical edit words and the results that will be printed. 


14.4. SPECIAL FIELD NAMES 


Automatic dating, page numbering, and duplication of fields on your report can be 
accomplished by specifying certain special RPG Il field names in columns 32 through 37 of 
the output format specifications form. These special field names are D?TE, UDATE, UDAY, 
UMONTH, UYEAR, PAGE, PAGE1-7, and *PLACE. 


14.4.1. D?TE, UDATE, UDAY, UMONTH, and UYEAR 

These special field names allow you to have a date automatically printed on your report in the 
format you choose. The date that is printed is the system date unless you have specified a 
different date at execution time with a //ASETADATE job control statement. 

If D?TE or UDATE is specified, the date in the format mmddyy (mm = 2-digit month, dd = 2-digit 
day, and yy = 2-digit year) will be printed. If D, I, or J is specified in column 21 of the control card 
specifications form, the format will be ddmmyy when this field is specified. 

If UDAY is specified, only the 2-digit system date day is retrieved. 

lf UMONTH is specified, only the 2-digit system date month is retrieved. 

If UYEAR is specified, only the 2-digit system date year is retrieved. 

When UDATE is specified, the Y edit code can be used in column 38 of the output format 


specifications form to edit the format so that it appears as mm/dd/yy or dd.mm.yy if D, I, 
or J is specified in column 21 of the control card specifications form. 
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14.4.2. PAGE, PAGE1-7 & 





These special field names allow you to have the pages of your report automatically 
numbered starting with 1. Eight field names are provided so that if your program is to 
produce more than one report, each of the reports can have automatic page numbering by 
specifying a different field name on the output format specifications form for each report. 
For example, if three reports are to be produced by one program, automatic page 
numbering could be specified for each report by using special field name PAGE for the 
first report, PAGE 1 for the second, and PAGE 3 for the third. 


A page field is a 4-digit numeric field with no decimal positions. At the beginning of the 
program the specified page field is set to zero and then each time before it is written the 
value of the field is increased by 1. 


If page numbering is not to commence with 1, the page field that is being used for your 
report can be set to commence numbering with the page number you require by specifying 
the page field in columns 53 through 58 on the input format specifications form or by 
specifying it as a result field in columns 43 through 48 on the calculation specifications 
form. In the former case, the page field is defined as an input record field that contains a 
value and, in the latter, as a field that has had a value placed in it as a result of an 
operation performed on the calculation specifications form. Note that if either of these 
methods is used, the value in the field must be one less than the required starting page 
number because the field value is increased by 1 before it is written. 


To reset a page field: 





= # Specify the field as a result field with no decimal positions (O in column 52) on the 
calculations specifications form and use one of the available operations to place zeros 
in the field. 


= Specify B (blank after) in column 39 of the output format specifications form on the 
line where the page field is specified. 


s Specify an indicator (columns 24-25, 27-28, 30-31) for PAGE on the output format 
specifications form. If the indicator is on, PAGE is set to zero and 1 is added before it 
is written. If the indicator is off, PAGE is not reset. 


The page field is automatically zero suppressed when it is written unless you specified an 


edit code other than X or an edit word. In this case, the edit code or edit word overrides 
the zero suppression. 


To define a page field: 


= Specify the field as a field name in columns 53 through 58 on the input format 
specifications. 


= Specify the field as a result field with no decimal positions (0 in column 52) on the 
calculation specifications form. 





= Referencing PAGE on the output format specifications form will define the field to 
be a 4-digit numeric field with no decimal positions. 
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14.4.3. *PLACE 


This special field name allows you to duplicate (repeat) fields or constants in additional 
positions in an output record without having to repeat the field name or constant on the output 
format specifications form. 


When *PLACE is specified in columns 32 through 37 on the output format specifications form, 
all previously specified data between position 1 and the highest end position for this data is 
repeated in the output record ending in the end position specified in columns 40 through 43 on 
the *PLACE line. The end position specified for the *PLACE line must be no greater than 256. If 
this is not done, overlapping of data will occur. Figure 14-5 shows an example of how *PLACE 
is used. 
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Figure 14—5. Example of Using *PLACE 
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The example in Figure 14-5 shows that two constants, SUBTOTAL and GRAND TOTAL, are to 
be written ending in print position 20. The *PLACE instructions on line 040 and 050 will cause 
the constants to be repeated ending in print positions 42 and 64. Figure 14-6 shows how the 
constants appear in the output record after each line on the output format specifications form is 
executed. The data added by the execution of each line appears outside the shaded area. 


Line 1 10 20 
SUBTOTAL 
: GRAND TOTAL 


SUBTOTAL GRAND TOTAL 


SUBTOTAL GRAND TOTAL 





Figure 14—6. Example of Using *PLACE to Repeat Constants 


14.5. LINE COUNTER FILES 


Line counter files are intermediate tape or disk output files that you can store a report on for 
future offline printing. This type of file is generally used when printing facilities are not 
immediately available. 


14.5.1. Using Line Counter Files 


To use a line counter file in your program you must specify that your report is to be placed ona 
line counter file by placing an L in column 39 of the file description specifications on the line 
where you describe your report file. Figure 14-7 shows an example of how this is specified on 
the file description specifications form. In the example, a report is to be placed ona line counter 
file that is to be stored on disk. 
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FILE DESCRIPTION SPECIFICATIONS 
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Figure 14—7. Specifying a Line Counter File 


You must also specify which lines of the printed page of the report are associated with a 
channel number that is punched on the carriage control tape or specified through a // VFB job 
control statement. This information is taken from the printer format chart for your report. The 
information on this form is used to cause printer control characters to be placed in the output 
records on the intermediate tape or disk file that the report is to be stored on. When the report is 
subsequently printed, these characters will cause the printer to exercise carriage control in the 
same manner as if the report were printed during the execution of your program. Figure 14-8 
shows an example of how this information is specified on the line counter specifications form. 
In this example, line 09 is associated with channel 07 (home paper), line 35 with channel 06, 
and line 50 with channei 01 (forms overflow). 


2S COUNTER eae 


Pits pe ee ee ae ah CH LIN 
NO NO 
14 18 19]20 22 ea lo 32 3413 37]38 39]40 42443 44145 


Figure 14—8. Specifying Lines Associated with Channel Numbers for a Line Counter File 






Note that the lines associated with the home paper and forms overflow channel must always be 
specified on the line counter specifications form. 


14.5.2. Printing Line Counter Files 


You can print line counter files by using the file processing utility as described in the data 
utilities user guide. 
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15. Incorporating Subroutines in 
Your Program 


15.1. GENERAL 


If the same series of calculation operations is to be performed at more than one point in 
your program, this series should be included in a subroutine. By doing this, you avoid 
having to specify these operations at each point where they are required. Instead, you 
specify them once in a subroutine, and each time they are required, you branch to the 
subroutine, execute the series, and return to your main program. 


The subroutine can be either an internal subroutine or an external subroutine. An internal 
subroutine is one that you include within your program, and an external subroutine is one 
that you code independent of your program in another language or one coded by RPG Il. 


The internal subroutine is the type that is generally used. There are occasions, however, 
when the Series of operations that you need in your subroutine cannot be easily specified 
in RPG Il language. It is for these occasions that RPG ll provides you with ability to use 
external subroutines. 


15.2. INTERNAL SUBROUTINES 


Internal subroutines are written in RPG II language on the calculation specifications form. 
The subroutines must be placed on the form after all other main program calculation 
operations, and each line of a subroutine must have SR specified in columns 7 and 8. If 
more than one subroutine is written in one program, a unique name must be specified for 
each one. There are three operations that are used to indicate the beginning, end, and 
when the subroutine is to be executed. The BEGSR operation is always the first line in the 
subroutine. It is used to indicate the beginning of the subroutine and the name that is 
being used for the subroutine. The ENDSR operation is always the last line of the 
subroutine. It is used to indicate the end of the subroutine and branch back to the main 
program. The EXSR operation is used within the main program to cause the subroutine to 
be executed at this point; that is, this operation causes the program to branch to the 
specified subroutine and execute it. When the subroutine is completed (the ENDSR 
operation), the program branches back and executes the line immediately following the 
EXSR operation that caused the subroutine to be executed. 


Indicators can be used with the EXSR operation to specify the conditions that must be met 
before the subroutine is executed. These indicators are specified in columns 7 through 17. 
If a control level indicator is not specified in columns 7 and 8, the subroutine is always 
executed during detail time. 
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Any operation that is used within a subroutine, except the BEGSR operation (first line) and 
the ENDSR operation (last line), can be conditioned by indicators specified in columns 9 
through 17. Control level indicators cannot be specified in columns 7 and 8 because SR is 
required in these columns for each line in a subroutine. 


GOTO (branching) operations are permitted within subroutines. A GOTO operation within 
a subroutine can specify the name of a TAG operation or ENDSR operation. It cannot 
specify the name of a BEGSR operation. A GOTO operation within a subroutine can also 
specify the name of a TAG operation within the main program. However, the reverse is not 
permitted; that is, a GOTO operation in the main program cannot specify the name of TAG 
or ENDSR operation in a subroutine. Internal subroutines may be specified in any order on 
the calculation specifications form. Each subroutine must be a complete entity; that is, a 
subroutine cannot define another within itself because only one BEGSR and ENDSR 
operation is permitted in a subroutine. The only relationship that one subroutine can have 
to another is for one to call for the execution of the other by specifying an EXSR operation. 


15.2.1. Specifying an Internal Subroutine 
Figure 15-1 shows you how you can specify internal subroutines on the calculation 


specifications form. In this example, there are two internal subroutines: SUBRT and 
SUBRU. SUBRT is executed at detail time and SUBRU is executed at total time. 


Line 010 shows that the subroutine named SUBRT is to be executed at detail time 
(columns 7 and 8 are blank) if indicator 03 is on and indicator 04 is off. After subroutine 
SUBRT is executed, the operation on line 020 is executed. 

Line 020 is an additional detail time calculation operation. 

Line 030 shows that the subroutine named SUBRU will be executed during total time 
calculations if the L3 indicator is on. After subroutine SUBRU is executed, the operation 
on line 040 is executed. 

Line 040 is a TAG operation with the label INTER. 

Line 050 shows that the subroutine named SUBRT will be executed during total time 
calculations if indicator L4 is on. After subroutine SUBRT is executed, the operation on 
line O60 is executed. 

Lines O60 and O70 are additional L4 total time calculation operations. 


Line 080 shows that this BEGSR operation indicates the beginning of the subroutine 
named SUBRT. 


Line 090 is an additional calculation operation within subroutine SUBRT. 


Line 100 shows that this ENDSR operation indicates the end of the subroutine named 
SUBRT. 


Line 110 shows that this BEGSR operation indicates the beginning of the subroutine 
named SUBRU. 
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Figure 15—1. Example of Specifying an Internal Subroutine 


Line 120 is an additional calculation operation within subroutine SUBRU. 


Line 130 is an additional operation within the subroutine SUBRU. The result of this 
operation may set indicators 12 or 13 on. 


Line 140 shows that when indicator 12 is on, the GOTO operation is executed and the 
program branches to the line labeled ENDU (line 200). 


Line 150 shows that when indicator 13 is on, the GOTO operation is executed and the 
program branches to the line labeled MIDU (line 180). 


Line 160 is a calculation operation within subroutine SUBRU that is executed when both 
indicators 12 and 13 are off. 
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Line 170 shows that if indicator O03 is on during the execution of subroutine SUBRU, the 
program branches to subroutine SUBRT and executes it. When the execution of SUBRT is 
completed, the program returns to line 180 and the execution of subroutine SUBRU 
continues. 


Line 180 is a TAG operation within the subroutine SUBRU and it is labeled MIDU. 


Line 190 shows that when indicators 04 and 13 are on and indicator 03 is off, the GOTO 
operation is executed and the program branches to the line in the main program labeled 
INTER (line 040). 


Line 200 shows that this ENDSR operation indicates the end of the subroutine named 
SUBRU. 


15.3. EXTERNAL SUBROUTINES 


The writing of an external subroutine (usually in OS/3 basic assembly language) and its 
subsequent assembly or compilation is separate from the RPG Il program that is to use it. 
Simply stated, the writing and assembling or compiling of the external subroutine is a 
separate effort and the writing and compiling of the RPG Ii program (your program) is a 
separate effort. The results of these efforts, the RPG Il object program and the external 
subroutine object program, are then combined at linkage editor time to form an executable 
program that can use the external subroutine. 


There are three operations that are used on the calculation specifications form with 
external subroutines: EXIT, RLABL, and ULABL. 


The EXIT operation is used within the main program to cause the external subroutine to be 
executed at this point; that is, this operation causes the program to branch to the specified 
external subroutine and execute it. When the subroutine is completed, the program 
branches back and executes the next sequential operation (other than RLABL or ULABL) in 
the main program. (Your program creates linkage to the external subroutine by loading 
register 15 with the address of the subroutine and by issuing a BALR 14, 15. The external 
subroutine must restore all registers before returning control to your program.) Indicators 
may be used with the EXIT operation to specify the conditions that must be met before the 
external subroutine is executed. These indicators are specified in columns 7 through 17. If 
a control indicator is not specified in columns 7 and 8, the external subroutine is always 
executed during detail time. 


The RLABL operation allows the external subroutine to reference a field, table, array, or 
indicator in your program. The name of the field, table, or array is specified in columns 43 
through 48. If an indicator is referenced, the name that is specified must be in the form 
INti, where it is the 2-character indicator code. The RLABL operation need only be used 
once in your program for each field, table, array, or indicator that is to be referenced by an 
external subroutine. This applies even when more than one external subroutine is being 
used by your program. 


To link your program to a FORTRAN or COBOL subroutine, every EXIT to the external 
subroutine must be followed immediately by the RLABL fields. 
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The ULABL operation allows your program to reference a field within an external 
subroutine. It cannot be used with a table, array, or indicator. The name of the field is 
specified in columns 43 through 48. When this operation is used, the field length and 
number of decimal positions (if applicable) must be specified in columns 49 through 52. 
The ULABL operation need only be specified once in your program for each field in an 
external routine that is to be referenced by your program. This applies even when more 
than one external subroutine is being used by your program. 


15.3.1. Specifying an External Subroutine 


Figure 15-2 shows how you can specify an external subroutine. In this example, the 
external subroutine OUTRT is executed at detail time; the RPG Il program references a 
field in the external subroutine; and the external subroutine references a table, an array, a 
field, and an indicator in the RPG II program. 
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CALCULATION 
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NAME 
43 48] 49 
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Line 030 shows that the external subroutine named OUTRT is to be executed at detail 
time (columns 7 and 8 are blank) if indicators 04 and O5 are on and indicator 01 is off. 
After external subroutine OUTRT is executed, the operation on line 090 is executed (lines | 
040 through O80 are related to the external subroutine). 


- HALF ADJUST 






& DECIMAL POSITIONS 


































































Figure 15—2. Example of Specifying an External Subroutine 


Lines 010 and 020 are detail time calculation operations. 


Line 040 shows a ULABL operation that allows the external subroutine field QCAL to be 
referenced by the RPG II program. QCAL is a 10-digit numeric field with two decimal 
places (10 in columns 49 through 51 and 2 in column 52). 
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Line 050 shows an RLABL operation that allows the external subroutine to reference the 
field ACCNO in the RPG II program. 


Line O60 shows an RLABL operation that allows the external subroutine to reference the 
table named TABL. 


Line 070 shows an RLABL operation that allows the external subroutine to reference the 
array named ARRAY. 


Line O80 shows an RLABL operation that allows the external subroutine to reference 
indicator 22 and test its status. 


Lines 090 and 100 are detail time calculation operations. 


15.4. RPG Il SUBROUTINES 


You can specify that your RPG Il program is to run as a Subroutine by coding an S in 
column 74 of the control card specifications form. When your RPG Ht! subroutine is called, 
it operates as a main program. The files are opened, the program executes until the last 
record indicator (LR) is set on or an error condition is encountered, files are closed, and 
control is returned to the calling program. 


The calling program must specify the following when it calls an RPG Il subroutine: 

= R15 contains the address of the RPG Il subroutine. 

= R14 contains the return address. 

= R13 contains the address of an 18-word register save area. 

When control is returned to the calling program, R15 contains O if program execution was 
normal. If a halt indicator was set during program execution, R15 contains 255. If the RPG 


li subroutine is called again, indicators are reset to initial values; however, fields and 
tables are not reset. 
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16. IMS - RPG Il Action Programs 


16.1. GENERAL 


This section describes, in general terms, how to write IMS action programs in the OS/3 
RPG Il language. The user should be familiar with the current versions of the IMS action 
programming in RPG II user guide, UP-9206, and the IMS system support functions user 
guide, UP-11907, and become familiar with the various RPG Il specifications forms 
described in Section 6 through 8 of this manual. 


IMS action programs written in RPG Il operate under control of IMS to carry out the 
processing of input messages and to generate output messages. The action programs are 
compiled by the RPG I! compiler. A special IMS configuration program generates the IMS 
system to which the action program can be linked. Action programs are scheduled and 
then receive control as a result of an input message request from a terminal or a request 
from a previously executed action program. 


IMS action programs written in RPG Il are not reentrant, and, therefore, can process 
only one transaction at a time. They should be written so that they are serially reusable. 
After each execution of an action program, RPG Il resets all indicators and _ internal 
switches. Therefore, you must reset all fields to their original values, as required, before 
the action program is executed again. You should not assume that fields are blank or 
zero. During a transaction, if a program calls itself as the successor, you can save some 
or all of the fields for the next execution of this program. At the end of one execution, 
the fields can be output to the continuity data area or to a transaction buffer, and then 
read in from there at the beginning of the next execution. Other reasons for saving 
fields between executions of the action program are: 


= IMS may reload the action program. 


= Two or more terminals may be processing the same kind of transaction. This causes 
IMS to switch between the terminals for successive executions of the action program. 


Remember that RPG II resets all indicators after each execution of an action program. 
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16.2. RPG Il SPECIFICATIONS FORMS 


IMS provides defined areas for the communications and control of data between the action 
program and IMS. These areas plus any user files must be defined and described on the 
proper RPG II specifications forms. These forms are, in order of their specification: 


Control Card Specifications Form 

This form requires an A in column 74 and the program name in columns 75 through 
80. Each action program must be identified by a unique name. No other entries are 
required on this form. The rules for coding any other fields on this form are given in 
Section 4. 

File Description Specifications Form 

The IMS-defined areas and users logical files must be described on this form. The 
rules for coding the various fields on this form and the sequence of specification 
follow those for any file written in the OS/3 RPG Il language. Refer to Section 5 for 
details. 


Input Format Specifications Form 


The fields within each input file are described on this form. These fields must be 
described in the same order as the files. Refer to Section 6 for details. 


Calculation Specifications Form 


The action of your action program is coded on this form. It should follow the rules 
specified in Section 7. 


Output Format Specifications Form 


The fields within each output file are described on this form. Refer to Section 8 for 
details. 


An IMS action program written in RPG II requires no other RPG II coding forms. 


16.3. RESTRICTIONS 


A number of the RPG II language features are restricted from use in an action program. 
Table 16-1 lists these features and their restrictions. 


Table 16-1. RPG it Language Features with Restricted Use (Part 1 of 2) 





Specifications Form/Column/Description Restriction 
Control Card Specifications: 
Col. 8 — Error Analysis Dump 


Col. 9 — Operator Control 


Col. 41 — First Page Forms Alignment 
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& Table 16—1. RPG Ii Language Features with Restricted Use (Part 2 of 2) 


Specifications Form/Column/Description Restriction 


File Description Specifications: 


Col. 15 — File Type (C and D) NA 
Col. 16 — Table and Array File Designation (T) S 
Col. 20—23 — Block Length Cc 


Col. 32 — File Organization: 





ADOROUT (D) Ss 
Record address (blank) Ss 
Additional 1/O areas NA 
SAM tape/disk input files S 
(SAM and indexed IRAM output files NA 
Col. 40—46 — Device: 
: CTLRDR 
READER 
CRP NA 
PUNCH 
CONSOLE 
PRINTER 
Col. 53 — Labels NA 
Col. 54—59 — Name of Label Exit NA 


é — Options NA 


Col. 60—65 — Size of ISAM Index 

Col. 66 — Unordered Load 

Col. 67 — Cylinder Overflow Space Percentage 
Col. 68-69 — Number of Extents 

Col. 70 — Tape Rewind 


Col. 


71-72 — File Conditioners (U1~U8) 


Input Form Specifications: 


Col. 19—20 — Spread Card Feature (TR) 


Cc 
NA 
NA 
NA 
Cc 
NA 
Calculation Specifications: 
Col. 28-32 — Display Operation (DSPLY) 


Col. 42 — Stacker Select 





Output Format Specifications: 


Col. 16 — Stacker Select 





Telecommunications Specifications 


LEGEND: 
& Cc ignored by RPG |! compiler; must be specified in IMS configuration. 


Ss Used only with nonindexed sequential IRAM files; must not be used with 
SAM input files. 


NA __ Not allowed in an action program. 
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16.4. IMS - RPG Il INTERFACE AREAS 


The IMS main storage areas that serve as interfaces between IMS and the action 
programs written in RPG Il language are initially defined by IMS and, to be accessed, 
should also be defined on the appropriate RPG Il coding forms. These areas and the 
required RPG II coding forms are: 


. Input Message Area (IMA) 


This area contains the input message received from a terminal. The IMA is described 
as a file on the file description specifications form, and the fields within the file are 
described on the input format specifications form. 


a Program Information Block (PIB) 


This area is used to pass control information between IMS and the action program. 
The PIB is described as a file on the file description specifications form, and the fields 
within the file are described on either the input format specifications form or the 
output format specifications form according to their use in the action program. 


Any name may be assigned to a field, but the format and position of each field is 
defined by IMS, and the RPG Il specifications must agree with those definitions. 


# Output Message Area (OMA) 


This area contains the output message to be transmitted to a terminal in response to 
the input message that originated the action. The OMA is described as a file on the 
file description specifications form, and the fields within the file are described on the 
output format specifications form. 


This area may also be used for multiple output messages or for transmitting output 
messages to a terminal other than the initiating terminal. These uses require that disk 
queueing be included in the IMS configuration. 


s Continuity Data Area (CDA) 


The use of this area is optional but can be used to pass data from one action 
program to another while processing a dialog transaction or to save data for the 
next execution of the action program. The definition of the CDA depends on its use 
in the action program and can be described as an input, update, or output file. The 
CDA is described as a file on the file description specifications form, and the fields 
within the file are described on the input format specifications form or the output 
format specifications form according to their use in the action program. 


a Transaction Buffer Area (TBA) 


This area can be used by the action program to acquire and release main storage 
on a transactional basis. Like the CDA, the TBA can be used in the action program 
as an input, update, or output file. Using the TBA is faster than using the CDA 
because data is stored in main storage rather than in a file. To define the TBA as a 
file, add it to the file description form. Then use the appropriate RPG format 
specification to describe the fields. To release the transaction buffer from an action 
program, use the delete option in columns 16 through 18 of the output 
specifications form. 
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A summary of the required entries on the file description specifications form for these four 
areas is given in Table 16-2. 


Table 16—2. Summary of Required Entries — File Description Specitications Form 


File Type sh Format Record Length Device Name 


(Column 15) Designation =| (column 19) (Columns 24-27) (Columns 40—46) 
(Cotumn 16) 


data size 





The record length specified for IMA and OMA must include 16 bytes for the IMS header 
information that occupies the first 16 bytes of the record. The record length for the 
IMA must include the 16-byte header information, the transaction code, one blank, and 
the message text. The record length specified for TBA is restricted to a maximum size 
of 8192. 


Entries on the file description specifications form for the PIB are made according to the way 
the action program is to use the PIB. 


a Input, Demand File 


An | in column 15 anda D in column 16 indicates that the action program accesses the 
data in the PIB but makes no changes to the data. 


= Update, Demand File 


A U in column 15 and a D in column 16 indicates that the action program accesses the 
data in the PIB and then updates the data file. 


If the OMA is used for multiple output messages during an action program execution, or if 
the output message is transmitted to a terminal other than the initiating terminal, IMS must 
be configured for disk queueing. 


The normal RPG Il rules for the input format specifications form apply to the IMA, PIB, 
CDA, and TBA definitions. Only those fields used by the action program need to be 
defined. The same applies to defining the OMA, CDA, and TBAfields on the output 
format specifications form. 
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Table 16-3 gives a summary of the file organization, related access methods, and file @ 
types that may be used in an IMS action program written in RPG Il. 


Table 16—3. Summary of File Organization, Access Methods, and File Types 





File 
Organization 


Random Input/Update 
Sequential, by key Input/Update 


Related Access Method File Type 





Indexed Input/Update/Output 
Nonindexed Input/Update/Output 








Sequential Output 








Direct Input/Update/Output 














For further information, details, and requirements for the IMS - RPG Il action program 
interface, refer to the IMS programmer reference, and the OS/3 IMS system support 
functions user guide/programmer reference. 








PART 4. RPG Il TELECOMMUNICATIONS 
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17. Telecommunications 


17.1. GENERAL 


RPG II telecommunications is not intended for sophisticated applications such as message 
switching. It is provided so that you can use remote terminals in the same way that you 
use other input/output devices in a program. There are two types of remote terminals: 
batch terminals and interactive terminals. The batch terminals can be used in the same 
way that you use a card reader for an input file, or a card punch or printer for an output 
file. The interactive terminals have the additional ability to be used in the same way that 
you use a card reader/punch for combined files. 


17.2. USING TELECOMMUNICATIONS 


Before you can write and compile an RPG II telecommunications program, you must know 
the name of the communications control area (CCA) that was specified at system 
generation when the communications network was defined. 


This CCA name must be entered in the CCA name field (columns 70 through 73) on the 
control card specifications form when you write your program to indicate that it is a 
telecommunications program. 


You then specify which files are communications files by entering REMOTE as the device 
name in columns 40 through 46 on the file description specifications form. 


After you have specified which files are communications files, you must describe these 
files on the telecommunications specifications form. The entries for the various fields are 
described in Section 11. Keep in mind that the entries in the configuration field (column 
15), switched field (column 20), remote terminal (columns 48 through 51), remote device 
field (columns 65 through 70), and the terminal name field (columns 71 through 74) must 
match the entries made at system generation when the communications network was 
defined. 


Figure 17-1 shows two examples of how the control card, file description, and 
telecommunications specifications are used to indicate that a program is a 
telecommunications program and to specify and describe the communications files. The 
entries on the control card specifications apply to both examples. 


Line 010 on the control card specifications shows that CNET is the CCA name. 
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The circled numbers on the file description and telecommunications specifications forms 
refer to the following examples: 


= = «Example 1 


Line 010 on the file description specifications shows that INFILE is an input primary (I 
in column 15 and P in column 16) and that it is a communications file (REMOTE in 
columns 40 through 46). 


Line 010 on the telecommunications shows that INFILE is a receive file (R in column 
16). INFILE is specified as a receive file because your program will receive input data 
from this file. This line also specifies that a switched line is being used for this 
terminal and it has unattended answering service (A in column 20). This means that 
the terminal operator must dial the computer system. In addition, this line specifies 
that the type of remote terminal is a DCT 2000 (2000 in columns 48 through 51), the 
permanent error indicator is 44 (44 in columns 53 and 54), and the termina! name is 
IN1 (IN1 in columns 71 through 74). 


= Example 2 


Lines 030 and 040 on the file description specifications show that DCTERM1 and 
DCTERM2 are output files (0 in column 15) and that they are communications files 
(REMOTE in columns 40 through 46). 


Lines 030 and 040 on the telecommunications specifications show that DCTERM1 
and DCTERM2 are transmit files (T in column 16). DCTERM1 and DCTERM2 are 
specified as transmit files because your program will transmit output data to these 
files. These lines also specify that switched lines are being used for these files and 
that they have manual call specified for them (M in column 20). This means the 
system operator must dial the number of the remote terminal. In addition, these lines 
specify that the type of remote terminal for both files is DCT 1000 (1000 in columns 
48 through 51), the permanent error indicators are 77 and 78 respectively (77 and 78 
in columns 53 and 54), and the terminal names are OUT1 and OUT2 respectively 
(OUT1 and OUT2 in columns 71 through 74). 





17.3. FILE PROCESSING MODES 


There are five file processing modes that you can use with remote terminals. Four of these 
modes are intended to be used primarily with batch terminals, that is, with the SPERRY 
UNIVAC DCT 1000 Data Communications Terminal, SPERRY UNIVAC DCT 2000 Data 
Communications Terminal, SPERRY UNIVAC 1004 Card Processor System, SPERRY 
UNIVAC 9200/9300 Series, the IBM 2780 Data Transmission Terminal, or devices using 
the binary synchronous communications (BSC) mode. The remaining mode is intended to 
be used with the interactive terminals, that is, with the UNISCOPE 100 Display Terminal, 
UNISCOPE 200 Display Terminal, SPERRY UNIVAC DCT 500 Data Communications 
Terminal, SPERRY UNIVAC DCT 524 Data Communications Terminal, or teletypewriter. 
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Figure 17—1. 
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Specifying and Describing Communications Files 


The processing modes used with batch terminals are: 


Receive Only 


In this mode, a data file is received from a remote terminal. The file must be specified 
as an input primary file, input secondary file, or input demand file on the file 


description specifications, and 


it must be specified as a receive file on the 


telecommunications specifications. When this mode is used with a batch terminal, the 


input records are usually 80-column cards. 


Transmit Only 


In this mode, a data file is transmitted to a remote terminal. The file must be specified 
as an output file on the file description specifications, and it must be specified as a 
transmit file on the telecommunications specifications. When this mode is used with 
a batch terminal, the output records are usually 80-column cards or lines of print. 


Y 
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Transmit a File, Then Receive Another File 


In this mode, two files are specified for a remote terminal. The data file to be 
transmitted must be specified as an output file on the file description specifications 
and it must be specified as a transmit file on the telecommunications specifications. 
The data file to be received must be specified as an input file on the file description 
specifications and must be specified as a receive file on the telecommunications 
specifications. When you use this mode, your program first processes the transmit file 
and then, when all data has been transmitted to the remote terminal, it processes the 
receive file. 


Receive a File, Then Transmit a File 


In this mode, two files are specified for a remote terminal. The data file to be received 
must be specified as an input file on the file description specifications and must be 
specified as a receive file on the telecommunications specifications. The data file to 
be transmitted must be specified as an output file on the file description specifications 
and must be specified as a transmit file on the telecommunications specifications. 
When you use this mode, your program first processes the receive file and then, 
when all data has been received from the remote terminal, it processes the transmit 
file. 


Note that, in this mode and the transmit-a-file, then-receive-a-file mode, it is your 
responsibility to design your program so that a complete file is processed for a 
particular remote terminal before another file is processed. This can be done by 
processing one file during the normal RPG II processing and the other file when the 
last record indicator (LR) is set on. Another method would be to use demand input 
and/or exception on the calculation specifications so that all the records of one file 
are processed first after which all the records of the second file are processed. 


Note also that a particular remote terminal is not limited to one input (receive) file and 
one output (transmit) when you use this mode or the transmit-a-file, then-receive-a- 
file mode. You can process more than two files on a particular remote terminal if your 
program is arranged so that the processing does not overlap. 


processing mode used with interactive terminals is as follows: 

Transmit with Reception of Conversational Reply 

In this mode, a record is transmitted to a remote terminal and a reply is received back 
from the remote terminal. The file must be specified as a combined file on the file 


description specifications and must be specified as a transmit file on the 
telecommunications specifications. The file may be specified as the primary file. 
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17.3.1. Using Batch Remote Terminals 


The following subsections describe how to use batch terminals in RPG Il 
teleccmmunications programs. 


17.3.1.1. Receive-Only Processing Using a DCT 2000 Data Communications 
Terminal 


Figure 17-2 shows an example in which input records on 80-column cards are read into 
the system from a DCT 2000 data communications terminal and are printed on the system 
printer. 
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Figure 17—2. Receive-Only Processing Using a DCT 2000 Data Communications Terminal (Part 1 of 2) 
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Figure 17—2. Receive-Only Processing Using a DCT 2000 Data Communications Terminal (Part 2 of 2) 


The control card specifications form indicates that this is a telecommunications program 
by the entry of a CCA name (NET1 in columns 70 through 73). 


The file description specifications form shows the INCARD, the primary input file (! in 
column 15 and P in column 16), is specified as a communications file (REMOTE in 
columns 40 through 46) and that PRNTR, the output file (O in column 15), is a printer file 
(PRINTER in columns 40 through 46). 


The telecommunications specifications form shows that INCARD is specified as a receive 
file (R in column 16), a switched line is being used arid has unattended answering service 
(A in column 20), the type of remote terminal is a DCT 2000 data communications 
terminal (2000 in columns 48 through 51), the permanent error indicator is 33 (33 in 
columns 53 and 54), and the terminal name is TWOT. 


The input format specifications form shows that when an input record is read, indicator 01 
is set on (O01 in columns 19 and 20) and the entire record is placed in the field named 
CARD (1 in columns 44 through 47, 80 in columns 48 through 51, and CARD in columns 
53 through 58). 


The calculation specifications form shows that the last record indicator (LR) is to be set on 
if a permanent error occurs (indicator 33 is on). 


The output format specifications form shows on lines 010 and 020 that a record is to be 
printed on the system printer if there was no error (indicator 01 is on and indicator 33 is 
not on). Lines 030 and 040 show that, if a permanent error occurs (indicator 33 is on), the 
message TERMINAL ERROR OCCURRED will be printed on the system printer. The 
program then terminates because, when indicator 33 is on, the last record indicator (LR) is 
set on. 
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17.3.1.2. Transmit-Only Processing Using Two DCT 1000 Data Communications 


Terminals 


Figure 17-3 shows an example in which input records on 80-column cards are read from 
a card reader and are printed on either of two DCT 1000 data communications terminals, 


depending upon what character is 









contained in column 1. 
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Figure 17—3. Transmit-Only Processing Using Two DCT 1000 Data Communications Terminals (Part 1 of 2) 
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Figure 17—3. Transmit-Only Processing Using Two DCT 1000 Data Communications Terminals (Part 2 of 2) 


The control card specifications form indicates that this is a telecommunications program 
by the entry of a CCA name (NET 2 in columns 70 through 73). 


The file description specifications form shows that CARDIN, the primary input file (I in 
column 15 and P in column 16) is a card file that is read from the card reader (READER in 
columns 40 through 46). It also shows that DCT1001 and DCT1002 are specified as 
communications files (REMOTE in columns 40 through 46). 


The telecommunications specifications form shows that DCT1001 and DCT1002 are 
specified as transmit files (T in column 16), a switched line is being used for each remote 
terminal and these lines have manual calling service (M in column 20), the type of remote 
terminal for each file is a DCT 1000 data communications terminal (1000 in columns 48 
through 51), the permanent error indicators are 51 and 52 respectively (51 and 52 in 
columns 53 and 54), and the terminal names are TRM1 and TRM2 respectively (TRM1 and 
TRM2 in columns 71 through 74). 





The input format specifications form shows that, when a card is read, indicator 01 is set 
on (01 in columns 19 and 20) if there is a 1 in column 1 (C in 26 and 1 in column 27); 
otherwise, indicator 02 is set on (02 in columns 19 and 20, N in column 25, C in column 
26, and 1 in column 27). 


The calculation specifications form shows that the last record indicator (LR) is to be set on 
if a permanent error occurs (indicator 51 or 52 is on). 


The output format specifications form shows on lines 010 and 020 that a record is to be 
printed on the DCT 1000 data communications terminal whose file name is DCT 1001 if. 
indicator O01 is on and there is no error (indicator 51 is not on). Lines 030 and 040 show 
that a record is to be printed on the DCT 1000 data communications terminal whose file 
name is DCT 1002 if indicator 02 is on and there is no error (indicator 52 is not on). If an 
error occurs (indicator 51 or 52 is on), the program terminates because, when either 
indicator 51 or 52 is on, the last record indicator (LR) is set on. 
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& 17.3.1.3. Transmit a File, Then Receive Another File Using a BSC Remote Terminal 


Figure 17-4 shows an example in which cards containing an item number, quantity sold, 
and customer are read from a card reader. As the cards are read, they are transmitted to a 
BSC remote terminal, that is, another computer system. After the entire card deck has 
been transmitted, the program reads data back from the BSC remote terminal, which has 
been defined as a secondary input device. These data records are used to produce an 
updated inventory list on the system printer that contains the item number, remaining 
inventory quantities, and item descriptions. 
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Figure 17—4. Transmit a File, Then Receive Another File Using a BSC Remote Terminal (Part 1 of 2) 
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Figure 17—4. Transmit a File, Then Receive Another File Using a BSC Remote Terminal (Part 2 of 2) 


The control card specifications form indicates that this is a telecommunications program 
by the entry of a CCA name (CMNT in columns 70 through 73). 


The file description specifications form shows on line 010 that SALES, the primary input 
file (| in column 15 and P in column 16) is a card file that is read from the card reader 
(READER in columns 40 through 46). Line 020 shows that NEWINV is the secondary input 
file (| in column 15 and S in column 16), and that it is a communications file (REMOTE in 
columns 40 through 46). Line 030 shows that INVUPDT is an output file (O in column 15) 
and that it is a communications file (REMOTE in columns 40 through 46). Line 040 shows 
that PRNTR is the second output file (O in column 15) and is a printer file (PRINTER in 
columns 40 through 46). 


The telecommunications specifications form shows that NEWINV is specified as a receive 
file (R in column 16) and INVUPDT is specified as a transmit file (T in column 16). These 
files use the same remote terminal (BSC in columns 48 through 51 and MAIN in columns 
71 through 74), a switched line with unattended answering service is used (A in column 
20), and the permanent error indicator for both files is 99 (99 in columns 53 and 54). 
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The input format specifications form shows the format of the input records for the primary 
input file, SALES, on lines 010 through 040 and that indicator 01 is set on when a record 
is read from this file. Lines 050 through 080 show the format of the input records for the 
secondary input file, NEWINV (on the BSC remote terminal), and that indicator O02 is set on 
when a record is read from this file. Since matching fields are not specified, the primary 
input, SALES, is completely processed first. Then, the secondary input file, NEWINV, is 
processed. 


The calculation specifications form shows that the last record indicator (LR) is to be set on 
if a permanent érror occurs (indicator 99 is on). 


The output format specifications form shows the format of the output records for the 
output file, INVUPDT, on lines 010 through 040 and that records are written to this file 
when indicator 01 is on. Since indicator 01 conditions output to this file, the output will be 
written only when the primary input file, SALES, is being read. Lines 050 through 090 
show the heading that is to be printed on the printer during the first program cycle. Lines 
100 through 130 show the format of the output records for the printer file. Since indicator 
02 conditions output to this file, the output is written only when the secondary input is 
being received from the BSC remote terminal (the secondary input file NEWINV). Line 140 
shows the message that is printed if a permanent error occurs (indicator 99 is on). The 
program then terminates because, when indicator 99 is on, the last record indicator (LR) is 
set on. 


17.3.2. Using Interactive Remote Terminals 


The following subsections describe how to use interactive remote terminals in RPG II 
telecommunications- programs. 


17.3.2.1. UNISCOPE 100 and UNISCOPE 200 Display Terminals 


When these terminals are used, the terminal operator must enter and transmit each 
individual data record. First, the RPG Il program transmits a message. The operator then 
replies by entering an input record. This process continues until the operator indicates that 
there are no more records by typing in /*. 


Each position on the screen corresponds to a position in an RPG Il input or output record. 
The number of characters per line (64 or 80) determines where an input record is entered, 
or an output record is displayed on the screen. For an 80-character screen, record position 
1 corresponds to line 1, position 1; record position 80 corresponds to line 1, position 80; 
record position 81 corresponds to line 2, position 1; record position 160 corresponds to 
line 2, position 80; and so on. Table 17-1 provides a summary of the input/output record 
position ranges and the screen line where a record in a particular range is entered or 
displayed. 
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Table 17—1. Summary of Record Position Ranges and Screen Line Numbers for Entry or Display 


Input/Output Screen Line Input/Output Screen Line 
Record Position Record Is Record Position Record !s 
Range Entered or Range Entered or 
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Since we are dealing with UNISCOPE 100 or 200 Display Terminals, a combined file is 
used for the input and output records. The RPG II program transmits an output record to 
the terminal at the beginning of the program and in each cycle thereafter to format the 
screen for data entry and to prompt the terminal operator to enter an input record. 


Figure 17-5 shows an example of how to specify an output record that is to be transmitted 
to the remote terminal to prompt the operator; how to specify the input record that is to be 
entered as a reply; and how to use the terminal to enter the input record. 
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Figure 17—-5. Formatting a Screen and Entering Data 


The input format specifications form shows the fields that are to be entered as input data, 
and the output format specifications shows the output record that is used to format the 
screen and prompt the terminal operator. 


At the beginning of program execution, the output record is displayed and the cursor is 
placed at line 1, position 1 (home position) on the screen. The cursor must be spaced to 
record position 41 (line 1, position 41). The customer number is then typed into record 
positions 41 through 45 (line 1, positions 41 through 45). You then press the RETURN key 
to move the cursor to line 2, position 1. The cursor must be spaced to record position 121 
(line 2, position 41). The district number is then typed into record positions 121 through 
125 (line 2, positions 41 through 45). You then press the TRANSMIT key to cause the data 
to be entered. When you do this, all data between the cursor and the home position is 
transmitted. After the input data has been transmitted, the output record is displayed 
again and the cursor is returned to the home position. From this point on, the process of 
display and data entry is repeated during each cycle until end of file is signalled for the 
terminal by typing in and transmitting /* in record positions 1 and 2. 
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For each input data record received, there must be an output data record transmitted for 
each RPG Il program cycle. When using UNISCOPE terminals, only one output record per 
RPG Il cycle is permitted. The data records must not contain any embedded UNISCOPE 
control characters or DICE characters. 


17.3.2.1.1. Transmit with Reception of Conversational Reply Using Four UNISCOPE 
100 Display Terminals 


Figure 17-6 shows an example in which four UNISCOPE 100 Display Terminals on 
separate switched lines are used to access an indexed sequential disk file; that is, each 
terminal operator has access to this file. The data to be entered consists of a 5-digit 
customer number. This number is used as a key to access a record from the disk file. 
Information from this record is then transmitted back to the remote terminal that 
requested it. The remote terminal operators gain access to the RPG Il program by dialing 
the central site. As each operator dials in, his requests are serviced by the RPG Ii program. 
The program can run with from one to four remote terminals. Program operation continues 
until all remote terminals have signalled end of file or they are down. 
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Figure 17—6. Transmit with Reception of Conversational Reply Using 
Four UNISCOPE 100 Display Terminals (Part 1 of 3) 
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Figure 17—6. Transmit with Reception of Conversational Reply Using 
Four UNISCOPE 100 Display Terminals (Part 2 of 3) 
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Figure 17—6. Transmit with Reception of Conversational Reply Using 
Four UNISCOPE 100 Display Terminals (Part 3 of 3) 





The control card specifications form indicates that this is a telecommunications program 
by the entry of a CCA name (SCOP in columns 70 through 73). 


The file description specifications form shows on line 010 that the primary file, RMOTE, is 
a combined file (C in column 15 and P in column 16) and that it is a communications file 
(REMOTE in columns 40 through 46). Line 020 shows that RDISK is a chained input file (I 
in column 15 and C in column 16), the file is an indexed sequential file that is to be 
processed randomly using the CHAIN operation (R in column 28, A in column 31, and | in 
column 32), the key field length is 5 and the key field starts in record position 1 (5 in 
columns 29 and 30 and 1 in columns 35 through 38), and the file is contained on a disk 
(DISC in columns 40 through 46). 


The telecommunications specifications form shows that RMOTE is a transmit file (T in 
column 16), that four UNISCOPE 100 Display Terminals are used with this file (100 in 
columns 48 through 51), the terminal names are TRM1, TRM2, TRM3, and TRM4 (TRM1, 
TRM2, TRM3, and TRM4 in columns 71 through 74), and all terminals are connected to 
the central site on switched lines with unattended answering service (A in column 20). 
The asterisks (*) in column 14 indicate that this is a multiterminal file; consequently, all 
the terminals on the * lines are associated with this file. 


The input format specifications form shows format of the input records for the combined 
primary file, RMOTE, on lines 010 through 030. If a record consisting of the character E is 
transmitted from a terminal, indicator 99 is set on. If a customer number is typed in on 
line 1 in positions 41 through 45, indicator 01 is set on. Lines 040 through O60 show the 
format of the input record for the input chained file, RDISK, and that indicator 02 is set on 
when a record is read from this file. 











UP-8067 Rev. 6 SPERRY UNIVAC 0S/3 17-17 
RPG Il 


The calculation specifications form shows that a test is performed to see whether an error 
has occurred; that is, if the *ERROR field contains other than hexadecima! 00, the HO 
indicator is set on. If the *ERROR field contains other than hexadecimal 00, indicator 04 is 
set on and this, in turn, causes the HO indicator to be set off. If it does not, a CHAIN 
operation will be performed. This test is necessary because a multiterminal file is being 
used. If it were not present, an error involving one terminal could cause the program to 
terminate. 


The output format specifications form shows on lines 010 through 030 that the prompting 
message, CUSTOMER NUMBER, is displayed on the remote terminal at the beginning of 
program execution (indicator 1P is on) or when the terminal operator types in a record 
consisting of the character E (indicator 99 is on). The latter is used in those cases where 
an error occurs and it is necessary to reformat the screen. Lines 040 through O60 show 
the message displayed when an error occurs that sets the HO indicator on (indicator 040 
is on). Lines O80 through 100 show the message displayed when a record cannot be 
found (indicator 01 is on, indicator 03 is off, and indicator 04 is off). Lines 110 through 
180 show the format of the output record when the CHAIN operation is successful 
(indicator 01 and 02 are on). Note that this record includes the prompting message for the 
next input record (line 120). 


17.3.2.2. Teletypewriter and DCT 500 Series Data Communications Terminals 


When these terminals are used, the terminal operator must enter and transmit each 
individual data record. The RPG II program will transmit a message. The operator then 
replies by entering an input record. This process continues until the operator indicates that 
there are no more records by typing in /*. 


Each position on a line corresponds to a position in an RPG II input or output record. The 
maximum record length depends upon maximum number of characters per line of remote 
terminal that is being used; that is, 64 or 80 for teletypewriter and 132 for DCT 500 
series. If a multiterminal file is used with different types of terminals, the maximum record 
length for the file is the shortest line length; that is, if some of the remote terminals have 
a line length of 80 and the others have a line length of 132, the maximum record length 
for that file is 80 characters. 


Since we are dealing with a teletypewriter or a DCT 500 series display terminal, a 
combined file is specified for the input and output records. The RPG II program transmits 
an output record to the terminal at the beginning of program execution and in each cycle 
to indicate the keyboard printer format for data entry and to prompt the operator to enter 
an input record. 


Figure 17-7 shows an example of how to specify an output record that is to be transmitted 
to the remote terminal to prompt the operator; how to specify the input record that is to be 
entered as a reply; and how to use the terminal to enter the input record. 





UP-8067 Rev. 6 SPERRY UNIVAC OS/3 17-18 
RPG Il 





INPUT FORMAT SPECIFICATIONS 


FIELO DESCRIPTION 


RECORD IDENTIFICATION 
}—__—ere recone (CATION CODES 


cae 


2 MATCHING FIELDS OR 
CHAINING FIELOS 

© FIECO RECORD 

z RELATION 


PROGRAM 
IDENTIFICATION 


SEQUENCE 
Lo} ONO or AAZZ 
Eee 
; 
)NDICATOR OR ** 


z€RO 


% RECORD IDENTIFYING 
3 OF BLANK 


3 

















CODES 


conta: 
NEGATIVE VALUE INDICATION in d 
ISERTED 

= 


DATA FORMAT 
PIB/LIA 





NoT PROGRAM 
Useo IDENTIFICATION 














CONSTANT OR EDIT WORD 


@ _8-6LANK AFTER 








pooitivirriiiriiratiirn Pate wee te Be bai 


wel 
. 
0 AM, INMR2 7 et soa tona t 
Jt 
co 








* 

> 
= 

5 


MAMY7, ti 


Ju soit tirerriririrtiiin 

















F-] 40 4s sO bad 60 6s 70 7s ad 


peed cc pec low malnage a comer 
Hal ict etait 8t | chan cian 


1 
input Dare Lm i ee os ad oe 
‘ Shea hoe & baa we sacad. 









































Figure 17—7. Formatting a Printer and Entering Data 


The input format specifications form shows the fields that are to be entered as input data, 
and the output format specifications form shows the output record that is used to format 
the printer and prompt the terminal operator. 


At the beginning of program execution, the output record is printed, the carriage is 
returned to the beginning of the next line, and the RPG Il program prints an S in print 
position 1 to indicate that it is ready to receive input data. The carriage is then spaced to 
print position 21, and the number is typed into positions 21 through 23. You then space 
the carriage to print position 61 and type in the quantity in positions 61 through 65. After 
the input data is typed, the data must be entered. You do this by pressing the end-of-text 
character key or by pressing the sequence of keys that effects this function. After the data 
has been transmitted, the output record is printed again, the carriage is returned to the 
beginning of the next line, and the RPG Il program prints an S. From this point on, the 
process of printing and data entry is repeated during each cycle until end of file is 
signalled for the terminal by typing in /*. When using the teletypewriter or DCT 500 series 
display terminal, multiple output records are permitted for one input message. Spacing is 
also permitted for each output record. 
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lf a hardware error occurs during transmission, the RPG Il program requests 
retransmission of the input data by returning the carriage to the beginning of the next line 
and printing an R. 


If recovery is not possible, the system operator is notified of a line down or terminal down 
status. The permanent error indicator is also set on if one is specified in the program. If 
there is more than one terminal in the program, RPG Il continues processing. If there is 
only one terminal in the program, RPG Il terminates the program. In a multiterminal 
program, the terminal operator can resume transmission is the terminal problem can be 
corrected. 


17.3.2.2.1. Transmit with Reception of Conversational Reply Using Two DCT 500 
Data Communications Terminals and a Teletypewriter Terminal 


Figure 17-8 shows an example in which two DCT 500 data communications terminals and 
a teletypewriter terminal on separate switched lines are used to access an indexed 
sequential file. The data to be entered consists of a 3-digit item number and a 5-digit 
quantity. The item number is used as a key to obtain the price of the item, and this price is 
then multiplied by the quantity to determine the total purchase price. The item price and 
the total purchase price are then transmitted back to the remote terminal that requested 
the information. The remote terminal operators gain access to the RPG II program by 
dialing the central site. As each operator dials in, his requests are serviced by the RPG Ii 
program. The program can run with from one to three terminals. Program operation 
continues until all remote terminals have signalled end of file or they are down. 
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Figure 17-8. Transmit with Reception of Conversational Reply Using Two DCT 500 
Data Communications Terminals and a Teletypewriter Terminal (Part 1 of 2) 
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Figure 17—8. Transmit with Reception of Conversational Reply Using Two DCT 500 
Data Communications Terminals and a Teletypewriter Terminal (Part 2 of 2) 
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The control card specifications form indicates that this is a telecommunications program 
by the entry of a CCA name (DCTY in columns 70 through 73). 


The file description specifications form shows on line 010 that the primary file, RMODTY, 
is a combined file (C in column 15 and P in column 16) and that it is a communications 
file (REMOTE in columns 40 through 46). Line 020 shows that RDSKTY is a chained input 
file (| in column 15 and C in column 16), the file is an indexed sequential file that is to be 
processed randomly by using the CHAIN operation (R in column 28, A in column 31, and | 
in column 32), the key field length is 3 and the key field starts in record position 1 (3 in 
columns 29 and 30 and 1 in columns 35 through 38), and that the file is contained on a 
disk (DISC in columns 40 through 46). 


The telecommunications specifications form shows that RMODTY is a transmit file (T in 
column 16), that two DCT 500 data communications terminals and a teletypewriter 
terminal are being used with this file (500 on lines 010 and 030 and TTY on line 020 in 
column 48 through 51), and the terminal names are TRM1, TRM2, and TRM3 (TRM1, 
TRM2, TRM3 in columns 71 through 74). The asterisks (*) in column 14 indicate that this 
is a multiterminal file; consequently, all terminals on the * lines are associated with this 
file. 


The input format specifications form shows the format of the input records for the 
combined primary file, RMODTY, on lines 010 through O40. If a record consisting of the 
character E is transmitted from a terminal, indicator 99 is set on. If the item number is 
typed in positions 21 through 23 and the quantity is typed in positions 41 through 45, 
indicator 01 is set on. Lines 040 and 050 show the format of the input record for the input 
chained file, RDSKTY, and that indicator 02 is set on when a record is read from this file. 


The calculation specifications form shows that a test is performed to see whether an error 
has occurred; that is, if the *ERROR field contains other than hexadecimal 00, the HO 
indicator is set on. If *ERROR field contains other than hexadecimal OO, indicator O6 is set 
on and this, in turn, causes the HO indicator to be set off. If it does not, the CHAIN 
operation to find the item price and the calculation of the total price is performed. This test 
is necessary because a multiterminal file is being used. If it was not present, an error 
involving one terminal could cause the program to terminate. 


The output format specifications form shows, on lines 010 through 040, the message 
printed when an error occurs that sets the HO indicator on (indicator 06 is on). Lines O60 
and 070 show the message that is printed when a record cannot be found (indicator 01 is 
on, indicator O5 is off, and indicator O6 is off). Lines O80 through 130 show the format of 
the normal output records; that is, the CHAIN operation is successful (indicators 01 and 02 
are on) and the item price and total price are printed on the printer. Lines 140 through 
160 show the prompting message that is displayed at the beginning of program execution, 
when the normal output records (lines O80 through 130) are printed, and when the 
terminal operator types in the character E (used in those cases where an error occurs and 
it is necessary to reformat the printer). 
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17.4. NETWORK DEFINITION REQUIREMENTS FOR FPG Il & 
TELECOMMUNICATIONS PROGRAMS 





As was stated previously, all RPG II telecommunications programs require that a 
communications network be defined at system generation time. This network definition is 
accomplished by using the integrated communications access method (ICAM). The 
fundamentals of ICAM, direct data interface, the system installation user 
guide/programmer reference, and the integrated communications access method (ICAM) 
utilities user guide contain the information required to define the communications network 
and create the ICAM load module that the RPG II telecommunications program interfaces 
with when the program is executed. The interface type used by RPG I! telecommunications 
programs is the direct data interface (DDI) level 3; consequently, when the CCA 
parameters are specified, TYPE=(DDI,3) must be specified. No buffers are specified in the 
CCA. The buffers are generated in your program by the RPG Il compiler. 


Figure 17-9 shows an example of the cards that would be required to generate an ICAM 
load module. This example assumes that you have an existing SYSRES; consequently, two 
job control streams must be executed. First, the cards shown in Figure 17-9 are placed in 
the system card reader and RUN SG$PARAM is typed on the system console. 


The cards are read and checked for errors. The cards are printed on the system printer 
along with any errors. If there are no errors you may proceed by typing RUN SGSCOMMK 
on the system console. The ICAM modules required by your network are assembled and 
the load module is linked and stored on the SYSRES. 





COMMCT 
NET1 CCA TYPE=(DDI, 3) 

BUFFERS 8,8,0,ARP=15 
LNE1 LINE DEVICE=(1004),TYPE=(2008,SYNC,SWCH,UNAT), 1ID=04 
TEN4 TERM FEATURES=(1004),ANSWER=(5,C,1604),AUX1=(PCH) 
LNE2 LINE DEVICE=(UNISCOPE), TYPE=(2000,SYNC,SWCH,UNAT), 1D=88 
SCP 1 TERM ADDR=(28,51),FEATURES=(U288) 
SCP2 TERM ADDR=(28,52),FEATURES=(U289) 
SCP3 TERM ADDR=(29,53),FEATURES=(U269) 
SCP4 TERM ADDR=(29,54),FEATURES=( 29698) 

ENDCCA 

MCP MCPNAME=C7 

CACH=(04,NET1,91) 

CACH=(88,NET1,62) 


1. 
2. 
3. 
4. 
5. 
6. 
7. 
8. 





Figure 17—9. ICAM Load Module Generation 
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11 


12 


13 


14 


15 


16 
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Explanation 
An ICAM generation is being done. 
The network name (NET1) and the interface type (DDI, level 3) are specified. 


No buffers are needed. They are generated in your program. There are to be 15 
activity request packets. 


The first line name is LNE1. It is a 1004 line that is a 2000 baud synchronous 
transmission line. It is switched with automatic answering. The port ID is 4. 


The terminal name is defined as TEN4. It is a 1004. The site ID is 1004. There is 
a card punch attached to the 1004. 


The second line name is LNE2. It is a UNISCOPE terminal line that is a 2000 
baud synchronous transmission line. It is switched with automatic answering. 
The port ID is 8. 

Four UNISCOPE 200 terminals are defined and named SCP1-SCP4. 

End of CCA 

The iCAM module name is defined as C7. 

Port 4 is assigned to NET1 line 1. 

Port 8 is assigned to NET1 line 2. 

End of system generation parameters 


End of job control stream 


You do not need complete information about the communications network because you 
are only concerned with the network information you must enter on the RPG II 
specifications forms when you write your program and the ICAM load module name (MCP 
name) when you execute your program. Additional remote terminals may be added to the 
network or the network configuration may be changed without requiring you to change 
your RPG Il program. If, however, a remote terminal is moved from one multiplexer to 
another, it may be necessary for you to change the configuration entry (column 15) on the 
telecommunications specifications form. 





UP-8067 Rev. 6 SPERRY UNIVAC OS/3 17-24 
RPG II 








17.5. PROGRAM EXECUTION 


The ICAM load module must be loaded before an RPG II telecommunications program can 
be executed. The module is loaded by typing in the module name (MCP name) on the 
system console. If you attempt to execute an RPG Ii telecommunications program without 
first loading the ICAM load module, the program terminates abnormally and the supervisor 
error code 21 is displayed on the system console. 


After the type-in has been made, the program is executed by using the normal job control 
statements. When the RPG II program files are opened, ICAM messages are displayed on 
the system console if switched lines are being used. If unattended answering was 
specified, the ICAM message MC#98 is displayed. if manual dialing was specified, the 
ICAM message MC#03 is displayed. After the line connections have been made, the 
execution of the RPG II program continues. Additional messages may be displayed on the 
system console as required by line and terminal conditions. The system messages 
programmer/operator reference describes all ICAM messages. 


17.6. ERROR PROCESSING 


The normal ICAM error recovery procedures should be tried in the event a line or terminal 
error occurs. If recovery is not successful and you have specified a permanent error 
indicator in your program, that indicator is set on. If not, the HO indicator is set on and the 
program terminates, unless the HO indicator is set off. 














PART 5. PROCESSING YOUR RPG II PROGRAM 
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18. Compiling, Link Editing, and 
Executing 


18.1. GENERAL 


Your RPG II programs are processed by the SPERRY UNIVAC Operating System/3 (OS/3). 
The operating system is an organized collection of programs executed as required to 
schedule and process user programs. The programs include the RPG II compiler, service 
programs, and the supervisor. The supervisor control program supervises the execution of 
the processing programs and controls the location, storage, and retrieval of data. It also 
schedules jobs for continuous processing. 


A request to the operating system for facilities and scheduling of program execution is 
called a job. A job consists of one or more job steps, each of which specifies execution of 
a program. You make these requests by use of job control statements that supply the 
information that the operating system needs to perform the job. 


Three job steps are involved in compiling, link editing, and executing a program. Each step 
can be done separately as a job by itself, or in combination with either or both of the other 
job steps. 


s Compilation 


Compilation is the process by which your source program is translated by the RPG II 
compiler into executable machine language. The result of this compilation is called an 
object module. This object module cannot be executed until it is processed by the 
linkage editor. 


# Link Editing 
The object module is processed by the linkage editor at this point. The linkage editor 
transforms the object module into a relocatable load module. Your program is now in 
a form that can be loaded into the system and executed. 

s Execution 
The final step in the complete processing of a program is execution. The load module 


is loaded into the system at this point, and processing begins. The input files are read, 
the calculations are performed, and the desired results are produced. 
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18.2. JOB CONTROL STATEMENTS 


The job control statements required to process RPG II programs vary (depending on the 
application) to such an extent that they are beyond the scope of this manual. Job control! 
statements for a specific job, however, always begin with a JOB statement and end with a 
/& (end of job) statement. 


A specific job consists of one or more job steps. Each job step is initiated by an EXEC 
Statement. Preceding the EXEC statement are job control statements that assign the 
input/output devices and allocate the file space that is required to execute the job step. 
These are the DVC, VOL, EXT, LBL, and LFD job control statements. These statements 
must always appear in the order given. The DVC statement is always the first in a device 
assignment set, and the LFD statement is always the last. The use of the other statements 
depends on the device that is required. The EXEC statement can be followed by job control 
statements that direct how the job step is to be executed or indicate the start and end of 
data that is related to the job step. The PARAM statement is used to direct job step 
execution, the /$ statement indicates the start of data, and the /* statement indicates the 
end of data. For more detailed information on job control statements, refer to the job 
control user guide. 


The first method is for you to use one of the job control procedure call statements provided 
by Sperry Univac. By using this method, you can save considerable time because you do 
not have to write the individual job control statements. Instead, the job control procedure 
call statement automatically generates them for you. 


There are three RPG II job control procedure call statements: RPG, RPGL, and RPGLG. 
RPG allows you to compile your source program; RPGL allows you to compile your source 
program and link-edit the generated object module to create a load module; and RPGLG 
allows you to compile, link-edit, and immediately execute the load module. 


There are four RPG II auto report job control procedure call statements: AUTO, AUTRPG, 
AUTRPGL, and AUTRPGLG. AUTO allows you to process auto report source programs. 
AUTRPG allows you to process auto report source programs and then compile the RPG II 
generated source programs. AUTRPGL allows you to process auto report source programs, 
compile the generated RPG II source program, and link-edit the generated object module to 
create a load module. AUTRPGLG allows you to process auto report source programs, 
compile the generated RPG II source program, link-edit the generated object module to 
create a load module, and immediately execute the load module. 


The second method is for you to write all the job control statements for each job step. This 
tends to be time-consuming because of the effort required to write the individual 
Statements. 


18.2.1. RPG II Job Control Procedure Call Statements - RPG, RPGL, and RPGLG 


These procedure call statements generate the necessary job control statements to run the 
RPG Il language processor. Optionally, they can generate the job control statements that 
specify the following: 


a input-source library (RPG, RPGL, and RPGLG); 
® output-object library (RPG only); and 


a PARAM control statements to define the format of the compiler listing. 
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& Format: 


| RPG RNTR= frrssssts 
{rece N[ , dest] 
RPGLG 


,dest] 





IN=/(vol-ser-no, lbI name) 
(RES) 
(RES, i bil name) 
Sails Ibi name) 
»tbiname) 


[Es 
| 
| 
[ 


(RUN, I bl name) 


(*, 1 biname) 








LST=/K 
M 
N 
Ss 
SCR1 Maas | [tae Y] 
EMB= ~MOD=, 3 {,COL=7] 
® 
5 
IRAM 


TALTLOD= /(vol-ser-no, lbiname) 
(RES, [bi name) 
(RUN, [biname) 

(*, [biname) 





[, ERRFIL=(vol-ser-no, | biname,module-name) } 
[, CONSOLE=I fdname ] 
[,MIRAM=ALL] 


Label: 
symbol 
Specifies the 1- to 6-character source module name; only needed when the IN 
parameter is used. 
Operation: 
RPG 


A procedure call statement used to compile an RPG Il source program. 


@ RPGL 


A procedure call statement used to compile an RPG II source program and link- 
edit the generated object module to create a load module. 
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RPGLG 
A procedure call statement used to compile an RPG II source program, link-edit 
the generated object module to create a load module, and immediately execute 
the load module. 


Keyword Parameter PRNTR: 
Specifies the logical unit number of the printer. The options are: 


PRNTR lun[.dest] 
The logical unit number of the printer. The identifier, dest, is a destination 
identifier of 1 to 6 alphanumeric characters for the remote destination for 
spooling. 


PRNTR N[ .dest ] 
Specifies that a DVC-LFD sequence of job control statements is not to be 
generated for a printer. If you use this option, you must supply your own printer 
definition. Note that this option also allows you to use // LCB and /’/ VFB job 
control statements. The identifier, dest, is a destination identifier of 1 to 6 
alphanumeric characters for the remote destination for spooling. 


If omitted, the logical unit number of the printer is 20. 
Keyword Parameter IN: 


Specifies the input file definition and generates a PARAM IN control statement. The 
options are: 


(IN (vol-ser-no.Ilbiname) 
Specifies the file identifier and the volume serial number (vol-ser-no) where the 
source input is located. 


IN (RES) 
Specifies that the source input is located on the SYSRES device in SYSSRC. 


IN. (RES. | bI name) 
This is used if your source input is located on the SYSRES device, but the file 
identifier is of your own specification, not $Y$SRC. 


IN (RUN, [bi name) 
Specifies that the source input is located on the job’s $YSRUN file, with the file 
identifier of your own specification. 


IN: (°, Ibtname) 
Specifies that the source input is located on a catalog file identified by the file 
identifier. 


If omitted, the source input is in the form of embedded data cards (’$,source deck, *) 
in the job control stream. 
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Keyword Parameter OUT (used only with RPG; not used with RPGL or RPGLG): 


Specifies the output file definition and generates a PARAM OUT control statement. 
The options are: 


OUT- (vol-ser-no.lbiname) 


OUT- 


OUT: 


OUT 


OUT= 


Specifies the file identifier and the volume serial number where the object 
module is located. 


(RES. | biname ) 
Specifies that the object module is located on the SYSRES device with the file 
identifier of your own specification. 


(RUN. Ibi name) 
Specifies that the object module is located on the job’s SYSRUN file, with a file 
identifier of your own specification. 


(°, | biname) 
Specifies that the object code is to be located on a catalog file identified by the 
file identifier. 


(N) 
Specifies that an object module is not to be produced. 


If omitted, the object module is located on the job’s $Y$RUN file. 


Keyword Parameter LST: 


Specifies the format of the compiler listing. The options are: 


LST 


K 
Do not print error flags for sequence errors. 


LST M 


Do not print the source language statements and error messages. 


LST N 


LST 


Do not print any listings. 


S 
Do not print the main storage map. 


If omitted, the complete compiler listing is printed. 
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Keyword Parameter SCR1: 
Specifies the volume serial number of the work file labeled SCR1. 


SCR1 vol-ser-no 
The volume serial number. 


If omitted, the default is RES. 
Keyword Parameter SCR2: 
Specifies the volume serial number of the work file labeled SCR2. 


SCR2 vol-ser-no 
The volume serial number. 


If omitted, the default is RUN. 


Keyword Parameter EMB: 


Specifies whether or not embedded linkage editor control statements are to be 


generated in the RPG II object module. 


EMB NO 


Do not generate embedded linkage editor control statements in the RPG II object 
module. No overlay structure is generated for the load table or dump table file. 


If omitted, the default is YES. 


Keyword Parameter MOD: 


Specifies that the program is to be compiled in the IBM System/3-System/34 mode 
or that if the program is to be compiled in one of the other compilation modes, IRAM 
is to be used to process all disk files in a Series 90 environment and MIRAM is to be 


used in a System 80 environment. 


MOD=3 


The program is to be compiled in the IBM System/3-System/34 mode. When 
this mode is specified, IRAM or MIRAM will be used to process all disk files. 
Also, the logical file definition (7/” LFD) for printer files ts changed to PRNTR, 
PRNTR1...PRNTRn and the contro! reader (CTLRDR) is used for card input even 


though the data management reader (READER) is specified. 


MOD=4 


Same as MOD=3 except that printer files are generated with the same names as 
used in the program and reader files use the data management reader (READER). 


MOD=5 


The program is to be compiled in the IBM System/3-System/34 mode with 


native mode data management accessing the disk files. 
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MOD |RAM 
IRAM is to be used to process all disk files. 


If omitted, the program is compiled in OS/3 native mode. 
Keyword Parameter COL: 


Specifies that compile time tables can begin in position 7 rather than in position 1. 


COL 7 
Enables the user to carry sequence numbers in columns 1-5 for each statement 
in the RPG source program. The OS/3 librarian can then be used to maintain 
disk file source for RPG programs that contain compile time tables and arrays. 


If omitted, compile-time tables begin in position 1. 
Keyword Parameter ALTLOD: 
Specifies the location of the alternate load library. 


ALTLOD (vol-ser-no,!bl name) 
Specifies the volume serial number (vol-ser-no) and the file identifier of an 
alternate load library that contains the RPG II compiler. 


ALTLOD (RES. tbl name) 


Specifies that the alternate load library is located on the job’s SYSRES device, in 
the file identified by the file identifier. 


ALTLOD (RUN. I bI name) 


Specifies that the alternate load library is located on the job’s $YSRUN file with 
the file identifier specified by the user. 


ALTLOD (°.I|biname) 


Specifies that the alternate load library is located on a catalog file identified by 
the file identifier. 


If omitted, the compiler is loaded from $YSRUN. 
Keyword Parameter ERRFIL: 


Specifies that error diagnostic messages are written to a file that is accessed by the 
error file processor. When you specify this parameter, error records are created for 
every error note generated by the compiler. 


ERRFIL (vol-ser-no,!biname.module-name) 
vol-ser-no specifies the volume serial number of the file. Iblname specifies the 
file identifier (name of the file that the module is placed into). module-name is 
the name of the module that is referenced by the error file processor. 


If omitted, the error file is not created. 





UP-8067 Rev. 6 SPERRY UNIVAC OS/3 18-8 
RPG Il Update A 





ERRF I L=module-name/Ifdname 
The module name is the name assigned to the error by the file element being 
created by the compiler. The module name may be from 1 to 8 characters in 
length and it doesn’t need to match or be related to the RPG li source or object 
module name. The Ifdname is the logical file name of the error log file and can 
be from 1 to 8 characters in length. 





If omitted, the error log file is not created. 
Keyword Parameter CONSOLE: 


Specifies that the file is a CONSOLE (interactive data entry) file and not a system 
console file. 


CONSOLE=I fdname 
The Ifdname is the name of the CONSOLE file. 


If omitted, the file is a system console file and not an interactive data entry file. 
Keyword Parameter MIRAM: 
Specifies that MIRAM is used for disk files when operating under the Series 90 


environment. To select individual files for MIRAM, use the MIRAM parameter with 
the PARAM statement. 


MIRAM=ALL 
All disk files use MIRAM. 


If omitted, disk files use IRAM, ISAM, DAM, or SAM. 
18.2.1.1. Using the RPG Job Control Procedure Call Statement 
Figure 18-1 shows how you can use the RPG job control procedure call to compile an RPG II 
program. In this example, assume that you only want to compile your program with the 


standard compiler default options; that is: 


™ the source language statements are read from the source deck in the job control 
stream; 


® a listing is printed that contains the error flags for sequence errors, a main storage 
map, the source language statements, and any associated error messages; and 


= the object module that is produced is stored in the job’s $YSRUN file. 














UP-8067 Rev. 6 SPERRY UNIVAC OS/3 18-8a 
RPG II Update A 









JOB RPGCPO 
// RPG 
/$ 





source deck 


Figure 18—1. Using the RPG Job Control Procedure Call Statement with Standard Default Options 
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In Figure 18-1, line 1 indicates that the name of the job is RPGCPO. 


Line 2 indicates that the RPG II job contro! procedure RPG is being called. There are no 
keyword parameters specified; consequently, the standard compiler default options apply. 


Line 3 indicates the start-of-data. 


Lines 4 through 6 represent the source deck that contains the source language statements 
for the program to be compiled. 


Line 7 indicates the end-of-data. 
Line 8 indicates the end-of-job. 
Line 9 causes the card reader (job control stream reader) to stop reading cards. 


Figure 18-2 shows you the job control statements that are generated by the entries in 
Figure 18-1. 


JOB RPGCPO 

OVC 26 // LFD PRNTR 
DVC RES 

EXT ST.C.3.CYL.1 

LBL $SCR1 // LFD $SCR} 
DVC RUN 

EXT ST.C.3,CY¥L.1 

LBL $SCR2 // LFD $SCR2 
EXEC RPGII 


Swen Don & Wr — 


— 


source deck 





Figure 18—2. Job Control Statements Generated by the RPG Procedure Call Statement 
with Standard Default Options 


In Figure 18-2, line 1 indicates that the job name is RPGCPO. 
Line 2 indicates the default logical unit number and LFD name of the printer. 


Lines 3 through 5 indicate that the first work file needed for compilation is, by default, on 
the SYSRES device, has both a file identifier and LFD name of $SCR1, and uses the 
system access technique; and that the allocation is contiguous, with three cylinders 
allocated for the secondary increment and one cylinder allocated for the first extent. 
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Lines 6 through 8 indicate that the second work file needed for compilation is, by default, 
on the device containing the job’s $YSRUN file. Both the file identifier and the LFD name 
are $SCR2, and the file extent specification is the same as the first work file. 





Line 9 loads the RPG li compiler from $YSLOD. 
Line 10 indicates the start-of-data. 


Lines 11 through 13 represent the source deck that contains the source language 
statements for the program to be compiled. 


Line 14 indicates the end-of-data. 
Line 15 indicates end-of-job. 


Line 16 causes the card reader (job control stream reader) to stop reading cards. 


18.2.1.2. Using a Job Control Procedure Call Statement that Defines 
Keyword Parameters 


Figure 18-3 shows how you can use the keyword parameters in a job control procedure 
call statement to specify other than the standard default options. In this example, assume 
that you are using the RPG job control procedure to compile your program and you want to 
use a printer other than the default printer; you want to read the source language 
statements for your program from an input file rather than from cards within the job 
control stream deck; you want to specify a different device for the first work file needed for 
compilation; you want to store the object module on the SYSRES device with your own file 
identifier; and you do not want any compiler listings. 





/ JOB RPGCPO 
7éPROGNM RPG PRNTR 21.1N -(OSC1.USSRC), 


fi OUT. (RES.USOBJ). 
4712 SCR1-DSC1.LST=N 
/& 
i’ FIN 





Figure 18—3. Using the RPG Job Control Procedure Call Statement with Nonstandard Options 


In Figure 18-3, line 1 indicates that the name of the job is RPGCPO. 


Line 2 indicates that the RPG II job control procedure RPG is being called. The source 
module name is PROGNM. The logical unit number of the printer is 21, and the input file 
has a volume serial number of DSC1, with a file identifier of USSRC. 





Line 3 indicates that the output file is to be stored on the SYSRES device, with a file & 
identifier of USOBJ. 
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Line 4 indicates that the first work file needed for compilation is on the device with a 
volume serial number of DSC1. By default, the device for the second work file is the one 
that contains the job’s $YSRUN file. The LST keyword parameter specifies that no compiler 
listings are to be printed. 


Line 5 indicates the end-of-job. 
Line 6 causes the card reader (job control card reader) to stop reading cards. 


Figure 18-4 shows you the job control statements that are generated by the entries in 
Figure 18-3. 


RPGCPO 
21 // LFD PRATR 
58 // VOL DSC] 
USSRC // LFD INRPUT 
RES 
LBL USOBJS // LFO OUTRPUT 
OVC 5B // VOL OSC] 
EXT ST.C.3.CYL.1 
LBL $SCR1 // LFD $SCR1 
OVC RUN 
EXT ST.C.3,CYL.1 
{LBL $SCR2 // LFO $SCR2 
EXEC RPGII 
PARAM IN=PROGNM/INRPUT 
PARAM OUT -OUTRPUT 
PARAM LST N 


CONDO & WMH — 


FIN 





Figure 18--4. Job Control Statements Generated by RPG Procedure Call Statement 
with Nonstandard Options 


In Figure 18-4, line 1 indicates that the name of the job is RPGCPO. 


Line 2 indicates that the printer is to be assigned to the logical unit number 21, with an LFD 
name of PRNTR. This was generated by the PRNTR parameter on line 2 of Figure 18-3. 


Line 3 indicates that the input file volume serial number is DSC1. It assigned the device 
with a logical unit number of 50, which was the first available number in the range 50 
through 54. This was generated by the IN parameter on line 2 of Figure 18-3. 


Line 4 indicates that the input file is labeled USSRC with an LFD name of INRPUT. This 
was generated by the IN parameter on line 2 in Figure 18-3. 


Line 5 indicates that the output file is to be stored on the SYSRES device. This was 
generated by the OUT parameter on line 3 in Figure 18-3. 


Line 6 indicates that the output file is labeled USOBJ with an LFD name of OUTRPUT. This 
was generated by the OUT parameter on line 3 in Figure 18-3. 
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Lines 7 through 9 indicate that the first work file needed for compilation has a volume 
serial number of DSC1. Since this volume serial number was already used, this work file 
uses the same device logical number of 50. This work file has the file identifier and LFD 
name of $SCR1. It uses the system access technique; allocation is contiguous, with three 
cylinders allocated for the secondary increment and one cylinder allocated for the first 
extent. This was generated by the $SCR1 parameter on line 4 in Figure 18-3. 


Lines 10 through 12 indicate that the second work file needed for compilation is, by 
default, on the device containing the job’s $SYSRUN file. This work file has the file identifier 
and LFD name of $SCR2, and it has the same file extent specification as the first work file. 


Line 13 loads the RPG Il compiler from $YS$LOD. 

Lines 14 through 16 are PARAM control statements that identify the processing options 
for the RPG Il compiler. On line 14, the module name PROGNM is generated from the 
label field on line 2 in Figure 18-3. , 

The file name INRPUT is generated automatically when the IN parameter is used. On line 
15, the filename OUTRPUT is generated automatically when the OUT parameter is used. 
On line 16, the N list option is generated by the LST parameter on line 4 in Figure 18-3. 


Line 17 indicates end-of-job. 


Line 18 causes the card reader (job control stream reader) to stop reading cards. 


18.2.1.3. Using the RPGL Job Control Procedure Call Statement 


Figure 18-5 shows you how you can use the RPGL job control procedure call to compile 
and link-edit an RPG I! program with the standard compiler default options as described in 
18.2.1.1. 


// JOB RPGCLO 
// RPGL 
/3 


source deck 





Figure 18—5. Using the RPGL Job Control Procedure Call Statement 
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@ In Figure 18-5, line 1 indicates that the name of the job is RPGCLO. 


Line 2 indicates that the RPGL job control procedure is being called. There are no keyword 
parameters specified; consequently, the standard compiler default options apply. The 
program is link-edited immediately after compilation, and the load module is stored on the 
SYSRUN file. 


Line 3 indicates the start-of-data. 


Lines 4 through 6 represent the source deck that contains the source language statements 
for the program to be compiled. 


Line 7 indicates end-of-data. 
Line 8 indicates end-of-job. 
Line 9 causes the card reader (job control stream reader) to stop reading cards. 


Figure 18-6 shows you the job control statements that are generated by the entries in 
Figure 18-5. 


JOB RPGCLO 
OPTION LINK 

‘ DVC 286 // LFD PRNTR 
DVC RES 
EXT ST.C.3.CYL.1 
LBL $SCR1 // LFO $SCRI 
OVC RUN 
EXT ST.C.3,.CYL.1 
LBL $SCR2 // LFD $SCR2 
EXEC RPGII 


l 

2. 
3: 
4. 
33 
6. 
7. 
8. 
9. 
0. 
1. 


1 
1 


source deck 





Figure 18—6. Job Control Statements Generated by RPGL Procedure Call Statement 


In Figure 18-6, line 1 indicates that the job name is RPGCLO. 
é Line 2 indicates that the program is link-edited immediately after compilation. 


Line 3 indicates the default logical unit number and the LFD name of the printer. 
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Lines 4 through 6 indicate (1) that the first work file needed for compilation is, by default, 
on the SYSRES device, has both a file identifier and LFD name of $SCR1, and uses the 
system access technique and (2) that the allocation is contiguous, with three cylinders 
allocated for the secondary increment and one cylinder allocated for the first extent. 
Lines 7 through 9 indicate that the second work file needed for compilation is, by default, 
on the device containing the job’s $Y$RUN file. Both the file identifier and the LFD name 
are $SCR2, and the file extent, specification is the same as the first work file. 

Line 10 loads the RPG II compiler from $Y$LOD. 

Line 11 tndicates start-of-data. 


Lines 12 through 14 represent the source deck that contains the source language 
statement to be compiled. 


Line 15 indicates end-of-data. 

Line 16 indicates end-of-job. 

Line 17 causes the card reader (job control stream reader) to stop reading cards. 
18.2.1.4. Using the RPGLG Job Control Procedure Call Statement 

Figure 18-7 shows how you can use the RPGLG job control procedure to compile, link- 


edit, and execute an RPG Ii program with the standard compiler default options as 
described in 18.2.1.1. 


JOB RPGCLGO 


device assignments 
for your program 


RPGLG 


source deck 





Figure 18—7. Using the RPGLG Job Control Procedure Call Statement 
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In Figure 18-7, line 1 indicates that the name of the job is RPGCLGO. 


Lines 2 through 5 represent the job control statements that assign the input/output 
devices and allocate the file space required to execute your program. 


Line 6 indicates that the RPG Il job control procedure RPGLG is being called. There are no 
keyword parameters specified; consequently, the standard compiler default options apply. 
The program is link-edited immediately after compilation and it is executed immediately 
after link-editing. 

Line 7 indicates start-of-data. 


Lines 8 through 10 represent the source deck that contains the source language 
statements for the program to be compiled. 


Line 11 indicates end-of-data. 

Line 12 indicates end-of-job. 

Line 13 causes the card reader (job control stream reader) to stop reading cards. 
Line 14 indicates data (on cards). 

Line 15 indicates end-of-data. 


Figure 18-8 shows you the job control statements that are generated by the entries in 
Figure 18-7. 
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JOB RPGCLGO 


device assignments 
for your program 


OPTION LINK.GO 

OVC 28 // LFD PRNTR 
DVC RES 

EXT ST.C.3.CYL.1 

LBL $SCR1 // LFD $SCRI 
OVC RUN 

EXT ST.C.3.CY¥t.1 

LBL $SCR2 // LFD $SCR2 
EXEC RPGIt 


source deck 





Figure 18—8 Job Control Statements Generated by RPGLG Procedure Call Statement 


In Figure 18-8, line 1 indicates that the name of the job is RPGCLGO. 





Lines 2 through 5 represent the job control statements that assign the input/output 
devices and allocate the file space required to execute your program. 


Line 6 indicates that the program is link-edited immediately after compilation and executed 
immediately after link-editing. 


Line 7 indicates the default logical unit number and the LFD name of the, printer. 


Lines 8 through 10 indicate (1) that the first work file needed for compilation is, by default, 
on the SYSRES device, has both a file identifier and LFD name of $SCR1, and uses the 
system access technique and (2) that the allocation is contiguous, with three cylinders 
allocated for the secondary increment and one cylinder allocated for the first extent. 
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Lines 11 through 13 indicate that the second work file needed for compilation is, by 
default, on the device containing the job’s $YSRUN file. Both the file identifier and the LFD 
name are $SCR2, and the file extent specification is the same as the first work file. 


Line 14 loads the RPG II compiler from $Y$LOD. 
Line 15 indicates the start-of-data. 


Lines 16 through 18 represent the source deck that contains the source language 
statements for the program to be compiled. 


Line 19 indicates the end-of-data. 

Line 20 indicates the end-of-job. 

Line 21 causes the card reader (job control stream reader) to stop reading cards. 
Line 22 indicates data. 

Line 23 indicates end-of-data. 


When you use the RPGLG job control procedure call statement, you create and name both 
an object module and a load module, temporarily store it in the job’s $Y$RUN file, and 
then execute it. The load module is stored in the job’s $YSRUN file until execution of the 
job is completed. 


lf your system has the shared data management feature and you want to execute your 
program with the feature, you cannot use the RPGLG job control procedure call statement 
because job control must scan the load module in $Y$LOD for this feature. The GO option 
generated by the RPGLG job controi procedure call statement cannot be used. 


If you want to execute your program and use the shared data management feature, you 
can do this by using the RPG job control procedure call with a separate LINK job control 
procedure call statement or the RPGL job control procedure call statement to compile and 
link-edit your program and then using a separate EXEC statement to execute your 
program. 


If your system has the shared data management feature and you use the RPGLG job 
control procedure call statement, your program will be executed without using the shared 
data management feature and the message KO85-GO OPTION IN EFFECT-SHARE 
PARAMETER RESET will be printed to inform you that shared data management was not 
used. 
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18.2.2. Auto Report Job Control Procedure Call Statements 





(AUTO, AUTRPG, AUTRPGL, and AUTRPGLG) 


These procedure call statements generate the necessary job control statements to run 
RPG II auto report. Optionally, they can generate the job control statements that specify 
the following: 





= Input — auto report source library (all jprocs) 
BS Output — object program object library (AUTRPG jproc only) 
# Output — auto report source library identification (all jprocs) 
= PARAM control statements to define the format of the RPG II compiler listings 
(AUTRPG, AUTRPGL, and AUTRPGLG jprocs) 
= PARAM control statements to control auto report generation of the RPG Il program 
skip to channel or skip to line printer specifications (all jprocs) 
= PARAM control statements to control generation of the program identification in 
columns 75 — 80 of the generated code 
= Other RPG II compiler control options (AUTRPG, AUTRPGL, and AUTRPGLG jprocs) 
Format: 
//[symbol] (AUTO PRNTR=(lun[,dest] 
AUTRPG N[ dest] 
AUTRPGL 28[ dest] 
AUTRPGLG 


A Ibilname) 
, tbIiname) 


,OUT=/(vol-ser-no, |1bI name) 
(RES, | bt name) 
(RUN, | biname) 
(*, lbiname) 
N 
(RU SYSRUN) 


,IN=/(vol-ser-no, |lbiname ) 
(RES) 
(RES, | biname) 





rence ser-no, l\blname, | fdname,module-name) 
RES, LblLname, | fdname, module-name) 


LST=/k 
f| 
f| 
S (continued) 
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zs) 


= 


[, SKIP=C ] 
,COPYn=((vol-ser-no,|biname, | fdname) 
(RES, |bIname,{tfdname ) 
(RUN, lbiname,Ifdname ) 


- (vol-ser-no,|biname) 


fees || aaa vol-ser 


 MOD= (3 
4 
5 
TRAM 





ect 
(RUN, Ibi name) 


* 


I bl name ) 








[, ERRFIL=(vol-ser-no, |biname,module-name) ] 
[, PROGID=N] 


Label: 
symbol 
Specifies the 1- to 6-character source module name; only needed when the IN 
parameter is used. 
Operation: 
AUTO 
A procedure call statement used to process auto report source programs. 
AUTRPG 
A procedure call statement used to process auto report source programs and 
then compile the RPG Il generated source program. 
AUTRPGL 
A procedure call statement used to process auto report source programs, compile 
the generated RPG II source program, and link-edit the generated object module 
to create a load module. 
AUTRPGLG 


A procedure call statement used to process auto report source programs, compile 
the generated RPG Il source program, link-edit the generated object module to 
create a load module, and immediately execute the load module. 


Keyword Parameter PRNTR: 
Specifies the logical unit number of the printer. The options are: 
PRNTR=Itun[ ,dest ] 
The logical unit number of the printer. The identifier, dest, is a destination 


identifier of 1 to 6 alphanumeric characters for the remote destination for 
spooling. 
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PRNTR N[ .dest] @ 


Specifies that a DVC-LFD sequence of job control statements is not to be 
generated for a printer. If you use this option, you must supply your own printer 
definition. Note that this option also allows you to use // LCB and // VFB job 
control statements. The identifier, dest, is a destination identifier of 1 to 6 
alphanumeric characters for the remote destination for spooling. 


If omitted, the logical unit number of the printer is 20. 
Keyword Parameter IN: 


Specifies the input file definition and generates a PARAM IN control statement. The 
options are: 


IN (vol-ser-no.Ilbiname) 
Specifies the file identifier and the volume serial number (vol-ser-no) where the 
source input is located. 


IN (RES) 
Specifies that the source input is located on the SYSRES device in $Y$SRC. 


IN (RES, | bi name) 
This is used if your source input is located on the SYSRES device, but the file 
identifier is of your own specification, not $Y$SRC. 





IN (RUN. Jb name) 
Specifies that the source input is located on the job’s $YSRUN file, with the file 
identifier of your own specification. 


IN (°, Ebiname) 
Specifies that the source input is located on a catalog file identified by the file 
identifier. 


If omitted, the source input is in the form of embedded data cards (’*,source deck ’*) 
in the job control stream. 


Keyword Parameter OUT (used only with AUTRPG, not used with AUTRPGL or 
‘AUTRPGLG): 


Specifies the output file definition and generates a PARAM OUT control statement for 
the RPG II compiler. The options are: 


OUT: (vol-ser-no,tbiname) 
Specifies the file identifier and the volume serial number where the object 
module is located. 


OUT. (RES. I bIiname) 
Specifies that the object module is located on the SYSRES device with the file 
identifier of your own specification. 
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OUT=(RUN, I bI name) 
Specifies that the object module is located on the job’s SY$RUN file, with a file 
identifier of your own specification. 


OUT=(*,I1bI name) 
Specifies that the object code is to be located on a catalog file identified by the 
file identifier. 


OUT=(N) 
Specifies that an object module is not to be produced. 


If omitted, the object module is located on the job's $YSRUN file. 
Keyword Parameter OUTSRC: 


Specifies the output source file definition for the cataloged source file option on the 
auto report (U) specification. A DVC, VOL, LBL, and LFD control statement 
sequence is generated. The options are: 


OUTSRC=(vol-ser-no, lbl name, | fdname, module-name) 
Specifies the volume serial number, the file identifier (Ibiname), the logical file 
descriptor (Ifdnmame) where the generated source is located, and the module 
name of the generated source. The Ifdname and module-name must 
correspond to information specified in the auto report U specification. 


OUTSRC=(RES, lbl name, | fdname, module-name) 
Specifies the generated source located on the SYSRES device with the file 
identifier (IbIname), logical file descriptor (Ifdname), and module name of the 
generated source. The lIfdname and module-name must correspond to 
information specified in the auto report U specification. 


If omitted, there is no output file definition for the cataloged source file option. 


Keyword Parameter LST: 
Specifies the format of the compiler listing. The options are: 


LST=K 
Do not print error flags for sequence errors. 


LST=M 
Do not print the source language statements and error messages. 


LST=N 
Do not print any listings. 


LST=S 
Do not print the main storage map. 


if omitted, the complete compiler listing is printed. 
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Keyword Parameter SCR1: 





Specifies the volume serial number of the work file labeled SCR1. 


SCRl=vol-ser-no 
The volume serial number. 


If omitted, the default is RES. 
Keyword Parameter SCR2: 
Specifies the volume serial number of the work file labeled SCR2. 


SCR2=vol-ser-no 
The volume serial number. 


If omitted, the default is RUN. 
Keyword Parameter EMB: 


Specifies whether or not embedded linkage editor control statements are to be 
generated in the RPG Il object module. 


EMB=NO0 
Do not generate embedded linkage editor control statements in the RPG II object 
module. No overlay structure is generated for the load table or dump table file. 





If omitted, the default is YES. 
Keyword Parameter MOD: 


Specifies that the program is to be compiled in the IBM System/3-System/34 mode 
or that if the program is to be compiled in one of the other compilation modes, IRAM 
is to be used to process all disk files in a Series 90 environment and MIRAM is to be 
used in a System 80 environment. 


MOD=3 
The program is to be compiled in the IBM System/3-System/34 mode. When 
this mode is specified, IRAM or MIRAM will be used to process all disk files. 
Also, the logical file definition (// LFD) for printer files is changed to PRNTR, 
PRNTR1...PRNTRn and the control reader (CTLRDR) is used for card input even 
though the data management reader (READER) is specified. 


moD=4 
Same as MOD=3 except that printer files are generated with the same names as 
used in the program and reader files use the data management reader (READER). 


MOD=5 
The program is to be compiled in the IBM System/3-System/34 mode with 
native mode data management accessing the disk files. 
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MOD=I RAM 
IRAM is to be used to process all disk files. 


If omitted, the program is compiled in OS/3 native mode. 
Keyword Parameter SKIP: 


Specifies type of skipping used for printer output, generating a PARAM SKIP job 
control statement. 


SKIP=C 
SKIP=C causes auto report to generate SKIP to channel for the printer output 
file. If this option is not used, auto report generates SKIP to line numbers for the 
printer output file. 


If omitted, you get spacing based on line numbers. 
Keyword Parameter COPYn: 
Specifies the input source file definition for “COPY statements within auto report 
source input. The number (n) of copies corresponds to the number of unique files 
used to copy. 
COPYn=(vol-ser-no, |biname, I fdname) 
Specifies the volume serial number, the file identifier (IbIname) and the logical 


file descriptor (Ifdname) where the copy source is located. 


COPYn=(RES,|bIname,Ifdname) 
Specifies that the copy source is located on the SYSRES device with the file 
identifier (IbIname) and logical file descriptor (Ifdname) of your own specification. 


COPY=(RUN, |! bIiname,I|fdname) 
Specifies that the copy source is located on the job’s $YSRUN file, with the file 
identifier (lbIname) and logical file descriptor (Ilfdname) of your own specification. 
If omitted, there is no input source file definition for /COPY statements. 
Keyword Parameter ALTLOD: 
Specifies the alternate load library containing the auto report product (AUTO#). 
ALTLOD=(vol-ser-no, Il bI name) 


Specifies the volume serial number (vol-ser-no) and the file identifier where the 
auto report (AUTO#) load module resides. 
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ALTLOD=RES, IbItname) 
Specifies that the alternate load library is located on the job’s SYSRES device, in 
the file identified by the file identifier. 


ALTLOD=(RUN, I bI name) 
Specifies that the alternate load library is located on the job’s $Y$RUN file with 
the file identifier specified by the user. 


ALTLOD=(*,IbI name) 
Specifies that the alternate load library is located on a catalog file identified by 
the file identifier. 


If omitted, the AUTO# load module is located in the $Y$LOD file on the SYSRES 
device. 


Keyword Parameter ERRFIL: 
Specifies that error diagnostic messages are written to a file that is accessed by the 
error file processor. When you specify this parameter, error records are created for 
every error note generated by auto report. 
ERRFIL=(vol-ser-no,!bIname,module-name) 
vol-ser-no specifies the volume serial number of the file. IbIname specifies the 
file identifier (name of the file that the module is placed into). module-name is 
the name of the module that is referenced by the error file processor. 
If omitted, the error file is not created. 


Keyword Parameter PROGID: 


Specifies that auto report does not generate a program identification in columns 75 
through 80 of the generated source. 


PROGID=N 
No program identification is generated. 


If omitted, the program identification on the contro! specification is generated in all 


source output. 


18.2.2.1. Using the AUTO Job Control Procedure Call Statement 


Figure 18-9 shows how you can use the AUTO job control procedure call to run RPG Il 
auto report. In this example, the following conditions exist: 





= The source language statements are read from the source deck in the job control 
stream. 





# A iisting is printed that contains original source, generated source, and error notes. 


m The generated source module is stored in the job’s $Y$SRC file. 
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// JOB AUTOPO 
// AUTO 
/$ 


Source deck 





Figure 18—9. Using the AUTO Job Control Procedure Call Statement with Standard Default Options 


In Figure 18-9, line 1 indicates the name of the job is AUTOPO. 
Line 2 indicates that the procedure AUTO is being called. 
Line 3 indicates start-of-data. 


Lines 4 through 6 represent the source deck that contains the source language statements 
for the program to be compiled. 


Line 7 indicates the end-of-data. 
Line 8 indicates the end-of-job. 
Line 9 causes the card reader (job control stream reader) to stop reading cards. 


Figure 18-10 shows the job control statements that are generated by the entries in Figure 
18-9. 
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JOB AUTOPO 

DVC;20 // LFD PRNTR 
DVC RES 

EXT ST,C,3,CYL,1 

LBL $SCR1 

LFD $SCR1 

DVC RES 

LBL $Y$SRC 

LFD;F1 

EXEC AUTO#,$Y$LOD 


1. 
2. 
3.23 
be 
os 
6. 
Vos 
8. 


source deck 





Figure 18—10. Job Control! Statements Generated by the AUTO Procedure Call Statement with Standard Default 
Options 





In Figure 18-10, line 1 indicates that the job name is AUTOPO. 

Line 2 indicates the default logical unit number and LFD name of the printer. 

Lines 3 through 6 indicate that the first work file needed for compilation is, by 
default, on the SYSRES device, has both a file identifier and LFD name of #SCR1, 


and uses the system access technique; and that the allocation is contiguous, with 
three cylinders allocated for the secondary increment and one cylinder allocated for 


the first extent. 


Lines 7 through 9 indicate that the generated source is output to the system pack 
(DVC RES) to file $Y$SRC (LBL $Y$SRC). 


Line 10 loads and executes auto report from $Y$LOD. 
Line 11 indicates the start-of-data. 


Lines 12 through 14 represent the source deck that contains the source language 
statements for the program to be compiled. 
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Line 15 indicates end-of-data. 

Line 16 indicates end-of-job. 

Line 17 causes the card reader (job control stream reader) to stop reading cards. 

18.2.2.2. Using the AUTO Job Control Procedure Call that Defines Keyword 
Parameters 

Figure 18-11 shows how you can use the keyword parameters in a job control procedure 

call statement to specify other than the standard default options. In this example, assume 


that the source is to be input from a permanent file; you want to copy several source 
statements from a copy file; and the source is to be output to a permanent file. 


10 


JOB AUTOPO 
PROGNM AUTO IN=(DSC1,AUTSRC), 


1 : COPY1=(DSC1,CPYSRC,CPYINI), 
2 OUTSRC=(DSC1,OUTSRC,AUTOUT) 





FIN 


Figure 18—11. Using the AUTO Job Control Procedure Call Statement with Nonstandard Options 


In Figure 18-11, line 1 indicates that the job name is AUTOPO. 


Line 2 indicates that the procedure AUTO is being called, with source located on volume 
(VOL) DSC1 in file (LBL) AUTSRC. The element (program) name is the tag PROGNM. 


Line 3 indicates that copy statement will obtain its input from volume (VOL) DSC1 having 
file (LBL) CPYSRC. The logical file descriptor (LBL) is CPYIN1. 


Line 4 indicates source is to be output to volume DSC1 in file (L.BL) OUTSRC and logical 
file descriptor of AUTOUT. This information should correspond to information given in 
columns 8-24 of the auto report (U) specifications form. See 19.5.1.2. 


Line 5 indicates the end-of-job. 


Line 6 causes the card reader (job control stream reader) to stop reading cards. 
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Figure 18-12 shows the job control statements that are generated by the entries. 


JOB AUTOPO 
DVC 20 // LFD PRNTR 
DVC RES 

EXT $T,C,3,CYL,1 

LBL $SCRI 

LFD $SCR1 

DVC 50 // VOL DSC1 
LBL OUTSRC 

LFD AUTOUT 

DVC 50 // VOL DSC1 
LBL AUTSRC 

LFD INFILE 

DVC 50 // VOL DSC1 
LBL CPYSRC 

LFD CPYINI 

DVC RES 

LBL $Y$SRC 

LFD Fl 

EXEC AUTO#,$Y$LOD 
PARAM IN=PROGNM, INFILE 
/& 

FIN 





co nN OD Om SP WH DY 





Figure 18—12. Job Control Statements Generated by the AUTO Procedure Gall Statement with Nonstandard Options 


In Figure 18-12, line 1 indicates that the job name is AUTOPO. 
Line 2 indicates the default logical unit number and LFD name of the printer. 


Lines 3 through 6 indicate that the first work file needed for compilation is, by default, on 
the SYSRES device; has both a file identifier and LFD name of $SCR1; uses the system 
access technique; and that the allocation is contiguous, with three cylinders allocated for 
the secondary increment and one cylinder allocated for the first extent. 





Lines 7 through 9 indicate the DVC-LFD sequence for the permanent file where the output 
source will be written. The volume (VOL) is DSC1, the file (LBL) is OUTSRC, and the LFD 
name is AUTOUT. 


Lines 10 through 12 indicate the DVC-LFD sequence for the file containing the input 
source. The volume (VOL) is DSC1, the file (LBL) is AUTSRC, and the LFD name is INFILE. 


Lines 13 through 15 indicate the DVC-LFD sequence for the file containing statements to 
be copied. The volume (VOL) is DSC1, the file (LBL) is CPYSRC, the file (LBL) is CPYSRC, 
and the LFD name is CPYIN1. 
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Lines 16 through 18 indicate that the generated source is also output to the system pack 
(DVC RES) to file $Y$SRC (LBL $YS$SRC). 


Line 19 loads and executes auto report from $Y$LOD. 


Line 20 indicates that input source is in the file having an LFD name of INFILE with 
element name PROGNM. 


Line 21 indicates the end-of-job. 


Line 22 causes the card reader (job control stream reader) to stop reading cards. 


18.2.2.3. Using the AUTRPG Job Control Procedure Call Statement 


Figure 18-13 shows how you can use the AUTRPG job control procedure call to run auto 
report and to do an RPG II compilation of the generated source. 


| // JOB AUTCMP 
| // AUTRPG 
1 /$ 


source deck 





Figure 18—13. Using the AUTRPG Job Control Procedure Call Statement 


In Figure 18-13, line 1 indicates the name of the job is AUTCMP. 
Line 2 indicates that the procedure AUTRPG is being called. 
Line 3 indicates start-of-data. 


Lines 4 through 6 represent the source deck that contains the source language statements 
for the program to be compiled. 


Line 7 indicates the end-of-data. 
Line 8 indicates the end-of-job. 


Line 9 causes the card reader (job control stream reader) to stop reading cards. 
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Figure 18-14 shows the job control statements that are generated by the entries in Figure 
18-13. 


JOB AUTCMP 

DVC 20 // LFD PRNTR 
DVC RES 

EXT ST,C,3,CYL,1 
LBL $SCR1 

LFD $SCR1 

DVC RES 

LBL $Y$SRC 

LFD F1 

EXEC AUTO#,$Y$LOD 


OONAURWD 


- source deck 


DVC RES 

EXT ST,C,3,CYL,1 

LBL $SCR1 // LFD $SCR1 
DVC RUN 

EXT ST,C,3,CYL,1 

LBL $SCR2 // LFD $SCR2 
EXEC RPGII 

PARAM IN=RPGSRC/$YSSRC 





FIN 





Figure 18—14. Job Control Statements Generated by the AUTRPG Procedure Call Statement 


In Figure 18-14, line 1 indicates the name of the job is AUTCMP. 

Line 2 indicates the default logical unit number and LFD name of the printer. 

Lines 3 through 6 indicate that the first work file needed for compilation is, by default, 
on the SYSRES device; has both a file identifier and LFD name of $SCR1; uses the 
system access technique; and that the allocation is contiguous, with three cylinders 


allocated for the secondary increment and one cylinder allocated for the first extent. 


Lines 7 through 9 indicate the DVC-LFD sequence to output generated source to the 
system pack (DVC RES) to file $Y$SRC (LBL $Y$SRC). 


Line 10 loads and executes auto report from $Y$LOD. 





Line 11 indicates start-of-data. 
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Lines 12 through 14 represent the source deck that contains the source language 
statements for the program to be compiled. 


Line 15 indicates the end-of-data. 


Lines 16 through 18 indicate the job control language for the first work file needed for 
RPG Il compilation. 


Lines 19 through 21 indicate the second work file needed for RPG II compilation. 

Line 22 loads the RPG Il compiler from $Y$LOD. 

Line 23 indicates the source input will be from $Y$SRC with element name of RPGSRC. 
Line 24 indicates end-of-job. 


Line 25 causes the card reader (job control stream reader) to stop reading cards. 


18.2.3. Using the EXEC and PARAM Job Control Statements 


As mentioned before, instead of using the job control procedure call statements (RPG, 
RPGL, RPGLG, AUTO, AUTRPG, AUTRPGL, and AUTRPGLG) to compile, link-edit, and 
execute your program, you can write all the job control statements for each job step. This 
can be time-consuming because of the effort required to write the individual statements. 
With this method, you must use the EXEC and PARAM job control statements. The EXEC 
statement identifies the name of the load module and can optionally specify the library 
that contains the load module as well as the task-switching priority. The PARAM 
statement introduces processing options; it must immediately follow the EXEC statement. 


Format: 


//{symbolt] PARAM [IN=program name/Ifdname ]} 
.OUT={Ifdname 
(N) 
(1) 


(LST= 


»MOD= 


Pw nee 


5 
I RAM 


{.COL=7] 


Reais OCR acls Bs eat bau | 
ALL 


[, SKI P=C] 
[, ERRFllL=module-name/ifdname ] 
[, CONSOLE=I fdname ] 
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Label: 


symbol 
Specifies the 1- to 6-character label. 


Operation: 
PARAM 
A job control statement used to introduce processing options. The operands are 
the variable information you want to introduce into the job. 


Keyword Parameter IN: 


Specifies the program name and Ifdname when the source code is input from a disk 
file. 


IN=program name/tfdname 
Identifies the source program and the disk file it resides on. 


If omitted, the source input is in the form of embedded data cards (/$, source deck, 
/*) in the job control stream. 


Keyword Parameter OUT: 
Specifies the output file definition. The options are: 
OUT=filename 
Specifies that the file name contains the generated object module. The default 


file name is $SYSRUN. 


OUT=(N) 
Specifies that an object module is not to be produced. 


OUT=(1) 
Do not generate embedded linkage editor control statements in the RPG II object 
module. No overlay structure is generated for the load table or dump table file. 
If omitted, the object module is located on the job’s $Y$RUN file. 
Keyword Parameter LST: 


Specifies the format of the compiler listing. The options are: 


LST=K 
Do not print error flags for sequence errors. 


LST=M 
Do not print the source language statements and error messages. 


LST=N 
Do not print any listings. 


LST=S 
Do not print the main storage map. 
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If omitted, the complete compiler listing is printed. 
Keyword Parameter MOD: 


Specifies that the program is to be compiled in the IBM System/3-System/34 mode 
or that, if the program is to be compiled in one of the other compilation modes, IRAM 
is to be used to process all disk files in a Series 90 environment and MIRAM is to be 
used in a System 80 environment. 


MOD=3 
The program is to be compiled in the IBM System/3-System/34 mode. When 
this mode is specified, IRAM or MIRAM will be used to process all disk files. 
Also, the logical file definition (7/7 LFD) for printer files is changed to PRNTR, 
PRNTR1...PRNTRn and the contro! reader (CTLRDR) is used for card input even 
though the data management reader (READER) is specified. 


MOD=4 
Same as MOD=3 except that the printer files are generated with the same 


names as used in the program and reader files use the data management reader 
(READER). 


MOD=5 


The program is to be compiled in the IBM System/3-System/34 mode with 
the ISAM, SAM, or DAM processors accessing the disk files. 


MOD=IRAM 
IRAM is to be used to process all disk files. 


If omitted, the program is compiled in OS/3 native mode. 


Keyword Parameter COL: 


Specifies that compile time tables can begin in position 7 rather than in position 1. 


COL=7 
Enables the user to carry sequence numbers in columns 1-5 for each statement 
in the RPG source program. The OS/3 librarian can then be used to maintain 
disk file source for RPG programs that contain compile time tables. 


If omitted, compile-time tables begin in position 1. 
Keyword Parameter MIRAM: 


When operating under the mixed Series 90 environment, this parameter designates 
which disk files use MIRAM. Those disk files not mentioned use Series 90 data 
management only. All other files, such as card or tape, use System 80 data 
management and need not be specified here. 


MERAM=(fdnamel,..., lfdname2@ 
The file name is a disk file using MIRAM. 


MIRAM=ALL 
All disk files use MIRAM. 


UP-8067 Rev. 6 SPERRY UNIVAC OS/3 18-34 
RPG Il Update C 





Keyword Parameter SKIP: 


Specifies that auto report will skip the printer to channel numbers (vertical format 
buffer) for the printer output specifications. 


SKIP=C 
Skips the printer to channel numbers for the printer output specifications. 


If omitted, auto report generates skips to line numbers. 


Keyword Parameter ERRFIL: 


Specifies that error diagnostic messages are written to a file that is accessed by 
the error file processor. When you specify this parameter, along with the necessary 
// DVC...// LFD statements, error records are created for every error note 
generated by the compiler. 


ERRFIL=module-name/Ifdname 
The module name is the name assigned to the error by the file element being 
created by the compiler. The module name may be from 1 to 8 characters in 
length and it doesn’t need to match or be related to the RPG II source or object 
module name. The Ifdname is the logical file name of the error log file and can 
be from 1 to 8 characters in length. 


if omitted, the error file is not created. 
Keyword Parameter CONSOLE: 


Specifies that the file is a CONSOLE (interactive data entry) file and not a system 
console file. 


CONSOLE=L fdname 
The Ifdname is the name of the CONSOLE file. 


If omitted, the file is a system console file and not an interactive data entry file. 
Keyword Parameter PROGID: 


Specifies that auto report does not generate a program identification in columns 75 
through 80 of the generated source. 


PROGID=N 
No program identification is generated. 


If omitted, the program identification on the control specification is generated in all 
source output. 


Figure 18-15 shows how you can use the EXEC and PARAM statements to compile, 
link-edit, and execute an RPG Il program. 
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JOB RPGPARAM 

DVC 26 // LFD PRNTR 
WORK1 

WORK2 

EXEC RPGII 

PARAM LST=N 


source deck 


WORK1 
EXEC LNKEDT 


LOADM load-module-name 
INCLUDE program-name 


device assignments 
for your program 


EXEC load-module-name 


FIN 





Figure 18—15. Using the EXEC and PARAM Job Control Statements 


In Figure 18-15, line 1 indicates the name of the job is RPGPARAM. 

Line 2 indicates the default logical unit number and LFD name of the printer. 

Lines 3 and 4 indicate temporary work files used to store intermediate processing results. 
Line 5 loads the RPG I! compiler from $Y$LOD. 

Line 6 indicates no listings will be printed. 

Line 7 indicates start-of-data. 


Lines 8 through 10 represent the source deck that contains the source language 
statement to be compiled. 


Line 11 indicates end-of-data. 


Line 12 indicates a temporary work file used to store intermediate processing results. 
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Line 13 creates the load module. 

Line 14 indicates start-of-data. 

Line 15 assigns the load module name. 

Line 16 informs the linkage editor which object modules will comprise the load module. 
Line 17 indicates end-of-data. 


Lines 18 through 21 represent the job control statements that assign the input/output 
devices and allocate the file space required to execute your program. 


Line 22 executes the load module (your program). 
Line 23 indicates end-of-job. 


Line 24 causes the card reader (job control stream reader) to stop reading cards. 


For job control used with auto report: 


# If auto report retrieves the source program for input from a library file (MIRAM or 
SAT) on disk, use the PARAM IN job control statement to identify the source program 
(module name) and the disk file it resides on: 


// PARAM IN=program name/|fdname 


= (If auto report retrieves the source program for input from an embedded data file in 
the job control stream, don’t use the PARAM IN job control statement. Instead, embed 
the source program in the job control stream as a data file and delimit it with the /$ 
and /* job control statements: 


/$ 
source program 
sp 
= Use the PARAM SKIP job control statement to control how auto report will generate 
the skips to channel numbers for the program printer file: 


// PARAM SKIP=C 


m Use the PARAM ERRFIL=module-name/Ifdname job control statement to create an 
error file to be read by the error file processor. When you specify this parameter along 
with the necessary // DVC...// LFD statements, error file records are created for every 
diagnostic output by auto report. The module name is the name assigned to the 
element being created by auto report. The module name may be from one to eight 
characters in length. The Ifdname is the logical file name of the error file and can be 
from one to eight characters in length. 
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// PARAM ERRFIL=module-name/|ifdname 


= Use the product name of AUTO# for auto report on the EXEC job control statement: 


// EXEC AUTO# 


= Use one work file: 
// WORKI 

# Use a line printer device (with or without spooling) for auto report output listings: 
// DVC 28 // LFD PRNTR 


= Optionally, use a disk or diskette for library files that contain source and copy input to 
auto report, as well as source output from auto report. 


The following job control stream in Figure 18-16 uses the EXEC and PARAM statements 
to execute auto report with embedded data, then compiles, link-edits, and executes RPG II 
using the RPGLG jproc: 


// JOB name, ,DO8H, ,DHHD 
// DVC 28 // LFD PRNTR 
// WORKI 
[optional DVC...LFD device assignment set for /COPY statement files 
auto report input] 
[optional DVC...LFD device assignment set for saved source program -- 
auto report output] 
// EXEC AUTO# 
// PARAM SKIP=C 
/$ 


auto report source input (on cards) 


y* 
[optional DVC...LFD device assignment sets for object program 
execution files} 
//RPGSRC RPGLG IN=(RES) 
/& 
// FIN 
// DATA FILEID=file-identifier 


data cards 


/* 
// FIN 





Figure 18—16. Using the EXEC and PARAM Job Control Statements with Auto Report (with Input on Cards) 
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In Figure 18-16, line 1 indicates the name of the job. You need a minimum of 50K bytes 
of main storage. 


Line 2 indicates the printer device needed for auto report. 

Line 3 indicates the work file needed for auto report. 

Lines 4 and 5 indicate optional assignment sets needed for auto report input and output. 
When you don’t designate a saved source file, the default is the RPGSRC program stored 
in $Y$SRC. 


Line 6 executes auto report. 


Line 7 indicates that auto report will generate skips to channel numbers for the printer 
file. 


Line 8 indicates start-of-data. 

Line 9 represents the source deck that contains the auto report specifications. 

Line 10 indicates end-of-data. 

Line 11 indicates optional assignment sets needed for object program execution files. 


Line 12 indicates that the RPG I! job control procedure RPGLG is being called. It compiles, 
links, and executes the RPGSRC program from $Y$SRC. 


Line 13 indicates end-of-job. 

Line 14 causes the card reader to stop reading cards. 

Line 15 indicates that the input card data will be spooled. 

Line 16 represents the data cards. 

Line 17 indicates end-of-data. 

Line 18 causes the card reader to stop reading cards. 

The following job control stream in Figure 18-17 uses the EXEC and PARAM statements 


to execute auto report with source input from diskette, then compiles, link-edits, and 
executes RPG Il using the RPGLG jproc: 
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// JOB name, ,D809, ,DBHD 
// DVC 28 // LFD PRNTR 
// WORKI 
// DVC 138 // VOL OS3DTA // LBL SRCLIB // LFD SRC 
[optional DVC...LFD device assignment set for /COPY statement files 
auto report input] 
[optional DVC...LFD device assignment set for saved source program -- 
auto report output] 
// EXEC AUTO# 
// PARAM SKIP=C 
// PARAM INPUT=PG/SRC 
[optional DVC...LFD device assignment sets for object program 
execution files] 
7/RPGSRC RPGLG IN=(RES) 
/& 
// FIN 
// DATA FILEID=file-identifier 


data cards 





Figure 18—17. Using the EXEC and PARAM Job Control Statements with Auto Report (with Input on Diskette) 


In Figure 18-17, line 1 indicates the name of the job. You need a minimum of 50K bytes 
of main storage. 


Line 2 indicates the printer device needed for auto report. 

Line 3 indicates the work file needed for auto report. 

Line 4 indicates source input coming from diskette. 

Lines 5 and 6 indicate optional assignment sets needed for auto report input and output. 
Line 7 executes auto report. 


Line 8 indicates that auto report will generate skips to channel numbers for the printer 
file. 
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Line 9 indicates source LFD is SRC and the element or program name is PG. 
Line 10 indicates optional assignment sets needed for object program execution files. 


Line 11 indicates that the RPG II job control procedure RPGLG is being called. It compiles, 
links, and executes the RPGSRC program from $Y$SRC. 


Line 12 indicates end-of-job. 

Line 13 causes the card reader to stop reading cards. 
Line 14 indicates that the input card data will be spooled. 
Line 15 represents the data cards. 

Line 16 indicates end-of-data. 

Line 17 causes the card reader to stop reading cards. 
NOTE: 


For information about auto report job control procedure call statements, see 18.2.2. 


18.2.4. Input Deck Sequence 


Figure 18-18 shows the input sequence of job control statements, RPG II source 
statement specifications, and source input data. You must arrange your deck in the 
order shown. Job streams containing calls on RPG Il or auto report job control 
procedures have references to volume serial numbers that are assigned DVC numbers 
from 50 to 59. 


18.3. MAIN STORAGE REQUIREMENTS 


The RPG II compiler requires a minimum of 24,064 (hexadecimal 5E00O) bytes of main 
storage. It is recommended, however, that you use 32,768 (hexadecimal 8000) bytes for 
compilation. If you use the minimum amount of main storage, there is the possibility that 
your program will not be compiled when using tables or arrays because the symbol table 
requires additional space. If there is insufficient space for the symbol table, the 
compilation takes longer. 


If your program was originally compiled with the error analysis dump option requested (a 
D in column 8 of the control card specifications form), to save main storage you should 
compile your program without the error analysis dump option (column 8 is left blank on 
the control card specifications form). By doing this, you will save considerable main 
storage space during the execution of your program; that is, if the error analysis dump 
option request remains in your program, an additional 5632 (hexadecimal 1600) bytes of 
main storage will be required. 














UP-8067 Rev. 6 SPERRY UNIVAC OS/3 18-41 
RPG Il 


















EXECUTION 
#* END-OF-DATA 
fp" Input DATA 
=x OR ARRAYS 
LOADED AT 
EXECUTION TIME 
i$ START-OF-DATA 
LINK EDITING 
COMPILATION 





Axx OR ARRAYS 


LOADED AT 
COMPILATION TIME 


L ALTERNATE 


COLLATION SEQUENCE 
SPECIFICATIONS 









FILE TRANSLATION 
SPECIFICATIONS 









CALCULATION 
SPECIFICATIONS 





TELECOMMUNICATIONS 
SPECIFICATIONS 


LINE COUNTER 
SPECIFICATIONS 














SOURCE DECK 





FILE EXTENSION 
SPECIFICATIONS 





AUTO REPORT OPTIONS 
SPECIFICATIONS FORM 


NOTE: 


Shaded cards required. 


Figure 18—18. Deck Arrangement for Compiling, Link Editing, and Execution 
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18.4. DEVICE INDEPENDENCE 





In a System 80 environment, you can change from one device to another at program 
execution time without recompiling the RPG II program. The only factor that prohibits 
changing devices is the record size. For example, suppose that on your file description 
specifications form you choose a card reader to supply input. Later, you decide on a disk 
for input. To do this, merely change the device unit number in your job control stream 
from 30 (a card reader) to 50 (a disk) at program execution time. You need not change 
your file specifications form or recompile the program. You cannot change from a disk to a 
card reader, however, since the record size on a disk is probably more than 80 bytes, the 
limit of a card reader. 


If your computer environment is partially System 80 and partially Series 90, you can still 
attain device independence. However, in addition to differences in record size, conflicting 
record formats also prohibit device independence. For example, if you wish to change from 
a disk, which has records organized indexed sequentially, to a tape, you would have 
problems because a tape receives records sequentially. Device independence is not 
available in a strictly Series 90 environment. 








PART 6. AUTO REPORT 
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19. Auto Report 


19.1. GENERAL 


Auto report is a simple way for you to produce printed reports that contain page headings, 
column headings centered over fields, and accumulated totals. It is a stand-alone product 
that operates before the execution of the RPG I! compiler. 


The auto report precompiler creates an auto report source module and then the RPG Il 
compiler uses that source module to create an RPG Il object module. Auto report 
statements are entered on the output format specifications form. They replace other output 


specifications. 


You specify the simple and easy-to-use auto report statements along with your standard 
RPG Il source program. These auto report statements generate standard RPG Il 
specifications and can copy standard RPG Il specifications from a library file. The generated 
or copied specifications are combined with the RPG II specifications for your source program 
by auto report to produce a final RPG II source program. The RPG II compiler then executes 
this complete source program to produce a well-formatted report. 


Even if you are an inexperienced programmer, you can easily code a program to print a 
simple report. If you are an experienced programmer, you can code programs faster. Auto 
report frees you from coding the same specifications in different programs, planning the 
format of reports, and coding specifications that accumulate totals for numeric fields. 


In addition, auto report reduces the time it takes you to plan and code RPG II programs. 
Since auto report is so easy to use, you make fewer errors, which reduces debugging time. 


Auto report operates in the minimum processing environment. It needs 50K bytes for 
execution. 


There are five auto report specifications: 
1. H-*AUTO 
This specification gives you a simple way to print page headings. 


You enter H-*AUTO specifications on the output format (O) specifications form. 
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2. D-*AUTO é 


This specification gives you a simple way to print a detail report that has a line 
printed for each individual record that is read. A detail report can also accumulate and 
print subtotals and a final total for numeric fields. 
You enter D-*AUTO specifications on the output format (O) specifications form. 
3. T-*AUTO 
This specification gives you a simple way to print a total report that has lines printed 
only for totals. There are no detail lines. In other words, data is summarized for a 
group of input records and only totals are printed on the report. You can specify 
subtotals with a final total or a final total only. A line is not printed for each individual 
record that is read but only after a complete control group is read. 
You enter T-AUTO specifications on the output format (O) specifications form. 
4. Auto Report Options Specifications Form (U in Column 6) 


This form gives you a simple way to obtain these auto report options: 


= Cataloging the generated source program into a library file on disk 





= Suppressing the generated date and page number so they aren't printed 
= Suppressing asterisks so they aren’t printed next to the generated totals 


= =§=©Suppressing an auto report source listing that contains specifications copied from 
the library file, the generated specifications, the standard RPG Il specifications, 
and error messages 


You enter the auto report options on the auto report options specifications form (U in 
column 6). When you use this specifications forms it must be the first specification in 
the program. 


5. /COPY 


This statement gives you a simple way to copy cataloged RPG II specifications from a 
library file on disk and insert them into your RPG II source program. You can also use 
/COPY modifier statements to modify file description and input field specifications as 
they are copied from the library file. 


You can enter the /COPY statement on any specifications form except the control 
card (H) or auto report options (U) specifications form. 


You enter the /COPY modifier statements on either the file description (F) or input 
format (I) specifications form. 
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Figure 19-1 summarizes the auto report function. 

Auto report provides the following facilities: 

= Retrieval of source input from a disk library file or from the job control stream 

= Storage of the generated source program module in the system resident file $Y$SRC 
(with the module name RPGSRC) and optionally in a specified disk library file (with 


the program name as the module name) 


=» §6Printing of requested listings of the original source program, the generated source 
program, and error messages 


= Retrieval of input from one or more disk files by the /COPY statement 


Auto report runs in background (nonconversationa!) mode with initiation and termination 
messages displayed to the originating workstation and to the job log. 


| AUTO REPORT FUNCTION 





AUTO REPORT SPECIFICATIONS: | 
H-*AUTO 
D-*AUTO 
GENERATED RPG II 
T-*AUTO SPECIFICATIONS 


/COPY 


FINAL RPG | 
AUTO REPORT OPTIONS : SOURCE 
SPECIFICATIONS FORM (U) PROGRAM 


RPG ll 


COMPILER 





STANDARD RPG II 
SPECIFICATIONS 


Figure 19—1. Auto Report Function 


19.2. H-*AUTO PAGE HEADINGS 


You use the H-*AUTO specification on the output specifications form to print a page 
heading at the top of every page of a report. This page heading can contain a date, page 
number, and title. 


You can use up to five H-*AUTO page headings if you want a page heading that has more 
than one line. If you specify both standard RPG Il heading lines and H-*AUTO page 
headings, they are printed in the order you use them in the output specifications. You can 
specify H-*AUTO page headings for only one printer file per program. 
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The standard RPG II output specification form is used for two types of entries: output & 
file identification (columns 7 through 31) and field description (columns 23 through 70). 

H-*AUTO specifications have the same two types of entries, but their use is not the 

same. 


19.2.1. Output File Identification and Control Entries (Columns 7 through 37) 


You specify an H in column 15 and *AUTO in columns 32 through 36 for an auto report 
output file identification. This indicates that the report contains a page heading. You can 
follow it with one or more field descriptions that specify a title or other information for the 
report. You use each output file identification to specify a separate page heading line. 


Figure 19-2 illustrates the H-*AUTO output file identification. 





Figure 19—2. H-*AUTO Output File Identification 





19.2.1.1. File Name (Columns 7 through 13) 
You use this field to specify the name of the printer file that prints the report. 


Enter the name of the printer file. You only need to specify a file name on the first output 
file identification for a file. The file name can be up to seven characters in length. See 


5.2.1 for more explanation. 
NOTE: 


The file name can be eight characters long. 


19.2.1.2. Type (Column 15) 
You use this field to indicate that you want a report that contains a page heading. 


Enter an H in column 15 and *AUTO in columns 32 through 36. You can use up to five H- 
*AUTO specifications for one output file. 


The first H-*AUTO specification you specify generates a page heading consisting of a date, 
a page number, and, optionally, a title: 
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1. Generated date 


The date generated by H-*AUTO is left-justified in print positions 1 through 8. The 
format of the date is determined by the date option on the control specifications form 
and UDATE on the output specifications form. 


if you want to suppress the date on the first page heading, enter an N in column 27 
on the auto report options specifications form. 


2. Generated title (optional) 
For an explanation of the title, see 19.2.2.1.1. 


3. Generated page number 


The page number generated by H-*AUTO is right-justified and follows the word 
PAGE. It is four digits in length, zero-suppressed, and printed with an end position 
that is the same as the highest end position of the longest line in the report. 


For page numbering, auto report uses an unused PAGE field (PAGE, PAGE1-PAGE7). 


If you have already used all the PAGE fields in the program, auto report doesn’t 
number the pages. 


lf you want to suppress the page number on the first page heading, enter an N in 
column 27 of the auto report option specifications form. 


PRINT POSITION 1 HIGHEST END POSITION IN REPORT 


81/18/80 





19.2.1.3. Space (Columns 17 and 18) 


You use this field to control the spacing of page headings. When you want auto report 
to automatically use one blank line after each single page heading line, leave these 
columns blank. When you use more than one page heading line, auto report uses a 


single space after each page heading line except the last, which is followed by a double 
space: 








FIRST PAGE HEADING LINE 
SECOND PAGE HEADING LINE 


BODY OF REPORT 





SINGLE SPACE 01/15/88 REPORT 
FOR THE YEAR 
DOUBLE SPACE 
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When you want to specify other spacing values for page headings, enter them in these & 
columns. See 8.2.6 for rules about spacing. 


The following example shows the use of a space entry and the resulting printed report: 


RPG II 
SPERRY<>UNIVAC OUTPUT FORMAT SPECIFICATIONS 


OATE Ws PAGE OF PAGES 








PROGRAM PROGRAMMER 











CODES 
NEGATIVE VALUE. RDICATION Roetuped eatance ies REMOVE 
PLUS SIGN. 
— EDIT DATE 
x FIELO 
t z ZERO 
1 nO SUPPRESS 











CONSTANT OR EDIT WORD 








* AU,LT.O eT Oe 0 keys Os ao Oa rae Per ea 


FO ae ed UW 1 











OUTPUT FILE 
IDENTIFICATION NO ENTRY IN COLUMNS 17 AND 18 


DOUBLE SPACE 





H-*AUTO 
PAGE 
HEADING 


81/15/88 







D/T-*AUTO 
BODY OF 
REPORT 


DOUBLE SPACE 


19.2.1.4. Skip (Columns 19 through 22) 
You use this field to control skipping of page headings. 


When you want auto report to automatically skip the printer to the home position before 
the first page heading line is printed, leave these columns blank. 


When you want to specify other skipping values for page headings, enter them in these 
columns. See 8.2.7 for rules on skipping. 
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The following example shows you the use of a skip entry and the resulting printed report: 


RPG Il 
OUTPUT FORMAT SPECIFICATIONS 


PAGE OF PAGES 


SPERRY<>UNIVAC 


PROGRAM 





PROGRAMMER DATE 













STACKER SELECT/ 
F-FETCH OVERFLOW 













OUTPUT INDICATORS. 





COMMAS 
INSERTED 



















END 








EDIT DATE 
FIELO. 











POSITION 
1N 














ouTPUT 
RECORD 





@ 6 GLANK AFTER 






CONSTANT OR EDIT WORD 


ZERO 
SUPPRESS 





PROGRAM 
IDENTIFICATION 








FS a Oa OO Gn 


pa Ps pout o 





























HHH 


NO ENTRY IN COLUMNS 19 THROUGH 22 


PRINTER SKIPS TO LINE 6 BEFORE PRINTING PAGE HEADING 


Om f& WR e 


61/15/88 





19.2.1.5. Output Indicators - Records (Columns 23 through 31) 


You use this field to specify output indicators that condition the printing of the page 
heading generated by the first H-*AUTO specification. The page heading is printed only 
when the conditions set by the indicators are met. 


if you don’t want to specify an output indicator, leave these columns blank. 


If you specified a title in columns 45 through 70 of the field description, auto report 
generates a first page or overflow output indicator and this conditions the page heading. 
Because of this, the page heading is printed at the top of each page or when an overflow 
condition occurs. 
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if you specified an overflow indicator on the file description specification for the printer file, 
the generated page heading is conditioned by that indicator. If you didn’t specify an overflow 
indicator, auto report defines an unused overflow indicator for the printer file on the file 
description specification and the line is conditioned by that indicator. 

If you specified the name of a field, table, or array in columns 32 through 37 of the field 
description, auto report generates an N1P output indicator and this conditions those fields. 
The N1P output indicator prevents the field, table, or array from being printed on the first 
page. If it were printed on the first page, the field would probably contain meaningless 
data because the first record hasn't been read. Auto report will not generate N1P if you 
enter the following special field names in columns 32 through 37 of the field description: 


PAGE 
PAGE1 
PAGE2 
PAGE3 
PAGE4 
PAGES 
PAGE6 
PAGE7 
UDATE 
UDAY 
UMONTH 


UYEAR 
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If you want to specify an output indicator to condition the printing of the first H-*AUTO 
page heading, enter it in columns 23 through 31. You can specify output indicators on 
other H-*AUTO specifications or you can leave the output indicator columns blank, in 
which case auto report handles them like the first specification. You can use AND or OR if 
you specify an output indicator on the first H-*AUTO specification. See 8.2.8 for 
information about output indicators. 


The following example shows you the use of an output indicator entry: 
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19.2.1.6. *AUTO (Columns 32 through 37) 
You use this field to indicate an auto report that contains a page heading. 


Enter *AUTO in columns 32 through 37 and an H in column 15. 


19-10 


SPERRY UNIVAC OS/3 
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19.2.1.7. Examples of Entries on H-*AUTO Output File Identification 


RPG Il 
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PAGES 


Figure 19-3 illustrates the most basic output identification for a page heading: 
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Figure 19—3. Examples of Entries on H-*AUTO Output File Identification 
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19.2.2. Field Description and Control Entries (Columns 32 through 70) 


You can follow the H-*AUTO output file identification with one or more field descriptions. 
Each of the following field descriptions allows you to format the page heading in the way 
you want: 


= A field description that prints a title on the page heading (blanks in columns 32 through 
37 and title in columns 45 through 70) 


# A field description that prints a field on the page heading (field name in columns 32 
through 37) 


Figure 19-4 illustrates the functions of the H-*AUTO field descriptions. 


PAGE NUMBER 





BLANK IN COLUMNS 32 THROUGH 37 AND ENTRY IN COLUMNS 32 THROUGH 37 
TITLE IN COLUMNS 45 THROUGH 70 


a. H-*AUTO specifications 


01/18/89 REPORT 13 





b. Example of printed report 


Figure 19—4. H-*AUTO Field Descriptions 
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19.2.2.1. Field Description that Prints a Title on the Page Heading (Blanks in Columns eS 
32 through 37 and Title in Columns 45 through 70) 


You use this field description to print a title (constant) on the page heading line. 


Figure 19-5 illustrates the H-*AUTO field description that has blanks in columns 32 
through 37 and a title in columns 45 through 70. 


BLANK BLANK BLANK BLANK BLANK BLANK BLANK 





Figure 19-5. H-*AUTO Field Description (Blanks in Columns 32 through 37 and Title in Columns 45 through 70) 


19.2.2.1.1. Title (Columns 45 through 70) 
You use this field to print the title (constant) on the page heading. 


When you want the page heading to contain only the date and page number but no title, 
leave this field description blank. 





When you specify a title, you must leave all the other fields on the field description blank. 
You must enclose the title within apostrophes. No spaces are provided within a title - you 
must incorporate spaces within it to provide for additional spacing. 


The placement of the title depends on which is longer, the page heading or the lines 
generated by D-*AUTO or T-*AUTO specifications. 
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When the page heading is longer than the lines generated by D-*AUTO or T-*AUTO, one 
blank space separates the date from the title and the title from the word PAGE: 


01/18/89 TITLE PAGE 1 61/18/86 ANNUAL COMPANY REPORT PAGE 1 <~_ 





AT LEAST ONE SPACE 


If the page heading is shorter than the lines generated by D-*AUTO or T-*AUTO 
specifications, the D or T line begins in print position 1 and the title is centered above it: 


CENTERED 










91/18/88 TITLE PAGE 1 61/18/88 ANNUAL REPORT 


LINES GENERATED FROM D-*AUTO SPECIFICATION 


— 
— 
aa eemeeneeeemd 


PRINT POSITION 1 
If you specify more than one page heading line, the shorter page headings are centered on 
the longest page heading line. 


if the page heading is longer than the record length you specified for the printer file, the 
characters on the right are truncated. There is no overflow line. 
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19.2.2.1.2. Examples of Entries on H-*AUTO Field Description (Blanks in Columns 
32 through 37 and Title on Columns 45 through 70) 


Figure 19-6a illustrates a report with a page heading that contains a title. Figure 19-6b 
illustrates a report with a title that has a second line: 
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a. Report with a page heading that contains a title 


Figure 19—6. Examples of Entries on H-*AUTO Field Description (Blanks in Columns 32 through 37 and Title in 
Columns 45 through 70) (Part 1 of 2) 
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b. Page heading with a multiple-line title 


Figure 19—6. Examples of Entries on H-*AUTO Field Description (Blanks in Columns 32 through 37 and Title in 
Columns 45 through 70) (Part 2 of 2) 
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19.2.2.2. Field Description that Prints a Field on the Page Heading (Field Name in 
Columns 32 through 37) 


You use this field to print a field on the page heading line. 


Figure 19-7 illustrates the H-*AUTO field description that has a field name in columns 32 
through 37. 


BLANK BLANK FIELD NAME 


Figure 19—7. H-*AUTO Field Description (Field Name in Columns 32 through 37) 


COLS: 


45-70 























BLANK OR | BLANK 
EDIT OR BLANK BLANK bleotpiett 
CODE B 


19.2.2.2.1. Field Name (Columns 32 through 37) 


You use this field to specify the name of a field, an indexed array, or a table. The 
associated field, array, or table value is printed on the page heading. 


When you specify more than one name, the fields are printed from left to right on a line in 
the order you specify. At least two spaces are inserted between each field on a line. 


The following example shows you the use of a field name entry and the resulting printed 
report: 
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19.2.2.2.2. Edit Codes (Column 38) 


You use this field to enter an edit code for a numeric field, indexed array, or table you 
named in columns 32 through 37. 


If you specified an alphanumeric field, table, or indexed array in columns 32 through 37, you 
must leave this column blank. You should also leave this column blank if you don’t want to 
use an edit code. 


lf you named a numeric field, indexed array, or table in columns 32 through 37, you can 
enter an edit code. When you specify an edit code, you must leave columns 45 through 70 
blank unless you use asterisk protection or a floating dollar sign. 


The following example shows you the use of an edit code entry and the resulting printed 
report: 
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19.2.2.2.3. Blank After (Column 39) 


You use this field to indicate that you want to reset an alphanumeric field to blanks after it is 
printed and a numeric field to zeros after it is printed. 


If you don’t want to reset an alphanumeric field to blanks or reset a numeric field to zeros, 
leave this column blank. 


if you want to reset the field to blanks or zeros, enter a B. 


19.2.2.2.4. Edit Word (Columns 45 through 70) 
You use this field to edit numeric fields that you want printed on the page heading. 


If you specified an edit code in column 38, you must leave these columns blank. Also, leave 
these columns blank if you don’t want to specify an edit word. 


If you want to edit the field, enter an edit word. See 14.3.2 for information about edit words. 


The following example shows you the use of an edit word entry and the resulting printed 
report: 
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19.2.2.2.5. Examples of Entries on H-*AUTO Field Description (Field Name in 
Columns 32 through 37) 


Figure 19-8 illustrates a report that has a page heading containing a field. 
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Figure 19—8. Examples of Entries on H-*AUTO Field Description (Field Name in Columns 32 through 37) 
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19.2.2.3. Examples of Entries on H-*AUTO Specifications 


Figure 19-9 illustrates a report that has a page heading containing both a title and a field. 
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b. The printed report 


Figure 19-9. Examples of Entries on H-*AUTO Specifications 
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19.3. D-*AUTO DETAIL REPORTS 

You use the D-*AUTO specification on the output specifications form to print a report that 
can contain both detail lines and total lines. In other words, the report has detail lines 
printed for each individual record that is read and has total lines that accumulate numeric 
totals. 

You can specify the D-*AUTO specification alone or in combination with standard RPG Il 
specifications. You can't use both a D-*AUTO and T-*AUTO specification in the same 
program. You can specify D-*AUTO for only one printer file per program. 

You can also use the D-*AUTO specification to: 

= Print up to three lines of column headings over a field 

= Accumulate several levels of totals 

a Print information next to a total 


a Format the report 


The standard RPG Il output specifications form is used for two types of entries: 
output file identification (columns 7 through 31) and field description (columns 23 
through 70). D-*AUTO specifications have the same two types of entries, but their 
use is not the same. 


19.3.1. Output File Identification and Control Entries (Columns 7 through 37) 


You must specify a D in column 15 and *AUTO in columns 32 through 36 for an auto 
report output file identification. This indicates that the report can contain both detail lines 
and total lines. You must follow output file identification with at least one field description 
that describes when, where, or how the lines are printed. 


Figure 19-10 illustrates the D-*AUTO output file identification. 





Figure 19—10. D-*AUTO Output File Identification 
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19.3.1.1. File Name (Columns 7 through 13) 

You use this field to specify the name of the printer file that prints the report. 

Enter the name of the printer file. The name you specify for this file must be the same 
name you specified on the H-*AUTO page heading if you used one. You only need to 
specify a file name on the first output file identification for a file. 


The file name can be up to seven characters in length. See 5.2.1 for more explanation. 


NOTE: 


The file name can be eight characters long. 


19.3.1.2. Type (Column 15) 


You use this field to indicate that you want a report that can contain both detail lines and 
total lines. 


Enter a D in this column and *AUTO in columns 32 through 36. Remember that you can't 
use both D-*AUTO and T-*AUTO specifications in the same program. 


19.3.1.3. Fetch Overflow (Column 16) 


You use this field to indicate that you want fetch overflow processing. Fetch overflow 
causes overflow processing at this point in the program rather than at the completion of the 
total cycle. 


When you don’t want fetch overflow processing, leave this column blank. 


When you want fetch overflow, enter an F. It applies only to detail lines. See 8.2.3 for 
further information about fetch overflow. 
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19.3.1.4. Space (Columns 17 and 18) 
You use this field to contro! the spacing of detail lines. 


If you want auto report to automatically use a single space (space-one-after) after each 
detail line and a double space (space-two-after) after each total line, leave these columns 
blank. Auto report additionally generates one blank line before the lowest level total line and 
before the final total line (space-one-before): 







DETAIL LINE 


SPACE-ONE-AFTER = SINGLE SPACE 
DETAIL LINE 


SPACE-ONE-AFTER 


| = DOUBLE SPACE 
SPACE-ONE-BEFORE 


LOWEST LEVEL TOTAL LINE 

SPACE-TWO-AFTER = DOUBLE SPACE 
DETAIL LINE 
DETAIL LINE 


SPACE-ONE-AFTER = SINGLE SPACE 
SPACE-ONE-AFTER 


SPACE-ONE-BEFORE = DEGEES SPACE: 


LOWEST LEVEL TOTAL LINE 


-SPACE-TWO-AFTER 
= TRIPLE SPACE 


SPACE-ONE-BEFORE 


FINAL TOTAL LINE 





If you want to specify other spacing values for detail lines, enter them in these columns. You 
can't specify spacing rules for column headings or total lines. See 8.2.6 for rules on spacing. 


When the detail or total line is longer than the record length you specified for the printer 
file, an overflow print line is generated. The excess information is printed on the overflow 
line in the order you specified and is right-justified. If you specified entries in the space field 
(columns 17 and 18), the spacing for the overflow line is as follows: 


= = The space-before entries you specified are for the original detail line. Auto report uses 
a single space after the original line. 


= The space-after entries you specified are for the overflow line. Auto report generates 
blanks for space-before for the overflow line. 


See 19.7.6 for more information about overflow lines. 


19.3.1.5. Skip (Columns 19 through 22) { 


You use this field to control skipping of detail lines. When you want no skipping by the 
printer, leave these columns blanks. When you want to specify skipping values for detail 
lines, enter them in these columns. See 8.2.7 for rules on skipping. 
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If the detail or total line is longer than the record length you specified for the printer file, an 
overflow print line is generated. The excess information is printed on the overflow line in 
the order you specified and is right-justified. If you specified entries in the skip field 
(columns 19 through 22), the skipping for the overflow line is as follows: 


= The skip-before entries you specified are for the original detail line. Auto report uses 
a single space after the original line. 


# The skip-after entries you specified are for the overflow line. Auto report generates 
blanks for skip-before for the overflow line. 
19.3.1.6. Output Indicators - Records (Columns 23 through 31) 


You use this field to specify output indicators that condition the printing of the detail line. 
The detail line is printed only when the conditions set by the indicators are met. 


If you don’t want to specify an output indicator, leave these columns blank. Auto report 
generates an N1P indicator and this conditions the detail line. Because of this, the detail 
line isn't printed at first page time. 

If you want to specify an output indicator, enter it in these columns. You can use AND or 


OR if you specify an output indicator on the first D-*AUTO specification. See 8.2.8 for 
information about output indicators. 


19.3.1.7. *AUTO (Columns 32 through 37) 


You use this field to indicate an auto report that can contain both detail lines and total lines. 


Enter *AUTO in these columns and a D in column 15. 


19.3.1.8. Examples of Entries on D-*AUTO Output File Identification 


Figure 19-11 illustrates the most basic output file identification for a detail report: 
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Figure 19-11. Examples of Entries in D-*AUTO Output File Identification 
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19.3.2. Field Description and Control! Entries (Columns 23 through 70) 


You must follow the D-*AUTO output file identification with at least one field description. 
The entry you specify in column 39 determines how a field description is used. 


Each of the following field descriptions allow you to format your report in the way you 
want: 


A field description that prints an alphanumeric or numeric field on each line and 
optionally prints a column heading over it (blank or B in column 39 and field name in 
columns 32 through 37) 


A field description that prints a heading (constant) on each detail line (blank in 
column 39 and heading in columns 45 through 70) 


A field description that prints a numeric field on each detail line and accumulates 
totals for it on total lines. You can optionally print a column heading over the numeric 
fields (A in column 39) 


A field description that prints a second or third line of a column heading (C in column 
39) 


A field description that prints an alphanumeric or numeric field next to a specific total 
line (1 through 9 or R in column 39 and a field name in columns 32 through 37) 


A field description that prints a heading (constant) next to a specific total line (1 
through 9 or R in column 39 and a heading in columns 45 through 70) 


The remaining entries on the field description have different meanings depending on the 
entry you specify in column 39. 


Figure 19-12 illustrates the functions of the D-*AUTO field descriptions. 
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Figure 19—12. D-*AUTO Field Descriptions (Part 1 of 2) 
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Figure 19—12. D-*AUTO Field Descriptions (Part 2 of 2) 
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19.3.2.1. Field Description that Prints a Field and Column Heading (Blank or B 
in Column 39 and Field Name in Columns 32 through 37) 


You use this field description to print an alphanumeric or numeric field on a detail line and 
optionally print a column heading over it. 


Figure 19-13 illustrates the D-*AUTO field description that has a blank or B in column 39 
and a field name in columns 32 through 37. 


Rin ee ee ae ae eee 


BLANK OR 
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EDIT 
Figure 19—13. D-*AUTO Field Description (Blank or B in Column 39 and Field Name in Columns 32 through 37) 
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19.3.2.1.1. Output Indicators - Fields (Columns 23 through 31) 


You use this field to specify output indicators that condition the printing of the field you 
specified in columns 32 through 37. The field is printed on each detail line only when the 
conditions set by the indicators are met. If you don’t want to specify an output indicator, 
leave these columns blank. Auto report prints the associated field on each detail line 
conditioned by the indicator. 


If you want to specify an output indicator to condition the printing of the associated field, 
enter it in these columns. By specifying an output indicator, you can suppress printing of 
common fields and thus reduce repetitive information. If you specify a column heading in 
columns 45 through 70 to be printed over the field you named in columns 32 through 37, 
the output indicators don't affect the column heading. See 8.2.8 for information about 
output indicators. 


19.3.2.1.2. Field Name (Columns 32 through 37) 


You use this field to specify the name of a field, an indexed array, or a table. The 
associated field, array, or table value is printed on the detail line. 
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When you specify more than one name, the fields are printed from left to right on a line in 
the order you specify. At least two spaces are inserted between each field on a line. The 
first field, however, begins in print position 1: 





PRINT 
POSITION 1 AT LEAST TWO SPACES 


The following example shows you the use of a field name entry and the resulting printed 
report: 
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19.3.2.1.3. Edit Codes (Column 38) 


You use this field to enter an edit code for a numeric field, indexed array, or table you 
named in columns 32 through 37. 


If you specified an alphanumeric field, table, or indexed array in columns 32 through 37, 
you must leave this column blank. 


If you named a numeric field, indexed array, or table in columns 32 through 37, you can 
enter an edit code. If you choose not to enter an edit code, auto report generates a K edit 
code, which prints a numeric field or numeric element with commas and a decimal point 
where needed (for example, 2,123.77). The K edit code suppresses zeros so that zero 
balances are not printed and prints negative balances with a minus sign on the right. 


19.3.2.1.4. Blank After (Column 39) 


You use this field to indicate whether or not you want to reset an alphanumeric field to 
blanks and a numeric field to zeros after it is printed on the detail line. 


If you don’t want to reset an alphanumeric field to blanks or reset a numeric field (that 
isn't totaled) to zeros, leave this column blank. 


If you want to reset the field to blanks or zeros, enter a B. 


19.3.2.1.5. End Position in Output Record (Columns 40 through 43) 


You use this field to specify the end print position of the rightmost character of the field 
that is printed on the detail line. 


If you want auto report to generate end positions for fields and to center column headings, 
leave these columns blank. 


If you want to specify the end position of the rightmost character of the field, enter an end 
position. Specify end positions to eliminate the automatic spacing between fields or to 
spread out a report on the page. The end position you specify may be changed a little by 
auto report when the line is centered or when the column heading and field are positioned 
in relation to each other. If the end position you specify causes an overlay with another 
field, auto report generates a new end position. 


19.3.2.1.6. First Column Heading Line (Columns 45 through 70) 


You use this field to print the first line of a column heading (constant) over the field you 
named in columns 32 through 37. 


If you don’t want a column heading, leave these columns blank. 
lf you want to print a column heading, enter it in these columns. You must enclose it 


within apostrophes. The value is printed over the field you specified in columns 32 
through 37. 
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If you specify a column heading, auto report automatically uses a double space after each 
single column heading line. If you specify a second or third line of column heading (C in 
column 39), auto report uses a single space after each column heading line except the 
last, which is followed by a double space: 












FIRST LINE OF COLUMN HEADING 
SECOND LINE OF COLUMN HEADING 
THIRD LINE OF COLUMN HEADING 


COMPANY REPORT 


SINGLE SPACE 
SINGLE SPACE 


ANNUAL 
1982 






DOUBLE SPACE 
FIELD 


You can’t specify any other spacing for column heading lines. 


When you use a column heading, its placement above the field you specified in columns 
32 through 37 depends on which is longer, the column heading or the field (including edit 
characters). 


When the column heading is longer than its associated field, the field is centered under 
the longest column heading constant: 













LONGEST COLUMN HEADING AJAX COMPANY ANNUAL SALES 


FIELD 198,888 .088 
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When the column heading is shorter than its associated field, the column heading is left- 
justified over an alphanumeric field and right-justified over a numeric field: 


COLUMN HEADING COLUMN HEADING DEPT SALES 


ALPHANUMERIC FIELD NUMERIC FIELD DIVISION 1 1,869.68 





When you specify more than one column heading, they are printed from left to right on a 
line in the order you specify. No spaces are provided within a column heading - you must 
incorporate spaces within the column heading to provide for additional spacing. 


You can use column heading continuation lines (C in column 39) to specify a second or 
third line of a column heading. When you use a multiple line column heading, the shorter 
column headings are centered under the longest column heading: 






LONGEST COLUMN HEADING 
SHORTER HEADING 


SALESMAN OF THE 


CENTERED YEAR 


If the column heading line is longer than the record length you specified for the printer 
file, an overflow print line is generated. The excess column headings are printed on the 
overflow line in the order you specified and are right-justified. See 19.7.6 for more 
information on overflow lines. 


If you want to specify your own positions for the column headings and associated fields, 
enter the end position in columns 40 through 43 of the *AUTO field description. 
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19.3.2.1.7. Examples of Entries on D-*AUTO Field Description (Blank or B in Column 
39 and Field Name in Columns 32 through 37) 


Figure 19-14 illustrates a report that prints a field on each detail line and also prints a 
column heading over each field. 
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Figure 19—14. Examples of Entries on D-*AUTO Field Description (Blank or B in Column 39 and Field Name in 
Columns 32 through 37) 
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19.3.2.2. Field Description that Prints a Heading (Blank in Column 39 and Heading in 
Columns 45 through 70) 


You use this field description to print a heading (constant) on a detail line. There is no 
column heading over this heading. 


Figure 19-15 illustrates the D-*AUTO field description that has a blank in column 39 and 
a heading in columns 45 through 70. 


BLANK BLANK BLANK BLANK HEADING 


Figure 19—15. D-*AUTO Field Description (Blank in Column 39 and Heading in Columns 45 through 70) 


COLS: 





BLANK OR 
END POSITION 


BLANK OR 
INDICATORS 






19.3.2.2.1. Output Indicators - Fields (Columns 23 through 31) 


You use this field to specify output indicators that condition the printing of the heading 
(constant) you specified in columns 45 through 70. The heading is printed on each detail 
line only when the conditions set by the indicators are met. 


If you don’t want to specify an output indicator, leave these columns blank. Auto report 
prints the headings on each detail line conditioned by the indicator. 


If you want to specify an output indicator to condition the printing of the heading, enter it 
in these columns. See 8.2.8 for information about output indicators. 
19.3.2.2.2. End Position in Output Record (Columns 40 through 43) 


You use this field to specify the end print position of the rightmost character of the 
heading (constant) that is printed on the detail line. 


If you want auto report to generate end positions for headings, leave these columns blank. 


If you want to specify the end position of the rightmost character of the heading, enter an 
end position. Specify end positions only to eliminate the automatic spacing between fields 
or to spread out a report on the page. If the end position you specify causes an overlay 
with another field, auto report generates a new end position. 
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& 19.3.2.2.3. Heading (Columns 45 through 70) 


You use this field to print a heading (constant) on each detail line. You must enclose the 
heading within apostrophes. 


When you specify more than one heading, they are printed from left to right on a line in 
the order you specify. No spaces are provided within a heading - you must incorporate 
spaces within it to provide for additional spacing. 


19.3.2.2.4. Examples of Entries on D-*AUTO Field Description (Blank in Column 39 
and Heading in Columns 45 through 70) 


Figure 19-16 illustrates a report that contains a heading (constant) printed on the detail 
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@ Figure 19—16. Examples of Entries on D-*AUTO Field Description (Blank in Column 39 and Heading in 
4 Columns 45 through 70) 
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19.3.2.3. Field Description that Prints a Numeric Field and Column Heading and 
Accumulates Totals (A in Column 39) 


You use this field description to print a numeric field on a detail line and accumulate totals 
for it on total lines. You can optionally print a column heading over the numeric field. A 
total is printed for each control level (L1 through L9) you defined in columns 59 and 60 of 
the input specifications, and a final total is printed. 


Figure 19-17 illustrates the D-*AUTO field description that has an A in column 39. 


BLANK OR 
FIELD NAME BLANK OR 


END POSITION putty 
Figure 19—17. D-*AUTO Field Description (A in Column 39} 
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EDIT 
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BLANK OR 


INDICATORS HEADING 


Auto report generates calculations to accumulate totals for the fields you specify in 
columns 32 through 37 and it places the calculations in the following order: 


1. Detail calculations you specify 


2. EXSR statement for the subroutine named ASS$SUM generated by auto report. The 
AS$SUM subroutine accumulates the values from the field you specify on an A-type 
specification onto the lowest level total lines. The EXSR statement is conditioned by 
the same indicators that condition the D-*AUTO output file specification. Each add 
statement in the subroutine is conditioned by the field indicators you specify with the 
D-*AUTO field descriptions with an A in column 39. 


3. Total calculations generated by auto report. They are sorted by level, starting with L1. 
These total calculations accumulate totals for the fields you name on D-*AUTO 
specifications that have an A in column 39. 

4. Total calculations you specify 


5. Subroutines you specify 


6. RPG Il subroutine named AS$SSUM generated by auto report that accumulates the 
lowest level total 
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& 19.3.2.3.1. Output Indicators - Fields (Columns 23 through 31) 


You use this field to specify output indicators that condition the printing of the field you 
specified in columns 32 through 37. The field is printed only when the conditions set by 
the indicators are met. 


If you don't want to specify an output indicator, leave these columns blank. Auto report 
prints the associated field on each detail line. 


If you specify a column heading in columns 45 through 70 to be printed over the field you 
named in columns 32 through 37, the output indicators don't affect the column heading. 
The output indicator you specify also doesn’t affect the field descriptions generated by auto 
report for totals. However, if you specify an N1P output indicator on the D-*AUTO output 
file specification, the calculations generated for the totaling fields are also conditioned by 
N1P. This causes a diagnostic in the RPG Il compiler. See 8.2.8 for information about 
output indicators. 


19.3.2.3.2. Field Name (Columns 32 through 37) 


You use this field to specify the name of a numeric field that is accumulated and printed 
on each detail line. 


When you specify more than one name, the fields are printed from left to right on a line in 
& the order you specify. At least two spaces are inserted between each field on the line. The 
first field, however, begins in print position 1: 


DIVISION DEPARTMENT LEVEL SALES 





PRINT 
POSITION 1 AT LEAST TWO SPACES 
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Auto report generates an RPG II subroutine named AS$SUM that creates and names 
additional totaling fields based on the field name you specify to generate calculation and 
output specifications that accumulate and print the various levels of totals required. 


If you want to accumulate a numeric field on each detail line, enter the name of the field 
in columns 32 through 37 and an A in column 39. The associated field is printed on the 
detail line and totals for it are printed on total lines. You can’t identify an array, array 
element, or table. 


You can specify totaling for any particular field only once in each program. 


Pay attention to field names that end with a number from 1 through 9 or an R in an auto 
report program that accumulates totals, because auto report generates total fields that end 
in those characters. 


If the field name you specify has fewer than 6 characters, a character from 1 through 9 or 
an R is added to the name to create a name for the total field. This added character 
corresponds to the total indicators L1 through L9 and LR, respectively. For example, if you 
specify a field name of GROUP and all nine control levels are defined, the generated field 
names are GROUP1, GROUP2,...GROUP9, and GROUPR. 


If the field name you specify has 6 characters, the last character is replaced by a character 
from 1 through 9 or an R. For example, if you specify a field name of SUPPLY and all nine 
control levels are defined, the generated field names are SUPPL1, SUPPL2,..., SUPPLY, 
and SUPPLR. 


You can't use any one field name more than once if you use an A in column 339. Also, if 
you specify a 5- or 6-character field name with an A in column 39, you can't specify a 
second 5- or 6-character field name that has the same first five characters with an A in 
column 39. For example, if you specify the following three field names with an A in 
column 39, all but the first are invalid: 


GROUP Valid 


GROUPW Invalid because the first five characters duplicate the first five 
characters of the first field 


GROUP Invalid because it is a duplicate of the first field 
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The following example shows you the use of a field name entry and the resulting printed 


report when the field is accumulated: 
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DIVISION DEPARTMENT LEVEL SALES 
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5,090.98 


Y 17,808.86 ° Ll 


11,000.09 
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15,089.90 ° Ll 


32,808.00 * "4 L2 


7,080.09 
5,088.80 


12,000.06 ° Ll 





10,698.09 
11,906.09 


eed 
eee 
reas 


21,808.98 * Ll 
33,808.00 ** L2 


65,000.00 *"“t LR 


19.3.2.3.3. Edit Codes (Column 38) 


You use this field to enter an edit code for the numeric field you named in columns 32 
through 37 as well as for all the generated total fields. 


If you don’t want to enter an edit code, leave this column blank. Auto report generates a K 
edit code, which prints a numeric field with commas and a decimal point where needed 
(for example, 2,123.77). The K edit code also suppresses zeros so that zero balances are 
not printed and negative balances are printed with a minus sign on the right. 





If you want to enter an edit code, enter it in this column. See 8.3.3 for information about 
edit codes. 
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19.3.2.3.4. Accumulate Totals (Column 39) 


You use this field to indicate that you want to accumulate and print totals for the numeric 
field you named in columns 32 through 37. You can specify totaling only once for any 
particular field in each program. 


If you want to accumulate and print totals for the numeric field you named in columns 32 
through 37, enter an A. Auto report generates a subroutine named AS$SSUM that 
accumulates the values from the fields into the lowest level total lines. 


Auto report generates a B (blank after) in column 39 of all the detail and total field 
descriptions generated for the field name you specify. Thus, the value in the field you 
specified (and in any generated field) is reset to zero after the field value is printed. 


Total fields are generated and named for all control level indicators you defined in columns 
59 and 60 of the input specifications. Total calculations accumulate totals for the field you 
named in columns 32 through 37. Total calculations roll (add) the total from the lowest 
level total field to that of the next higher level field and end with a final total. This process 
is called total rolling. 


For example, if you assign L1 and L3 to control fields on the input specification and specify 
the field PRD in columns 32 through 37 of the field description, three total fields (PRD1, 
PRD3, and PRDR) are generated and named by auto report. All total fields generated for 
the same level, such as PRD1 and SUPPL1 are printed on the same total line, and that line 
is conditioned by the corresponding control level indicator. 


Generated total fields are two digits longer than the original field, but the number of 
decimal positions remain the same in the generated fields. For example, if you use an edit 
code to define a field with a length of four characters (xx.xx), the length of each generated 
field is six characters (x,xxx.xx). 


If the generated field is identical to a previously defined numeric field, the generated field 
is assigned the previously defined length and number of decimal positions (if the 
previously defined field is numeric). 


Auto report prints asterisks to the right of generated total lines so you can tell they're total 
lines. One asterisk is printed to the right of the lowest level total line and two asterisks are 
printed to the right of the next level total and so on. For example, if you defined L1 and L3 
control level indicators in a program, one asterisk is printed to the right of the L1 line, two 
asterisks are printed on the L3 line, and three asterisks are printed on the LR line. As 
many as 10 asterisks are printed on the LR line if you define control level indicators in the 
program. 


To suppress the generation of asterisks on total lines, enter an N in column 28 of the auto 
report options specifications form. 
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19.3.2.3.5. End Position in Output Record (Columns 40 through 43) 





You use this field to specify the end print position of the rightmost character of the field 
that is printed on the total line. 


If you want auto report to generate end positions for fields and to center column headings, 
leave these columns blank. 


If you want to specify the end position of the rightmost character of the field, enter an end 
position. Specify end positions only to eliminate the automatic spacing between fields or to 
spread out a report on the page. The end position you specify may be changed a little by 
auto report when the line is centered or when the column heading and field are positioned 
in relation to each other. If the end position you specify causes an overlay with another 
field, auto report generates a new end position. 


19.3.2.3.6. First Column Heading Line (Columns 45 through 70) 


You use this field to print the first line of a column heading (constant) over the field you 
named in columns 32 through 37. 


If you don’t want a column heading, leave these columns blank. 
If you want to print a column heading, enter it in these columns. You must enclose it 


within apostrophes. The value is printed over the accumulated total of the field you 
specified in columns 32 through 37. 





When you specify a column heading, auto report automatically uses a double space after 
each single column heading line. If you specify a second or third line of column heading (C 
in column 39), auto report uses a single space after each column heading line except the 
last, which is followed by a double space: 
















FIRST LINE OF COLUMN HEADING 
SECOND LINE OF COLUMN HEADING 
THIRD LINE OF COLUMN HEADING 


COMPANY REPORT 
ANNUAL 


a 


SINGLE SPACE 
SINGLE SPACE 









DOUBLE SPACE 
FIELD 


You can't specify any other spacing for column heading lines. 


When you use a column heading, its placement above the field you specified in columns 
32 through 37 depends on which is longer, the column heading or the field (including edit 
characters). 
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When the column heading is longer than its associated field, the field is centered under 
the longest column heading constant: 














LONGEST COLUMN HEADING AJAX COMPANY ANNUAL SALES 


FIELD CENTERED 169,898 .869 


When the column heading is shorter than its associated field, the column heading is left- 
justified over an alphanumeric field and right-justified over a numeric field: 


COLUMN HEADING COLUMN HEADING DEPT SALES 


ALPHANUMERIC FIELD NUMERIC FIELD DIVISION] 1,969.88 





When you specify more than one column heading, these headings are printed from left to 
right on a line in the order you specify. No spaces are provided within a column heading - 
you must incorporate spaces within the column heading to provide for additional spacing. 


You can use column heading continuation lines (C in column 39) to specify a second or 
third column heading. When you use a multiple line column heading, the shorter column 
headings are centered under the longest column heading. 












SALESMAN OF THE 
YEAR 


LONGEST COLUMN HEADING 


SHORTER HEADING CENTERED 


If the column heading line is longer than the record length you specified for the printer 
file, an overflow print line is generated. The excess column headings are printed on the 
overflow line in the order you specified and are right-justified. 


If you want to specify your own end position for column headings and their associated 
fields, enter the end position in columns 40 through 43 of the D-*AUTO specification. 
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19.3.2.3.7. Examples of Entries on D-*AUTO Field Description (A in Column 39) 


Figure 19-18 illustrates a report that prints a numeric field on the detail line and then 
accumulates totals for it on total lines. A final total is also printed. A column heading is 


printed over the numeric field. 
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DIVISION DEPARTMENT LEVEL SALES 


12,0660 


17,606. 


11,908 


15,9606. 


. 08 
5,808. 


i) 


80 


08 
4,000. 


06 


89 


32,808.08 ** 





FINAL TOTAL 
LINE 





LOWEST LEVEL 
TOTAL LINE 


Figure 19-18. Examples of Entries on D-*AUTO Field Description (A in Column 39) 
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19.3.2.4. Field Description that Prints a Second and Third Column Heading Line (C in 
Column 39) 


You use this field description to print a second or third line of a column heading. You can 
use one or two C specifications following a field description that has an A, B, or blank in 
column 39 and a field name in columns 32 through 37. 


Figure 19-19 illustrates a D-*AUTO field description that has a C in column 39. 


BLANK BLANK BLANK BLANK BLANK BLANK | COLUMN 


HEADING 
Figure 19—19. D-*AUTO Field Description (C in Column 39) 


COLS: 













19.3.2.4.1. Column Heading Continuation Lines (Column 39) 


You use this field to indicate that you want a second and third column heading line when 
there is more information in a column heading than can be contained on one line. 


If you want to specify continuation lines for a column heading, enter a C. The column 
heading you specify in columns 45 through 70 is printed on the second or third line of the 
column heading. 


19.3.2.4.2. Second and Third Column Heading Line (Columns 45 through 70) 
You use this field to print a second or third column heading line. 


If you don’t want to specify a second or third column heading line, leave this field 
description blank. 


lf you want to specify continuation lines for a column heading you specified on a field 
description with a B, blank, or A in column 39, enter them in these columns. If this is the 
first C specification, you are specifying the second line of the column heading. If this is the 
second C specification, you are specifying the third line of the column heading. You can’t 
use more than two C specifications. You can specify column headings continuation lines 
that are up to 24 characters long, including blanks. You must enclose them within 
apostrophes. Short column headings are centered under the long column headings. 
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a 





Auto report uses a single space after each column heading line except the last, which is @ 
followed by a double space: 






COMPANY REPORT 


FIRST LINE OF COLUMN HEADING 
SECOND LINE OF COLUMN HEADING 
THIRD LINE OF COLUMN HEADING 








SINGLE SPACE 
SINGLE SPACE 


ANNUAL 
1982 






DOUBLE SPACE 
FIELD 


19.3.2.4.3. Examples of Entries on D-*AUTO Field Description (C in Column 39) 
Figure 19-20 illustrates a report that contains multiple-line column headings. 


FPG Il 
SPERRY<>UNIVAC OUTPUT FORMAT SPECIFICATIONS 


OF 


PROGRAM OU PROGRAMMER DATE PAGE 


STACKER SELECT/ 
REMOVE 
PLUS SIGN 
y EDIT OATE PROGRAM 
FIELD IDENTIFICATION 
ZERO 


roa 
[Mf ko no z 


*AUTO 
2 


PAGES 











SUPPRESS 























ee i py 





res bam Ue SE iii tity tig 4 a4 








Lr ear fii tt ja 








Ss a ey Ke 





























81/15/88 COMPANY REPORT PAGE 1 


DIVISION DEPARTMENT SALES 
STORE FOR THE 
YEAR 





Figure 19—20. Examples of Entries on D-*AUTO Field Description (C in Column 39) 
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19.3.2.5. Field Description that Prints a Heading next to a Total (1 through 9 or R in 
Column 39) 


You use this field description to print a heading (constant) on a specific total line 
generated from an A in column 39. You can only use this field description if you used a 
field description with an A in column 39. The heading you enter is printed on the total line 
that corresponds to the level (L1 through L9 or LR) you specified in column 39. 


Figure 19-21 illustrates the D-*AUTO field description that has a number from 1 through 


9 or an R in column 39. 
ena BLANK BLANK HEADING 


Figure 19—21. D-*AUTO Field Description (1 through 9 or R in Column 39) 





BLANK BLANK BLANK BLANK 


19.3.2.5.1. Specific Total Line (Column 39) 


You use this field to identify a specific total line on which the heading (constant) is printed. 
The heading is printed to the left of the leftmost total on the line. 


If you didn’t define any of the field descriptions with an A in column 39, you can’t use an 
entry in this field description. 


If you want to print the heading on a specific total line, enter a number from 1 through 9 
or an R. This entry corresponds to the indicators L1 through L9, which you defined in 
columns 59 and 60 of the input specifications, and LR. For example, 4 in column 39 
indicates the information is printed on the L4 total line, and an R in column 39 indicates 
the information is printed on the final total (LR) line. 


19.3.2.5.2. Heading (Columns 45 through 70) 


You use this field to print a heading (constant) on a specific total line. You must enclose 
the heading within apostrophes. 


When you specify a heading to appear next to a total, it is printed to the left of the first 
total. It is separated from the total by two spaces. If you specify two or more headings (or 
fields) to appear next to a total, they are printed in the order you specified: 
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HEADING TOTAL SALES 186.986 


Two SPACES 


19.3.2.5.3. Examples of Entries on D-*AUTO Field Description (1 through 9 or R in 








Column 39) 
Figure 19-22 illustrates a report that contains a heading printed next to the lowest level 
total line. 
RPG Ii 
SPERRY4>LINIVAC OUTPUT FORMAT SPECIFICATIONS 
Y PROGRAM Oo PROGRAMMER A PAE PAGES 
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Y 81/15/89 COMPANY REPORT PAGE 1 
DIVISION DEPARTMENT LEVEL SALES 
DETAIL LINE er eet ee ets 12,908.98 
DETAIL LINE ee erent = 5,908.08 
ane GROUP SALES 17,606.90 * 





4 HEADING ® 


Figure 19—22. Examples of Entries on D-*AUTO Field Description (1 through 9 or R in Column 39} 
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19.3.2.6. Field Description that Prints a Field next to a Total (1 through 9 or R in 
Column 39 and Field Name in Columns 32 through 37) 


You use this field description to print an alphanumeric or numeric field on a specific total 
line. You can only use this field description if you also used a field description with an A in 
column 39. The field you enter is printed on the total line that corresponds to the level (L1 
through L9 or LR) you specified in column 39. 


Figure 19-23 illustrates the D-*AUTO field description that has a number from 1 through 
9 or an R in column 39 and a field name in columns 32 through 37. 





BLANK OR BLANK OR 
BLANK BLANK FIELD NAME EDIT CODE 1-9 OR R BLANK BLANK EDIT WORD 


Figure 19—23. D-*AUTO Field Description (1 through 9 or R in Column 39 and a Field Name in Columns 32 
through 37) 


19.3.2.6.1. Field Name (Columns 32 through 37) 


You use this field to specify the name of a field, an indexed array, or a table. The associated 
field, array, or table is printed on a specific total line. 


When you specify a field to appear next to a total, it is printed to the left of the first total. It is 
separated from the total by two spaces: 


FIELD. TOTAL 14_ 188.88 


TwO SPACES 


If you specify two or more fields (or headings) to appear next to a total, they are printed 
from left to right on a line in the order you specified. Each field is separated by one space. 


wl Ee Se 
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19.3.2.6.2. Edit Codes (Column 38) & 


You use this field to enter an edit code for a numeric field, indexed array, or table you 
named in columns 32 through 37. 


If you specified an alphanumeric field, indexed array, or table in columns 32 through 37, 
you must leave this column blank. Also, leave this column blank if you don’t want to use 
an edit code. 


lf you named a numeric field, indexed array, or table in columns 32 through 37, you can 
enter an edit code. When you specify an edit code, you must leave columns 45 through 70 
blank. 


19.3.2.6.3. Specific Total Line (Column 39) 


You use this field to identify a specific total line on which the field you described in columns 
32 through 37 is printed. The field is printed to the left of the leftmost total on the line. 


If you didn‘t define any of the field descriptions with an A in column 39, you can't use an 
entry in this column. 


If you want to print the associated field on a specific total line, enter a number from 1 
through 9 or an R. This entry corresponds to the indicators L1 through L9 and LR that you 
defined in columns 59 and 60 of the input specifications. For example, 4 in column 39 
indicates the information is printed on the L4 total line, and an R in column 39 indicates the 
information is printed on the final total (LR) line. 





19.3.2.6.4. Edit Word (Columns 45 through 70) 
You use this field to edit numeric fields that you want printed on a specific total line. 


If you specified an edit code in column 38, you must leave these columns blank. Also, 
leave these columns blank if you don’t want to specify an edit word. 


If you want to edit the field, enter an edit word. See 8.3.8 for information about edit 

words. 

19.3.2.6.5. Examples of Entries on D-*AUTO Field Description (1 through 9 or R in 
Column 39 and Field Name in Columns 32 through 37) 


Figure 19-24 illustrates a report that contains a heading and field printed next to the 
lowest level total line. 
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LOWEST LEVEL 
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HEADING HEADING 


Figure 19—24. Examples of Entries on D-*AUTO Field Description (1 through 9 or R in Column 39 and Field Name in 
Columns 32 through 37} 
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19.3.2.7. Examples of Entries on D-*AUTO Specifications 


Figure 19-25 illustrates a report that contains information generated by all the D-*AUTO 


field descriptions. 
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a. 


Code control card specifications form 
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Code file description specifications form 
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Figure 19—25. Examples of Entries on D-*AUTO Specifications (Part 1 of 2) 
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d. Code H-*AUTO and D-*AUTO specifications on output format specifications form 


06/26/81 COMPANY REPORT PAGE 1 


DIVISION DEPARTMENT SALES 
STORE 


DETAIL LINE 1,118,998 888,009 15,860,096 
15,690,006 LOWEST LEVEL TOTAL LINE 
DETAIL LINE 1,111,111 888,908 10,006,090 
18,009,608 LOWEST LEVEL TOTAL LINE 
25,6909 .09 SECOND-TO-LOWEST TOTAL LINE 
DETAIL LINE 777,996 1,060,900 
1,000,000 LOWEST LEVEL TOTAL LINE 
DETAIL LINE 777 , 9686 2,808,608 
2,090,066 LOWEST LEVEL TOTAL LINE 
3,808,886 SECOND-TO-LOWEST TOTAL LINE 
DETAIL LINE 999,668 14,009,606" 
14,060,090 LOWEST LEVEL TOTAL LINE 
DETAIL LINE 999,988 12,060,096 
12,689,900 LOWEST LEVEL TOTAL LINE 
26,860,000 SECOND-TO-LOWEST TOTAL LINE 
DETAIL LINE 666,090 6,600,000 
6,086,080 LOWEST LEVEL TOTAL LINE 
DETAIL LINE 666,960 5,860,008 
5,890,908 LOWEST LEVEL TOTAL LINE 
11,699,009 SECOND-TO-LOWEST TOTAL LINE 


65,809,008 FINAL TOTAL 





e. The printed report 


Figure 19—25. Examples of Entries on D-*AUTO Specifications (Part 2 of 2) 
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19.4. T-*AUTO TOTAL REPORTS 





You use the T-*AUTO specification on the output specifications form to print a report that 
contains only total lines. In other words, there are no detail lines. The data is summarized 
for a group of input records and only the totals are printed on the report. You can specify a 
report that has subtotals and final total or a report that has only a final total. 

You can specify the T-*AUTO specification alone or in combination with standard RPG Il 
specifications. You can’t use both a T-*AUTO and D-*AUTO specification in the same 
program. You can specify T-*AUTO for only one printer file per program. 

You can also use the T-*AUTO specification to: 

= Print up to three lines of column headings over a field 

= Accumulate several levels of totals 

# §=Print information next to a total 

7 Format the report 

The standard RPG II output specifications form is used for two types of entries: output file 


identification (columns 7 through 31) and field description (columns 23 through 70). T-* 
AUTO specifications have the same two types of entries, but their use is not the same. 





19.4.1. Output File Identification and Control Entries (Columns 7 through 37) 

You must specify a T in column 15 and *AUTO in columns 32 through 36 for an auto 
report output file identification, which indicates that the report contains total lines only. 
You must follow it with at least one field description that describes when, where, or how 
the lines are printed. 


Figure 19-26 illustrates the T-*AUTO output file identification. 
oe [Lo [oe [om [om [oe [oe 


pe ie _ i 


Figure 19—26. T-*AUTO Output File Identification 










COLS: 
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19.4.1.1. File Name (Columns 7 through 13) 

You use this field to specify the name of the printer file that prints the report. 

Enter the name of the printer file. The name you specify for this file must be the same 
name you specified on the H-*AUTO page heading if you used one. You only need to 
specify a file name on the first output file identification for a file. 

The file name can be up to seven characters in length. See 5.2.1 for more explanation. 


NOTE: 


The file name can be eight characters long. 


19.4.1.2. Type (Column 15) 
You use this field to indicate that you want a report that contains total lines only. 


Enter a T in this column and *AUTO in columns 32 through 36. Remember that you can't 
use both D-*AUTO and T-*AUTO specifications in the same program. 


19.4.1.3. Fetch Overflow (Column 16) 

You use this field to indicate that you want fetch overflow processing. Fetch overflow 
causes overflow processing at this point in the program rather than at the completion of the 
total cycle. 

When you don’t want fetch overflow processing, leave this column blank. 

When you want fetch overflow, enter an F. It applies only to the lowest level total line. See 
8.2.3 for further information about fetch overflow. 

19.4.1.4. Space (Columns 17 and 18) 

You use this field to control the spacing of the lowest level total lines. 

lf you want auto report to automatically use a single space (space-one-after) after each 
lowest level total line and a double space (space-two-after) after each higher level total line, 


leave these columns blank. Auto report additionally generates one blank line (space-one- 
before) before the second-to-the-lowest level total line and before the final total line. 
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LOWEST LEVEL TOTAL LINE 
LOWEST LEVEL TOTAL LINE 


SPACE-ONE-AFTER = SINGLE SPACE: 
SPACE-ONE-AFTER 
SPACE-ONE-BEFORE 







= DOUBLE SPACE 
SECOND-TO-LOWEST TOTAL LINE 


SPACE-TWO-AFTER = DOUBLE SPACE 
LOWEST LEVEL TOTAL LINE 
LOWEST LEVEL TOTAL LINE 


SPACE-ONE-AFTER = SINGLE SPACE 
SPACE-ONE-AFTER 


SPACE-ONE-BEFORE = DUEL PASBNCE 


SECOND-TO-LOWEST TOTAL LINE 


SPACE-TWO-AFTER 
= TRIPLE SPACE 


SPACE-ONE-BEFORE 


FINAL TOTAL LINE 


If you want to specify other spacing values for the lowest level total lines, enter them in 
these columns. You can't, however, specify any other spacing for higher level total lines. 
See 8.2.6 for rules on spacing. 


If the total line is longer than the record length you specified for the printer file, an overflow 
print line is generated. The excess information is printed on the overflow line in the order 
you specified and is right-justified. If you specified entries in the space field (columns 17 
and 18), the spacing for the overflow line is as follows: 





= The space-before entries you specified are for the original lowest level total line. Auto 
report uses a single space after the original line. 


# The space-after entries you specified are for the overflow line. Auto report generates 
blanks for space-before for the overflow line. 
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The following example shows you the use of a space entry and the resulting printed 
report: 
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NO ENTRY 


01/15/88 COMPANY REPORT PAGE 1 


DIVISION DEPARTMENT SALES 


12 5,960.00 * 
16 19,800.80 * 





THE LOWEST LEVEL TOTAL LINES ARE SINGLE-SPACED LIKE DETAIL LINES. 


19.4.1.5. Skip (Columns 19 through 22) 


You use this field to control skipping of the lowest level total lines. When you want no 
skipping by the printer, leave those columns blank. When you want to specify skipping 
values for total lines, enter them in these columns. These entries apply only to the 
lowest level total line. See 8.2.7 for rules on skipping. 
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If the total line is longer than the record length you specified for the printer file, an 
overflow print line is generated. The excess information is printed on the overflow line in 
the order you specified and is right-justified. If you specified entries in the skip field 
(columns 19 through 22), the skipping for the overflow line is as follows: 


= The skip-before entries you specified are for the lowest level total line. Auto report 
uses a single space after the original or lowest total line. 


= The skip-after entries you specified are for the. overflow line. Auto report generates 
blanks for skip-before for the overflow line. 


19.4.1.6. Output Indicators - Records (Columns 23 through 31) 


You use this field to specify output indicators that condition the printing of the lowest level 
total line generated by this T-*AUTO specification. The lowest level total line is printed 
only when the conditions set by the indicators are met. 


If you don’t want to specify an output indicator, leave these columns blank. Auto report 
conditions the first generated total line by the lowest control level indicator you defined in 
the program. 


If you want to specify an output indicator to condition the printing of the lowest level total 
line, enter it in these columns. Total lines are printed only for the output indicator you 
specify and higher numbered indicators. For example, if you define L1, L2, and L3 and 
then specify L2 in these columns, totals for L2, L3, and LR are printed but L1 isn’t printed. 
In other words, when the lowest control level indicator you used on the T-*AUTO output 
file identification is higher than the lowest control level indicator you defined on the input 
specification, auto report generates total lines that correspond to the lowest level indicator 
you used on the T-*AUTO specification, the higher level indicators, and LR. 


You can use AND or OR if you specify an output indicator on the first T-*AUTO output file 
identification. See 8.2.8 for information about output indicators. 

19.4.1.7. *AUTO (Columns 32 through 37) 

You use this field to indicate an auto report that contains total lines only. 


Enter *AUTO in these columns and a T in column 15. 


19.4.1.8. Examples of Entries on T-*AUTO Output File Identification 


Figure 19-27 illustrates the most basic output file identification for a total report. 
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Figure 19—27. Examples of Entries on T-*AUTO Output File Identification 


19.4.2. Field Description and Control Entries (Columns 23 through 70) 


You must follow the T-*AUTO output file identification with at least one field description. 
The entry you specify in column 39 determines how these field descriptions are used. 


Each of the following field descriptions allow you to format your report in the way you 
want: 


= A field description that prints an alphanumeric or numeric field on the lowest level 
total line and optionally prints a column heading over it (blank or B in column 39 and 
field name in columns 32 through 37). The B indicates that the field is reset to zero 
(numeric) or blank (alphanumeric). 


# @A field description that prints a heading (constant) on each total line (blank in column 
39 and heading in columns 45 through 70) 


= § A field description that prints a numeric field on the lowest level total line and 
accumulates totals for it on higher level lines. You can optionally print a column 
heading over the numeric field {A in column 39). 


= ~@6A field description that prints a second or third line of a column heading (C in column 
39) 


= A field description that prints an alphanumeric or numeric field next to a specific total 
line (1 through 9 or R in column 39 and a field name in columns 32 through 37) 


s A field description that prints a heading (constant) next to a specific total line (1 
through 9 or R in column 39 and a heading in columns 45 through 70) 


The remaining entries on the field description have different meanings depending on the 
entry you specify in column 39. Figure 19-28 illustrates the functions of the T-*AUTO field 
descriptions. 


9 ‘AeyH £908-dN 
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heading field lowest level total TOTAL LINE 
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heading , lowest level total TOTAL LINE 
heading lowest fevel total TOTAL LINE 


heading field heading | second-to-ltowest TOTAL LINE 
level total °** 
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heading ; final total *** TOTAL LINE 





a. T-*AUTO specifications 


Figure 19—28. T-*AUTO Field Descriptions (Part 1 of 2) 
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BLANK IN 39 AND BLANK OR B IN 39 AND C in 39 
HEADING IN 45-70 FIELDNAME IN 32-37 1-9 OR R IN 39 A IN 39 
et 


DEPARTMENT ANNUAL 
REPORT 


GROUP 1 PA 15,000. TOTAL LINE 
GROUP 2 PA 7,000. TOTAL LINE 






DIVISION 5 SALES ! 22,068. TOTAL LINE 


GROUP3 4.000. TOTAL LINE 
GROUP4 3,000. TOTAL LINE 


DIVISION 6 SALES 7,060. TOTAL LINE 


GRAND TOTAL ; TOTAL LINE 


b. Example of printed report 


Figure 19—28. T-*AUTO Field Descriptions (Part 2 of 2) 
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19.4.2.1. Field Description that Prints a Field and Column Heading (Blank or B in 
Column 39 and Field Name in Columns 32 through 37) 


You use this field description to print an alphanumeric or numeric field on the lowest level 
total line and optionally print a column heading over it. 


Figure 19-29 illustrates the T-*AUTO field description that has a blank or B in column 39 
and a field name in columns 32 through 37. 


7-22 23-31 32-37 


FIELD NAME 


Figure 19—29. T-*AUTO Field Description (Blank or B in Column 39 and Field Name in Columns 32 through 37} 
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BLANK OR 
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19.4.2.1.1. Output Indicators - Fields (Columns 23 through 31) 


You use this field to specify output indicators that condition the printing of the field you 
specified in columns 32 through 37. The field is printed on the lowest level total line only 
when the conditions set by the indicators are met. If you don't want to specify an output 
indicator, leave these columns blank. Auto report prints the associated field each time the 
lowest level total line is printed. 


lf you want to specify an output indicator, enter it in these columns. By specifying an 
output indicator, you can suppress printing of common fields and thus reduce repetitive 
information. If you specify a column heading in columns 45 through 70 to be printed over 
the field you named in columns 32 through 37, the output indicators don't affect the 
column heading. See 8.2.8 for information about output indicators. 


19.4.2.1.2. Field Name (Columns 32 through 37) 


You use this field to specify the name of a field, an indexed array, or a table. The 
associated field, array, or table value is printed on the lowest level total line. 


When you specify more than one name, the fields are printed from left to right on a line in 
the order you specify. At least two spaces are inserted between each field on a line. The 
first field, however, begins in print position 1: 


DIVISION DEPARTMENT LEVEL SALES 





PRINT 
POSITION 1 AT LEAST TWO SPACES 
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19.4.2.1.3. Edit Codes (Column 38) 


You use this field to enter an edit code for a numeric field, indexed array, or table you 
named in columns 32 through 37. 


If you specified an alphanumeric field, table, or indexed array in columns 32 through 37, 
you must leave this column blank. 


If you named a numeric field, indexed array, or table in columns 32 through 37, you can 
enter an edit code. If you choose not to enter an edit code, auto report generates a K edit 
code, which prints a numeric field or numeric element with commas and a decimal point 
where needed (for example, 2,123.77). The K edit code also suppresses zeros so that zero 
balances are not printed and negative balances are printed with a minus sign on the right. 


19.4.2.1.4. Blank After (Column 39) 


You use this field to indicate whether or not you want to reset an alphanumeric field to 
blanks and a numeric field to zeros after it is printed on the first total line. 


lf you don’t want to reset an alphanumeric field to blanks or reset a numeric field (that 
isn’t totaled) to zeros, leave this column blank. 


If you want to reset the field to blank or zeros, enter a B. 


19.4.2.1.5. End Position in Output Record (Columns 40 through 43) 


You use this field to specify the end print position of the rightmost character of the field 
that is printed on the first total line. 


if you want auto report to generate end positions for fields and to center column headings, 
leave these columns blank. 


If you want to specify the end position of the rightmost character of the field, enter an end 
position. Specify end positions only to eliminate the automatic spacing between fields or to 
spread out a report on the page. The end position you specify may be changed a little by 
auto report when the line is centered or when the column heading and field are positioned 
in relation to each other. If the end position you specify causes an overlay with another 
field, auto report generates a new end position. 


19.4.2.1.6. First Column Heading Line (Columns 45 through 70) 


You use this field to print the first line of a column heading (constant) over the field you 
named in columns 32 through 37. 


If you don't want a column heading, leave these columns blank. 
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If you want to print a column heading, enter it in these columns. You must enclose it 
within apostrophes. The value is printed over the field you specified in columns 32 
through 37. 





When you specify a column heading, auto report automatically uses a double space after 
each single column heading line. If you specify a second or third line of column heading (C 
in column 39), auto report uses a single space after each column heading line except the 
last, which is followed by a double space: 













FIRST LINE OF COLUMN HEADING 
SECOND LINE OF COLUMN HEADING 
THIRD LINE OF COLUMN HEADING 


COMPANY REPORT 


SINGLE SPACE 


ANNUAL 
SINGLE SPACE 


1982 






DOUBLE SPACE 
FIELD 


You can’t specify any other spacing for column heading lines. 


When you use a column heading, its placement above the field you specified in columns 
32 through 37 depends on which is longer, the column heading or the field (including edit 
characters). 





When the column heading is longer than its associated field, the field is centered under 
the longest column heading constant: 














LONGEST COLUMN HEADING AJAX COMPANY ANNUAL SALES 


FIELD 198,808 .608 


When the column heading is shorter than its associated field, the column heading is left- 
justified over an alphanumeric field and right-justified over a numeric field: 


COLUMN HEADING COLUMN HEADING DEPT SALES 


ALPHANUMERIC FIELD NUMERIC FIELD DIVISION] 1,868.98 





When you specify more than one column heading, they are printed from left to right on a @ 
line in the order you specify. No spaces are provided within a column heading - you must 
incorporate spaces within the column heading to provide for additional spacing. 
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You can use column heading continuation lines (C in column 39) to specify a second or 
third line of a column heading. When you use a multiple-line column heading, the shorter 
column headings are centered under the longest column heading: 












SALESMAN OF THE 
YEAR 


LONGEST COLUMN HEADING 


SHORTER HEADING CENTERED 


If the column heading line is longer than the record ler.gth you specified for the printer 
file, an overflow print line is generated. The excess column headings are printed on the 
overflow line in the order you specified and are right-justified. See 19.7.6 for more 
information about overflow lines. 


If you want to specify your own end positions for the column headings and associated 
fields, enter the end position in columns 40 through 43 of the *AUTO field description. 


19.4.2.1.7. Examples of Entries on T-*AUTO Field Description (Blank or B in Column 
39 and Field Name in Columns 32 through 37) 


Figure 19-30 illustrates a report that prints fields on the lowest level total lines of the 
report and also prints column headings over the fields. 
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01/15/88 COMPANY REPORT PAGE 1 
DIVISION DEPARTMENT SALES 
LOWEST LEVEL 
TOTAL LINE GROUP 1 17,690.08 * 
LOWEST LEVEL GROUP 2 15,800.09 * 
TOTAL LINE 





Figure 19—30. Examples of Entries on T-*AUTO Field Description (Blank or B in Column 39 and Field Name in 
Columns 32 through 37) 


19.4.2.2. Field Description that Prints a Heading (Blank in Column 39 and Heading in 
Columns 45 through 70) 


You use this field description to print a heading (constant) on the lowest level total line. 





There is no column heading over this heading. 
Figure 19-31 illustrates the T-*AUTO field description that has a blank in column 39 and a & 
heading in columns 45 through 70. 
BLANK OR BLANK OR 
INDICATORS tas BLANK JenD Position] BLANK 
Figure 19—31. T-*AUTO Field Description (Blank in Column 39 and Heading in Columns 45 through 70) 
19.4.2.2.1. Output Indicators - Fields (Columns 23 through 31) 
You use this field to specify output indicators that condition the printing of the heading 
(constant) you specified in columns 45 through 70. The heading is printed on the lowest 
level total line each time the line is printed. 


If you don’t want to specify an output indicator, leave these columns blank. Auto report 
prints the heading on the lowest level total line. 


If you want to specify an output indicator to condition the printing of the heading, enter it 
in these columns. See 8.2.8 for information about output indicators. 





¢ 
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19.4.2.2.2. End Position in Output Record (Columns 40 through 43) 


You use this field to specify the end print position of the rightmost character of the 
heading (constant) that is printed on the lowest level total line. 


If you want auto report to generate end positions for headings, leave these columns blank. 


if you want to specify the end position of the rightmost character of the heading, enter an 
end position. Specify end positions only to eliminate the automatic spacing between fields 
or to spread out a report on the page. If the end position you specify causes an overlay 
with another field, auto report generates a new end position. 


19.4.2.2.3. Heading (Columns 45 through 70) 


You use this field to print a heading (constant) on the first total line. You must enclose the 
heading within apostrophes. 


When you specify more than one heading, they are printed from left to right on a line in 
the order you specify. No spaces are provided within a heading - you must incorporate 
spaces within it to provide for additional spacing. 


19.4.2.2.4. Examples of Entries on T-*AUTO Field Description (Blank in Column 39 
and Heading in Columns 45 through 70) 


Figure 19-32 illustrates a report that contains a heading (constant) printed on the lowest 
level total line. 
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~~ 61/15/88 COMPANY REPORT PAGE 1 
DIVISION DEPARTMENT LEVEL SALES 
LOWEST LEVEL 
—_ TOTAL LINE FIRST GROUP eo ee ee 17,908.06 * 
LOWEST LEVEL FIRST GROUP —_——. a , ete 15,080.00 * 
TOTAL LINE 





Figure 19—32. Examples of Entries on T-*AUTO Field Description (Blank in Column 39 and Heading in Columns 45 
through 70) 


19.4.2.3. Field Description that Prints a Numeric Field and Column Heading and 
Accumulates Totals (A in Column 39) 


You use this field description to print a numeric field on the lowest level total line and to 
accumulate totals for it on higher level total lines. You can optionally print a column 
heading over the numeric field. & 


A total is printed for each control level (L1 through L9) you defined in columns 59 and 60 
of the input specifications, and a final total is printed. 


Figure 19-33 illustrates the T-*AUTO field description that has an A in column 39. 





BLANK OR BLANK OR 
BLANK BLANK FIELD NAME EDIT A TS BC RION COLUMN 
CODE HEADING 


Figure 19—33. T-*AUTO Field Description (A in Column 39) 


Auto report generates calculations to accumulate totals for the fields you specify in 
columns 32 through 37 and places the calculations in the following order: 


1. EXSR statement for the subroutine named AS$SUM generated by auto report 


The EXSR statement and ali ADD statements are unconditioned. 
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@ 2. Total calculations generated by auto report 

They are sorted by level starting with LO. These total calculations accumulate totals 
for the fields you name on T-*AUTO specifications that have an A in column 39. Auto 
report generates a Z-ADD calculation conditioned by LO that resets each of the 
accumulated total fields on the lowest level total to zero after they are printed. This 
prevents the same value from being accumulated more than once. These calculations 
are the first total calculations in the generated source program. 

3. Total calculations you specify 

4. Subroutines you specify 


5. RPG Il subroutine named ASSSUM generated by auto report that accumulates the 
lowest level total 
19.4.2.3.1. Output Indicators - Fields (Columns 23 through 31) 


You can’t use this field when column 39 contains an A. 


19.4.2.3.2. Field Name (Columns 32 through 37) 


@ You use this field to specify the name of a total numeric field that is accumulated and 
printed on the generated total line. 


When you specify more than one name, the fields are printed from left to right on a line in 


the order you specify. At least two spaces are inserted between each field on the line. The 
first field, however, begins in print position 1: 


DIVISION DEPARTMENT LEVEL SALES 





PRINT 
POSITION 1 AT LEAST TWO SPACES 
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Auto report generates an RPG Ii subroutine named A$S$SUM that creates and names 
additional totaling fields based on the field name you specify to generate calculation and 
output specifications that accumulate and print the various levels of totals required. 


If you want to accumulate a numeric field on the total line, enter the name of the field in 
columns 32 through 37 and an A in column 39. The associated field is printed on the 
lowest level total lines and totals for it are printed on higher level total lines. You can't 
identify an array, array element, or table. 


You can specify totaling for any particular field only once in each program. 


Pay attention to field names that end with a number from 1 through 9 or an R in an auto 
report program that accumulates totals, because auto report generates total fields that end 
in those characters. 


If the field name you specify has fewer than six characters, any character from 1 through 
9 or an R is added to the name to create a name for the total field. This added character 
corresponds to the total indicators L1 through L9 and LR, respectively. For example, if you 
specify a field name of GROUP and all nine control levels are defined, the generated field 
names are GROUP1, GROUP2,...GROUP9, and GROUPR. 


If the field name you specify has six characters, the last character is replaced by one of 
the characters from 1 through 9 or an R. For example, if you specify a field name of 
SUPPLY and all nine control levels are defined, the generated field names are SUPPL1, 
SUPPL2,..., SUPPL9, and SUPPLR. 


You can’t use any one field name more than once if you use an A in column 39. Also, if 
you specify a 5- or 6-character field name with an A in column 39, you can't specify a 
second 5- or 6-character field name that has the same first five characters with an A in 
column 39. For example, if you specify the following three field names with an A in 
column 39, all but the first are invalid: 


GROUP Valid 


GROUPW Invalid because the first five characters duplicate the first five 
characters of the first field 


GROUP Invalid because it is a duplicate of the first field 


19.4.2.3.3. Edit Codes (Column 38) 


You use this field to enter an edit code for the numeric field you named in columns 32 
through 37 as well as for all the generated total fields. 


lf you don’t want to enter an edit code, leave this column blank. Auto report generates a K 
edit code, which prints a numeric field with commas and a decimal! point where needed 
(for example, 2,123.77). The K edit code suppresses zeros so that zero balances are not 
printed and prints negative balances with a minus sign on the right. 


If you want to enter an edit code, enter it in this column. See 8.3.3 for information about 
edit codes. 
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19.4.2.3.4. Accumulate Totals (Column 39) 


You use this field to indicate that you want to accumulate and print totals for the numeric 
field you named in columns 32 through 37. You can specify totaling only once for any 
particular field in each program. 


If you want to accumulate and print totals for the numeric field you named in columns 32 
through 37, enter an A. Auto report generates a subroutine named A$S$SUM that 
accumulates the values from the fields into the lowest level total lines. 


Auto report generates a B (blank after) in column 39 of all the detail and total field 
descriptions generated for the field name you specify. Thus, the value in the field you 
specified (and in any generated field) is reset to zero after the field value is printed. 


Total fields are generated and named for all control level indicators you defined in columns 
59 and 60 of the input specifications. Total calculations accumulate totals for the field you 
named in columns 32 through 37. Total calculations roll (add) the total from the lowest 
level total field to that of the next higher level field and end with a final total. This process 
is called total rolling. 


For example, if you assign L1 and L3 to control fields on the input specification and specify 
the field PRD in columns 32 through 37 of the field description, three total fields (PRD1, 
PRD3, and PRDR) are generated and named by auto report. All total fields generated for 
the same level, such as PRD1 and SUPPL1 are printed on the same total line, and that line 
is conditioned by the corresponding control level indicator. 


Generated total fields are two digits longer than the original field but the number of 
decimal positions remain the same in the generated fields. For example, if you use an edit 
code to define a field with a length of four characters (xx.xx), the length of each generated 
field is six characters (x,xxx.xx). 


if the generated field is identical to a previously defined numeric field, the generated field 
is assigned the previously defined length and number of decimal positions (if the 
previously defined field is numeric). 


Auto report prints asterisks to the right of generated total lines so you can tell they are 
total lines. One asterisk is printed to the right of the lowest level total line and two 
asterisks are printed to the right of the next level total and so on. For example, if you 
defined L1 and L3 control level indicators in a program, one asterisk is printed to the right 
of the L1 line, two asterisks are printed on the L3 line, and three asterisks are printed on 
the LR line. As many as 10 asterisks are printed on the LR line if you define all 9 control 
level indicators in the program. 


To suppress the generation of asterisks on total lines, enter an N in column 28 of the auto 
report options specifications form. 


Auto report generates a Z-ADD calculation conditioned by LO that resets each of the 
accumulated total fields on the lowest level total line to zero after they are printed. 
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19.4.2.3.5. End Position in Output Record (Columns 40 through 43) 


You use this field to specify the end print position of the rightmost character of the field 
that is printed on the generated total line. 


If you want auto report to generate end positions for fields and to center column headings, 
leave these columns blank. 


lf you want to specify the end position of the rightmost character of the field, enter an end 
position. Specify end positions only to eliminate the automatic spacing between fields or to 
spread out a report on the page. The end position you specify may be changed a little by 
auto report when the line is centered or when the column heading and field are positioned 
in relation to each other. If the end position you specify causes an overlay with another 
field, auto report generates a new end position. 


19.4.2.3.6. First Column Heading Line (Columns 45 through 70) 


You use this field to print the first line of a column heading (constant) over the generated 
total field you named in columns 32 through 37. 


If you don’t want a column heading, leave these columns blank. 


If you want to print a column heading, enter it in these columns. You must enclose it 
within apostrophes. The value is printed over the accumulated total of the field you 
specified in columns 32 through 37. 


When you specify a column heading, auto report automatically uses a double space after 
each single column heading line. If you specify a second or third line of column heading (C 
in column 39), auto report uses a single space after each column heading line except the 
last, which is followed by a double space: 






COMPANY REPORT 






FIRST LINE OF COLUMN HEADING 
SECOND LINE OF COLUMN HEADING 
THIRD LINE OF COLUMN HEADING 


SINGLE SPACE 
SINGLE SPACE 


ANNUAL 
1982 








DOUBLE SPACE 
FIELD 





You can't specify any other spacing for column heading lines. 


When you use a column heading, its placement above the field you specified in columns 
32 through 37 depends on which is longer, the column heading or the field (including edit 
characters). 


When the column heading is longer than its associated field, the field is centered under 
the longest column heading constant: 
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LONGEST COLUMN HEADING AJAX COMPANY ANNUAL SALES 












FIELD CENTERED 199,860 .808 








When the column heading is shorter than its associated field, the column heading is left- 
justified over an alphanumeric field and right-justified over a numeric field: 


COLUMN HEADING COLUMN HEADING DEPT SALES 


ALPHANUMERIC FIELD NUMERIC FIELD DIVISION] 1,896.08 





When you specify more than one column heading, these headings are printed from left to 
right on a line in the order you specify. No spaces are provided within a column heading - 
you must incorporate spaces within the column heading to provide for additional spacing. 


You can use column heading continuation lines (C in column 39) to specify a second or 
third line of a column heading. When you use a multiple line column heading, the shorter 
column headings are centered under the longest column heading: 






SALESMAN OF THE 
YEAR 






LONGEST COLUMN HEADING 


SHORTER HEADING CENTERED 





If the column heading line is longer than the record length you specified for the printer 
file, an overflow print line is generated. The excess column headings are printed on the 
overflow line in the order you specified and are right-justified. 


If you want to specify your own end position for column headings and their associated 
fields, enter the end position in columns 40 through 43 of the T-*AUTO specification. 


19.4.2.3.7. Examples of Entries on T-*AUTO Field Description (A in Column 39) 


Figure 19-34 illustrates a report that prints a numeric field on the lowest level total line 
and then accumulates totals for it on higher level total lines. A final total is also printed. A 
column heading is printed over the numeric field. 
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Figure 19—34. Examples of Entries on T-*AUTO Field Description (A in Column 39) 


19.4.2.4. Field Description that Prints Second and Third Column Heading Line (C in 
Column 39) 


You use this field description to print a second or third line of a column heading. You can 
use one or two C specifications following a field description that has an A, B, or blank in 
column 39 and a field name in columns 32 through 37. 


Figure 19-35 illustrates the T-*AUTO field description that has a C in column 39. 
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Figure 19—35. T-*AUTO Field Description (C in Column 39) 











COLUMN 
HEADING 


19.4.2.4.1. Column Heading Continuation Lines (Column 39) 


You use this field to indicate that you want a second and third column heading line if 
there is more information in a column heading than can be contained on one line. 


If you want to specify continuation lines for a column heading, enter a C. The column 
heading you specify in columns 45 through 70 is printed on the second or third lire of the 
column heading. 


19.4.2.4.2. Second and Third Column Heading Line (Columns 45 through 70) 


You use this field to print a second or third column heading line. If you don't want to 
specify a second or third column heading line, leave these columns blank. 


@ If you want to specify continuation lines for a column heading you specified on a field 
description with a B, blank, or A in column 39, enter them in these columns. If this is the 
first C specification, you are specifying the second line of the column heading. If this is the 
second C specification, you are specifying the third line of the column heading. You can't 
use more than two C specifications. You can specify column headings continuation lines 
that are up to 24 characters long, including blanks. You must enclose them within 
apostrophes. Short column headings are centered under the longest column headings. 


Auto report uses a single space after each column heading line except the last, which is 
followed by a double space: 






COMPANY REPORT 
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19.4.2.4.3. Examples of Entries on T-*AUTO Field Description (C in Column 39) 





Figure 19-36 illustrates a report that contains multiple-line column headings. 
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STORE 


COMPANY 


REPORT 


PAGE 1 
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Figure 19—36. Examples of Entries on T-*AUTO Field Description (C in Column 39) 


19.4.2.5. Field Description that Prints a Heading next to a Total (1 through 9 or R 
in Column 39) 


You use this field description to print a heading (constant) on a specific total line 
generated from an A in column 39. You can only use this field description if you used a 
field description with an A in column 39. The heading you enter is printed on the total line 
that corresponds to the level-(L1 through L9 or LR) you specified in column 39. 
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ee Figure 19-37 illustrates the T-*AUTO field description that has a number from 1 through 9 


or an R in column 39. 
ey et BLANK BLANK HEADING 


| 7-22 | 23-31 32-37 
Figure 19—37. T-*AUTO Field Description (1 through 9 or R in Column 39) 














BLANK BLANK BLANK BLANK 


19.4.2.5.1. Specific Total Line (Column 39) 


You use this field to identify a specific total line on which the heading (constant) is printed. 
The heading is printed to the left of the leftmost total on the line. 


If you didn’t define any of the field descriptions with an A in column 39, you can’t use an 
entry in this column. 


If you want to print the heading on a specific total line, enter a number from 1 through 9 
or an R. This entry corresponds to the indicators L1 through L9, which you defined in 
columns 59 and 60 of the input specifications, and LR. For example, 4 in column 39 

@ indicates the information is printed on the L4 total line and an R in column 39 indicates 
the information is printed on the final total (LR) line. 


Your entry must be higher than the lowest control level indicator you used in columns 23 
through 31 of the T-*AUTO output file identification. If you didn’t specify control level 
indicators on the T-*AUTO output file identification, use only entries that are higher than 
the lowest control level indicators you defined in columns 59 and 60 of the input 
specifications. 


19.4.2.5.2. Heading (Columns 45 through 70) 


You use this field to print a heading (constant) on a specific total line. You must enclose 
the heading within apostrophes. 


The heading that will appear next to a total is printed to the left of the first total. It is 
separated from the total by two spaces. If you specify two or more headings (or fields) to 
appear next to a total, they are printed in the order you specified: 


HEADING TOTAL SALES 168.898 


TWO SPACES 
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19.4.2.5.3. Examples of Entries on T-*AUTO Field Description (1 through 9 or R 
in Column 39) 





Figure 19-38 illustrates a report that contains a heading (constant) printed next to the 
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Figure 19—38. Examples of Entries on T-*AUTO Field Description 
(1 through 9 or R in Column 39) 
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19.4.2.6. Field Description that Prints a Field next to a Total (1 through 9 or R in 
Column 39 and Field Name in Columns 32 through 37) 


You use this field description to print an alphanumeric or numeric field on a specific total 
line generated from an A in column 39. You can only use this field description if you used 
a field description with an A in column 39. The field you enter is printed on the total line 
that corresponds to the level (L1 through L9 or LR) you specified in column 39. 


Figure 19-39 illustrates the T-*AUTO field description that has a number from 1 through 9 
or an R in column 39 and a field name in columns 32 through 37. 


BLANK OR BLANK OR 


Epit cope | 1-9 ORR] BLANK EDIT WORD 





Figure 19—39. T-*AUTO Field Description (1 through 9 or R in Column 39 and 
Field Name in Columns 32 through 37} 


19.4.2.6.1. Field Name (Columns 32 through 37) 


You use this field to specify the name of a field, an indexed array, or a table. The 
associated field, array, or table is printed on a specific total line. 


When you specify a field to appear next to a total, it is printed to the left of the first total. It 


is separated from the total by two spaces: 


FIELD__TOTAL 23_ 199.08 


TWO SPACES 


If you specify two or more fields (or headings) to appear next to a total, they are printed in 
the order you specified. Each field is separated by one space. 
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19.4.2.6.2. Edit Codes (Column 38) 


You use this field to enter an edit code for a numeric field, indexed array, or table you 
named in columns 32 through 37. 


If you specified an alphanumeric field, table, or indexed array in columns 32 through 37, 
you must leave this column blank. Also, leave this column blank if you don’t want to use 
an edit code. 


If you named a numeric field, indexed array, or table in columns 32 through 37, you can 
enter an edit code. When you specify an edit code, you must leave columns 45 through 70 
blank. 


19.4.2.6.3. Specific Total Line (Column 39) 


You use this field to identify a specific total line on which the field you described in 
columns 32 through 37 is printed. The field is printed to the left of the leftmost total on 
the line. 


If you didn’t define any of the field descriptions with an A in column 39, you can’t use an 
entry in this column. 


To print the associated field on a specific total line, enter a number from 1 through 9 or an 
R. This entry corresponds to the indicators L1 through L9, which you defined in columns 
59 and 60 of the input specifications, and LR. For example, 4 in column 39 indicates the 
information is printed on the L4 total line, and R in column 39 indicates the information is 
printed on the final total (LR) line. 


Your entry must be higher than the lowest control level indicator you used in columns 23 
through 31 of the T-*AUTO output file identification. If you didn’t specify control level 
indicators on the T-*AUTO output file identification, use only entries that are higher than 
the lowest control level indicators you defined in columns 59 and 60 of the input 
specifications. 


19.4.2.6.4. Edit Word (Columns 45 through 70) 


You use this field to edit numeric fields that you want printed on a specific total line. 


If you specified an edit code in column 38, you must leave these columns blank. Also, 
leave these columns blank if you don't want to specify an edit word. 


If you want to edit the field, enter an edit word. See 8.3.8 for information about edit 
words. 
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19.4.2.6.5. Examples of Entries on T-*AUTO Field Description (1 through 9 or R 
in Column 39 and Field Name in Columns 32 through 37) 


Figure 19-40 illustrates a report that contains a heading and a field printed next to the 


final total. 
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Figure 19—40. Examples of Entries on T-*AUTO Field Description (1 through 9 or R in Column 39 and Field Name in 
Columns 32 through 37} 
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19.4.2.7. Examples of Entries on T-*AUTO Specifications 
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Figure 19-41 illustrates a report that contains information generated by all the T-*AUTO 
field descriptions. 
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Figure 19—41. 





c. Code input format specifications form 


Examples of Entries on T-*AUTO Specifications (Part 1 of 2) 
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d. Code H-*AUTO and T-*AUTO specifications in the output format specifications form 
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e. The printed report 


Figure 19—41. Examples of Entries on T-*AUTO Specifications (Part 2 of 2) 
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19.5. AUTO REPORT OPTIONS SPECIFICATIONS FORM 


You use the auto report options specifications form (Figure 19-42) to specify the options 
you want to use with the output from auto report. 


These options include: 

= Cataloging the generated source program into a library file 

# Suppressing the generated date and page number so that they aren't printed 

= Suppressing asterisks so that they aren't printed next to the generated totals 

=  Suppressing listings or obtaining only diagnostics 

The auto report options specifications form is not required. If you don’t use this form, the 
options that correspond to the blank entries on the auto report options specifications form 
become the default values. 


If you use this form, it must be the first form in the program. 


You can’t place auto report options specifications in a library file module that is copied by 
a /COPY statement. 


If you didn’t include control specifications (H in column 6) either in the auto report source 
program or in a library file module that is copied by a /COPY statement, auto report 
generates a control specification with blank entries that provides information about the 
RPG Il program and describes the system requirements to the RPG Il compiler. See 
Section 4 for an explanation of the blank entries for the control specification. 


19.5.1. Form Entries 

In the following subsections, you'll see what the fields on the form are used for and how 
the entries in these fields affect your program. 

19.5.1.1. Catalog Source Program in Library File (Column 7) 

You use this field to indicate whether or not you want the generated source program to be 
written in a library file. In addition, the generated source program is also written in the 


system resident $YSSRC disk file using the specified module name. 


If you want to write the generated source program only into the system resident $Y$SRC 
disk file using the module name RPGSRC, leave this column blank. 
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Figure 19—42. Auto Report Options Specifications Form 
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If you want to catalog the generated source program in a library file on disk, enter a C. & 
This cataloged source program becomes a permanent library file module. If, however, you 

catalog a new module with the same name as an old module, the new module replaces 

the old one. If your auto report specifications contain fatal errors, the generated source 

program isn’t cataloged. 


19.5.1.2. Library File and Module Name (Columns 8 through 24) 


You use this field if you decide to catalog the generated source program in a library file (C 
in column 7). You identify the disk on which the library file resides and the name under 
which the generated source program is cataloged. 


To identify the disk on which the library file resides, enter F1 (system library) or the name 
you specified on the LFD job control statement followed by a comma. Then, specify the 
name under which the source program is cataloged. 


[LFDname],modulename 


The LFD name and the module name can be up to eight characters in length and must 
begin with an alphabetic character from A through Z or one of these special characters: #, 
$, or @. The remainder of the name may be any combination of alphabetic, numeric, or 
special characters. 


If you don’t use an LFD name, the default is F1. If you don’t enter a module name, an 
error occurs. 





If you catalog a new module with the same name as an old module, the new module 
replaces the old one. 


If you don’t use columns 8 through 24 on the auto report options specifications form, the 
generated source is always output to element RPGSRC and file $Y$SRC if there are no 
serious errors. 


19.5.1.3. Date Suppress (Column 27) 


You use this field to suppress the generated date and page number so that they aren't 
printed on the first H-*AUTO page heading line. 


If you want the page number and date printed on the first H-*AUTO page heading line, 
leave this column blank. 


To suppress the page number and date printed on the first H-*AUTO page heading line, 
enter an N. With the date and page number suppressed, you can have a title that takes up 
the entire line. 
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@ 19.5.1.4. Asterisks Suppress (Column 28) 


You use this field to suppress asterisks so that they aren't printed next to totals generated 
by D-*AUTO or T-*AUTO (A in column 39). 


If you want to print asterisks next to generated totals, leave this column blank. The 
asterisks are printed to the right of the highest end position on a generated total line as 
specified in the D-*AUTO or T-*AUTO specifications. 


If you don’t want to print asterisks next to generated totals, enter an N. 


19.5.1.5. List Options (Column 30) 
You use this to control an auto report listing. A complete listing contains: 
= Original source listing 


Auto report prints a listing of your source program as it is retrieved. This listing is the 
base for the error message listing. 


= Generated source listing 


Auto report prints a listing of the source program that is generated by auto report and 
= the specifications copied from a library file. 


= Auto report error message listing 


Auto report prints a listing of diagnosed errors from the original source listing. See 
Appendix G for an explanation of the auto report error messages. 


If you want to print the complete source listing along with headings and diagnostics, leave 
this column blank. 


If you don't want to print the complete source listing, enter a B. Use a B if you want to 
produce a source program that already has a listing. 


If you want to print only a partial source listing, enter a P. This partial listing includes 
headings and diagnostics. Use P to see if small modifications to a program you already 
tested have produced any errors. 


Auto report prints the original specifications and specifications copied from a library file in 
the following format: 


# Columns 1 through 4 


Sequence number of the specification. This number starts with 0001 on the RPG II 
control specification and is incremented by 1 on each specification that follows (e.g., 

& 0001, 0002, 0003, etc). If more than 999 specifications are present in the program, 
the sequence is restarted at OOOO. 
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a Column 5 





Code that identifies the specification 
- Blank 
Standard RPG Il specifications present in the auto report program 
- C 
Specifications copied from a library file by the /COPY statement 
= Columns 6 through 80 
Standard RPG Il specifications 


Compile-time tables and arrays are not changed by auto report; they remain in standard 
table/array record format. 


Auto report prints the generated source listing in the following format: 

= Columns 1 through 4 
Sequence number of the specification. This number starts with 0010 on the RPG Ii 
control specification and is incremented by 10 on each specification that follows (e.g., 


0010, 0020, 0030, etc). If more than 999 specifications are present in the program, 
the sequence is restarted at OOOO. 





= Column 5 
Code that identifies the specification 
- Blank 
Standard RPG Il specifications present in the auto report program 
- C 
Specifications copied from a library file by the /COPY statement 
- €E 
Specifications generated by H-*AUTO, D-*AUTO, or T-*AUTO specifications 
- M 


File description and input specifications copied from a library file and modified by 
/COPY modifier statements. 
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a gt a a i 
= Columns 6 through 74 
Standard RPG Hl specifications 
# Columns 75 through 80 
Same characters that are present in columns 75 through 80 of the RPG II control 
specification. (If these are blank on the control specification, they are also blank on all 
specifications in the generated RPG II program.) 
Compile-time tables and arrays are not changed by auto report; they remain in standard 
table/array record format. 
19.5.2. Examples of Entries on the Auto Report Options Specifications Form 


Figure 19-43 catalogs the generated source program into the module named LIB on the F1 
disk. A complete source listing is printed. 








DATE SUPPRESS 
ASTERISK SUPPRESS 
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CATALOG 
SOURCE 







LIBRARY FILE AND MODULE NAME 
LFD name, modulename 


3 B/P OR BLAN’ 
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Figure 19—43. Examples of Entries on Auto Report Options Specifications Form 


19.6. /COPY STATEMENT 


You use the /COPY statement to copy cataloged RPG II specifications from a library file 
(MIRAM or SAT) and insert them into an RPG II source program. This statement identifies 
the file that contains the copy module that contains the copied RPG Il specifications. 


By using the /COPY statement, you can copy source specifications and include them in 
several different programs. In this way, you don’t need to repeat code specifications that 
are used in different programs. 


You can copy auto report specifications and any valid RPG II specifications including tables 
and arrays in this manner. You can’t, however, copy the auto report option specifications 
and other /COPY statements. You must place /COPY statements after the auto report 
options specifications, and they must precede source tables and arrays. 


The specifications you include in an auto report program by the /COPY statement are 
initially placed in the program immediately after the /COPY statement. After all the 
specifications are copied from the library file, the entire auto report program is sorted into 
the following order: 
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1. Control specifications 

2. File description specifications 

3. Extension specifications 

4. Line counter specifications 

5. Telecommunications specifications 

6. Input specifications 

7. Calculation specifications in the order: detail, LO, L1 through L9, LR, and subroutines 
8. Output specifications 


9. Tables and arrays loaded at compilation time, which are placed last among the input 
statements to auto report. 


After this sorting, auto report generates RPG II calculations and output specifications from 
the H-*AUTO, D-*AUTO, or T-*AUTO specifications. These generated specifications are 
then sorted. 

19.6.1. Form Entries 

In the following subsections, you'll see how the fields on the /COPY statement are used 
and how the entries in these fields affect your program. 

19.6.1.1. Form Type (Column 6) 


This field identifies the specification that contains the /COPY statement. 


Use any specification except control (H) or auto report options (U). 


19.6.1.2. /COPY (Columns 7 through 11) 


You use this field to indicate that you want to copy cataloged RPG II specifications from a 
library file and insert them into an RPG II source program. 


Enter /COPY in these columns. 


19.6.1.3. Library File and Module Name (Columns 13 through 29) 


You use this field to identify the file that contains the copy module that contains the 
cataloged RPG II specifications. 
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To identify where the copy module resides, enter F1 (system library) or the name you 
specified on the LFD job control statement followed by a comma. Then, specify the name 
under which the source program is cataloged. 


[LFDname] ,modulename 


The LFD name and the module name may be up to eight characters in length and must 
begin with an alphabetic character from A through Z or one of these special characters: #, 
$, or @. The remainder of the name may be any combination of alphabetic, numeric, or 
special characters. 


lf you don’t use an LFD name, the default is F1. If you don’t enter a module name, an 
error occurs. 


When you copy elements from the same file as the original source or from other copy 
elements, the Ifdnames must be unique for each element. 


19.6.1.4. Comments (Columns 50 through 80) 

You use this field to enter any information or comments. The contents of these columns 
are not read by auto report. 

19.6.2. Examples of Entries on the /COPY Statement 


Figure 19-44 copies specifications for a file from the module named ORDR. 
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Figure 19—44. Examples of Entries on /COPY Statement 


19.6.3. /COPY Modifier Statements 


You can include modifier statements with the /COPY statement to modify, add, or delete 
entries on cataloged file description (F) and input (I) specifications as they are copied from 
the library file. You can’t modify any other type of specification. 


The modifier statements don't alter the cataloged specifications directly in the library 
file. The modifications are only for the copies of the specifications included in the 


program. <~ 
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19.6.3.1. /COPY Modifier Statements for File Description Specifications 


You can include modifier statements with the /COPY statement to modify, add, or delete 
entries on the file description specifications as they are copied from the library file. 


19.6.3.1.1. Form Type (Column 6) 
You use this field to indicate that you want to modify a file description specification. 


You enter your modifier statements on a file description specification (F) because the 
modifier statements will immediately follow it and can be put on the same specification. 


19.6.3.1.2. File Name (Columns 7 through 13) 


You use this field to specify the name of the file description specification that you want to 
modify. 


Enter the name of the file. You can use only one file description specification with a 
particular file name from the library file entries and you can use a particular file name 
only once in a modifier statement. 


NOTE: 


The file name can be eight characters long. 


19.6.3.1.3. Modifying File Description Entries (Columns 15 through 80) 


You use this field to modify or add entries on a file description specification that is copied 
from a library file. 


To make modifications, enter the file name in columns 7 through 13, and then in columns 
15 through 80 make only those entries on the line that are to replace existing entries in 
the copied specification or that are to be included as new entries. Blank entries in the 
modifier statement don't affect the copied statement. 


For example, assume that you want to copy the file description specifications for a 
frequently used file named ORDERS from the system library. The original specification 
contains an | in file type (column 15), which defines ORDERS as an input file. If you want 
to update the ORDERS file, change column 15 to U by including a modifier file description 
specification in the auto report source program. You must include the file name ORDERS 
and the new file type entry U. The result of the modifier statement is that the file type on 
the copied file description specification is changed from | to U (see Figure 19-45). 
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FILE DESCRIPTION SPECIFICATIONS { 


FILE TYPE FILE PROCESSING MODE EXTENSION DF. FILE ADDITION/UNORDERED LOAD 
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a. File description specification for the ORDERS file as it is cataloged in a library file 
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b. /COPY statement that copies the file description specification for the ORDERS file from the module named ORDR 


FILE DESCRIPTION SPECIFICATIONS { 


FILE PROCESSING MODE EXTENSION OR FILE ADDITION/UNORDERED LOAD 
FILE OESIGNATION KEY OR RECORD LINE COUNTER NUMBER. CYLINDER OVERFLOW 
ADDRESS FIELD LENGTH cooE NAME OF OF BYTES SPACE PERCENTAGE {X10} 


IN MAIN 
RECORO ADORESS TYPE LABELER STORAGE NUMBER OF EXTENTS 
TAPE REWIND OPTION 


OR NAME OF 
FILE FORMAT FILE ORGANIZATION user Device | TOBE RESERVED 
FOR 
FILE CONDITIONERS 


OVERFLOW ROUTINE INDEX 
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STARTING A 
LOCATION 


A/U OR BLANK 


sLOcK RECORD 
LENGTH | LENGTH 
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c. Modifier statement for the file description 
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d. Resulting file description specification for the ORDERS file that is inserted into the source program 


Figure 19—45. Modifying File Description Entries 
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You don't have to place modifier statements for file description specifications in any 
particular order in the auto report source program, except that they can't immediately 
follow the /COPY statement if input field specifications are also being modified. 


You can’t use any modifications to the file description continuation specifications that 
accompany a copied file description. If you want to add new continuation specifications, 
place them after a file description modifier statement for the file. You can use a 
maximum of five continuation specifications to follow a file description specification 
(combined total of original and added continuation specifications). 


19.6.3.1.4. Setting File Description Entries to Blanks (Columns 15 through 80) 


If you want to set an entry to blanks, enter an ampersand (&) in the first position of that 
entry on the modifier statement and leave the remaining positions blank. For example, if 
you want to remove the block length entry (columns 20 through 23) from a cataloged file 
specification, add an ampersand to the modifier statement in column 20 and leave 
columns 21 through 23 blank. (See Figure 19-46.) 
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a. File description specification for the ORDERS file as it is cataloged in a library file 
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b. /COPY statement that copies the file description for the ORDERS file from the module named ORDR 


Figure 19—46. Setting File Description Entries to Blanks (Part 1 of 2) 
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FILE DESCRIPTION SPECIFICATIONS 


FILE TYPE FILE PROCESSING MODE EXTENSION OR FILE ADDITION/UNOROERED LOAD 
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c. Modifier statement for the file description 
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d. Resulting file description specification for the ORDERS file that is inserted into the source program 


Figure 19—46. Setting File Description Entries to Blanks (Part 2 of 2) 


19.6.3.2. /COPY Modifier Statements for Input Format Specification 
You can include modifier statements with the /COPY statement to modify, add, or delete 


entries on the input field specifications as they are copied from the library file. Input field 
specifications describe individual fields on the input records. 


19.6.3.2.1. Form Type (Column 6) 

You use this field to indicate that you want to modify an input field specification. 

Enter your modifier statements on an input specification (I) because the modifier 
Statements will immediately follow it and can be put on the same specification. 
19.6.3.2.2. Field Name (Columns 53 through 58) 


You use this field to specify the name of an input field from an input field description 
copied from a library file that you want to modify. 


Y 





UP-8067 Rev. 6 SPERRY UNIVAC OS/3 19-96 
RPG I 


Enter the name of the input field. The modifier statement modifies all copied input field 
specifications that have the same field name. If there is no input field by the same name, 
the modifier statement is added to the program as a new input field specification. You can 
use modifier statements that have the same field names (length and number of decimal 
positions must also be the same), but only the first is used to modify a copied 
specification. Other field names are added as new input field specifications. 


19.6.3.2.3. Modifying Input Format Entries (Columns 43 through 70) 


You use this field to modify an input field on the input format specification that describes 
individual fields on the input record. 


The fields that you can modify are: 

® Column 43 (packed/binary) 

= Columns 44 through 51 (field location) 

= Column 52 (decimal positions) 

= Columns 59 and 60 (control levels) 

= Columns 61 and 62 (matching or chaining fields) 
= Columns 63 and 64 (field record relation) 

® Columns 65 through 70 (field indicators) 


The method of replacing, adding, or blanking entries is similar to the method used to 
modify file description specifications. 


If you want to modify an input field specification copied from a library file, enter the field 
name in columns 53 through 58 of an input field specification (I in column 6). Then you 
make only those entries on the line that are to replace existing entrieS in the copied 
specification or that are to be included as new entries. Blank entries in the modifier 
statement don’t affect the copied statement. You must place modifier statements for input 
field specifications immediately after the /COPY statement in the auto report program that 
copies those specifications. 


For example, assume that you want to copy an input field specification for a frequently 
used file named ORDERS from the system library. The original specification doesn’t 
contain the entries you-need. You must include a /COPY statement and the modifications 
you want to make. The results of the modifier statement are that the fields on the input 
field specification are changed to the new values. (See Figure 19-47.) 
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/COPY statement that copies the input specifications for the ORDERS file from the module named ORDR and 


the modifier statements that add an L1 indicator to the ITEMI field description and add an L2 indicator to the 
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Resulting input specification for the ORDERS file that is inserted into the source program 


Figure 19—47. Modifying Input Field Entries 
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The first specification that follows the /COPY statement that is not an input field 
specification is considered the end of the input field modifier statements for the /COPY 
statement. (A comment statement with an | in position 6 is not considered the end of the 
input field modifier statements.) 


You can use up to 20 input field modifier statements per /COPY statement. For best 
results, first use those statements that modify existing input field specifications, then use 
those that are to be added as new input field specifications. Thus, input field modifier 
statements that don’t fit into the special main storage table for modifier statements are 
added to the RPG Il source program as new input field specifications. This order of 
specifying modifier statements increases the likelihood that excess statements, if any, will 
be valid field descriptions. 


19.6.3.2.4. Setting Input Format Entries to Blanks (Columns 43 through 70) 


If you want to set an input field entry to blanks, enter an ampersand (&) in the first 
position of that entry on the modifier statement, and leave the remaining positions blank. 
For example, if you want to remove the minus field indicator entry (columns 67 and 68) 
from a cataloged specification, add an ampersand to the modifier statement in column 67 
and leave column 68 blank. (See Figure 19-48.) 
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a. Input specification for the ORDERS file as it is cataloged in a library file 


Figure 19—48. Setting Input Field Entries to Blanks (Part 1 of 2) 
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b. 





/COPY statement that copies the input specification for the ORDERS file from the module named ORDR and the 


modifier statement that sets the minus field indicator for VALUE to blanks 
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c. 


Resulting input specification for the ORDERS file that is inserted into the source program 


Figure 19—48. Setting Input Field Entries to Blanks (Part 2 of 2) 
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19.7. SUMMARY OF HOW AUTO REPORT FORMATS YOUR REPORTS 


One of the advantages of auto report is that it frees you from specifying the format of your 
report on the output specifications. Auto report can automatically format your printed 
report by spacing, skipping, centering lines, and calculating end positions for fields and 
headings. 


If you don’t want auto report to automatically format your report, you must specify the 
appropriate entries on the H-*AUTO, D-*AUTO, or T-*AUTO specifications. 


19.7.1. Spacing for H-*AUTO Page Heading Lines 


If you leave columns 17 and 18 blank on an H-*AUTO output file identification, auto report 
uses a double space after each single page heading line. If you use more than one page 
heading line, auto report uses a single space after each page heading line except the last, 
which is followed by a double space. 






01/15/88 REPORT 






FIRST PAGE HEADING LINE 
SECOND PAGE HEADING LINE 
BODY OF REPORT 


SINGLE SPACE 
FOR THE YEAR 










DOUBLE SPACE: 





If you want to specify other spacing values, enter them in columns 17 and 18 on the H-* 
AUTO specification. 


19.7.2. Spacing for D-*AUTO Lines 


If you leave columns 17 and 18 blank on a D-*AUTO output file identification, auto report 
uses a Single space (space-one-after) after each detail line and a double space (space-two- 
after) after each total line. Auto report additionally generates one blank line before the 
lowest level total line and before the final total line (space-one-before). 
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DETAIL 
DETAIL 


SPACE-ONE-AFTER = SINGLE SPACE 
SPACE-ONE-AFTER 


| = DOUBLE SPACE 
SPACE-ONE-BEFORE 


LOWEST LEVEL TOTAL LINE 


SPACE-TWO-AFTER = DOUBLE SPACE 
DETAIL 
DETAIL 


SPACE-ONE-AFTER = SINGLE SPACE 
SPACE-ONE-AFTER 


= DOUBLE SPACE 
SPACE-ONE-BEFORE 


LOWEST LEVEL TOTAL LINE 


SPACE-TWO-AFTER 
= TRIPLE SPACE 


SPACE-ONE-BEFORE 


FINAL TOTAL LINE 


If you want to specify other spacing values for detail lines, enter them in columns 17 and 
18 on the D-*AUTO specification. You can’t specify any other spacing for total lines. 


19.7.3. Spacing for T-*AUTO Lines 


If you leave columns 17 and 18 blank on a T-*AUTO output file identification, auto report 
uses a single space (space-one-after) after each lowest level total line and a double space 
(space-two-after) after each higher level total line. Auto report additionally generates one 
blank line before the second-to-the-lowest level total line and before the final total line 
(space-one-before). 


LOWEST LEVEL TOTAL LINE 







PACE-ONE-AFTER = SINGLE SPACE 
SPACE-ONE-AFTER 
SPACE-ONE-BEFORE 


LOWEST LEVEL TOTAL LINE 







| = DOUBLE SPACE 
SECOND-TO-LOWEST TOTAL LINE 

SPACE-TWO-AFTER = DOUBLE SPACE 
LOWEST LEVEL TOTAL LINE 


SPACE-ONE-AFTER = SINGLE SPACE 
LOWEST LEVEL TOTAL LINE 


SPACE-ONE-AFTER 


=D 
SPACE-ONE-BEFORE CUBLE PASE 


SECOND-TO-LOWEST TOTAL LINE 


SPACE-TWO-AFTER 
= TRIPLE SPACE 


SPACE-ONE-BEFORE 


FINAL TOTAL LINE 
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If you want to specify other spacing values for the lowest level total lines, enter them in 
columns 17 and 18 on the T-*AUTO specification. You can’t specify any other spacing for 
higher level total lines. 


19.7.4. Spacing for D-*AUTO or T-*AUTO Column Heading Lines 


When you specify a column heading in columns 45 through 70 of a D-*AUTO or T-*AUTO 
field description, auto report uses a double space after each single column heading line. If 
you specify a second or third line of column heading, auto report uses a single space after 
each column heading line except the last, which is followed by a double space. 


















FIRST LINE OF COLUMN HEADING 
SECOND LINE OF COLUMN HEADING 
THERD LINE OF COLUMN HEADING 


COMPANY REPORT 
ANNUAL 
1982 


SINGLE SPACE 
SINGLE SPACE 


DOUBLE SPACE 
FIELD 


You can’t specify any other spacing for column heading lines. 


19.7.5. Placement of H-*AUTO Page Heading Lines 
When you use H-*AUTO to print a page heading, auto report automatically prints the date 


in print positions 1 through 8 and prints the page number with an end position equal to 
the highest end position of the longest line in the report: 


PRINT POSITION 1 HIGHEST END POSITION IN REPORT 


61/18/88 
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& The placement of the title depends on which is longer, the page heading or the lines 
generated by D-*AUTO or T-*AUTO specification. When the page heading is longer than 
the lines generated by D-*AUTO or T-*AUTO, one blank space separates the date from the 
title and the title from the word PAGE: 


01/18/88 TITLE PAGE 1 81/18/88 ANNUAL COMPANY REPORT PAGE 1 





AT LEAST ONE SPACE 


When the page heading is shorter than the lines generated by D-*AUTO or T-*AUTO, the 
D or T line begins in print position 1 and the title is centered above it: 


CENTERED 












81/18/89 TITLE PAGE 1 81/18/86 ANNUAL REPORT PAGE 1 





LINES GENERATED FROM D-*AUTO SPECIFICATION 


PRINT POSITION 1 


When you specify more than one page heading, the shorter page headings are centered 
under the longest page heading. 


If the page heading line is longer than the record length you specified for the printer file, 
the characters on the right are truncated. There is no overflow line. 


You can't specify any other placement for page heading lines. 


19.7.6. Placement of D-*AUTO or T-*AUTO Column Heading Lines over Fields 


When you use D-*AUTO, T-*AUTO, or field description specifications to print a column 
heading over its associated field, its placement depends on whether the column heading 
or the field (including edit characters) is longer. 
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When the column heading is longer than its associated field, the field is centered under 
the longest column heading constant: 














LONGEST COLUMN HEADING AJAX COMPANY ANNUAL SALES 


FIELD 08,608 .908 


When the column heading is shorter than its associated field, the column heading is left- 
justified over an alphanumeric field and right-justified over a numeric field: 


COLUMN HEADING COLUMN HEADING DEPT SALES 


ALPHANUMERIC FIELD NUMERIC FIELD DIVISION 1,608.08 





When you specify more than one column heading, they are printed from left to right on a 
line in the order you specify. No spaces are provided within a column heading - you must 
incorporate spaces within the column heading to provide for additional spacing. 


You can use column heading continuation lines (C in column 39) to specify a second or 
third line of column heading. When you use a multiple line column heading, the shorter 
column headings are centered under the longest column heading: 










LONGEST COLUMN HEADING 
SHORTER HEADING 


SALESMAN OF THE 


CENTERED YEAR 











ORIGINAL DETAIL LINE 
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If the column heading line is longer than the record length you specified for the printer 
file, an overflow print line is generated. The excess column headings are printed on the 
overflow line in the order you specified and are right-justified. (See Figure 19-49.) 


If you want to specify your own end positions for the column headings and associated 
fields, enter the end position in columns 40 through 43 of the D-*AUTO or T-*AUTO 
specification. 









81/18/89 COMPANY REPORT PAGE 1 













DIVISION 





DEPARTMENT 





LEVEL 





SALES 





TOTALS GROUP 


1,069.86 





19,869.68 BLUE BELL 







OVERFLOW COLUMN OVERFLOW DETAIL LINES 
HEADING LINE (RIGHT-JUSTIFIED) 
(RIGHT-JUSTIFIED) 


ORIGINAL COLUMN 
HEADING LINE 


Figure 19—49. Overflow of D-*AUTO or T-*AUTO Lines 


19.7.7. Placement of D-*AUTO or T-*AUTO Fields 


When you use D-*AUTO or T-*AUTO to specify fields, they are printed in the order you 
specified. Auto report inserts at least two spaces between each field on the line. The first 
field, however, begins in print position 1: 


FIELD FIELD DIVISION DEPARTMENT LEVEL SALES 


PRINT 
POSITION 1 AT LEAST TWO SPACES 


4 








t Pie dation i 
oth 
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If you want to specify your own end positions for fields, enter the end position in columns 
40 through 43 of the D-*AUTO or T-*AUTO specification. 


If the detail or total line is longer than the record length you specified for the printer file, 
an overflow print line is generated. (See Figure 19-49.) The excess information is printed 
on the overflow line in the order you specified and is right-justified. If you specified entries 
in the space fields (columns 17 and 18) and skip fields (columns 19 through 22), the 
spacing for the overflow line is as follows: 


= The space-before and skip-before entries you specified are for the original line. Auto 
report uses a single space after the original line. 


= The space-after and skip-after entries you specified are for the overflow line. Auto 
report generates blanks for space-before and skip-before for the overflow line. 
19.7.8. Placement of D-*AUTO or T-*AUTO Headings or Fields next to Totals 


When you use D-*AUTO or T-*AUTO with a number from 1 through 9 or an R in column 
39 to specify a heading to appear next to a total, it is printed to the left of the first total. 


It is separated from the total by two spaces: 


HEADING TOTAL SALES 108.88 


TWO SPACES 


If you specify two or more headings or fields for a total, they are printed in the order you 
specified. Each field is separated by one space. Auto report doesn’t provide any spacing 
within headings - you must incorporate spaces yourself. 


19.7.9. Skipping 


If you leave columns 19 through 22 blank on an H-*AUTO, D-*AUTO, or T-*AUTO output 
file identification, auto report skips the printer to home position before the first line is 
printed. 
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19.8. JOB CONTROL FOR AUTO REPORT 


See 18.2.2 and 18.2.3 for information about job control statements used with auto report. 


19.9. NON-ENGLISH LANGUAGE FEATURE 


The non-English feature allows you to print diagnostics, listing headers, and log messages 
in a language other than English. 


The diagnostic messages are printed on the auto report output listing when the errors 
occur during the processing of an auto report program. They are contained within the 
system message (canned) file. To establish a new version of the diagnostic messages, the 
auto report diagnostic message texts of the system message file may be changed. 


The listing headers are printed at the top of every page of the auto report output listing. 
The listing headers are contained within the message module file. To establish a new 
version of the message module file, the message texts of the source code may be 
changed. The changed source code is then assembled, and the assembled message 
module is linked and placed in the same load library as the auto report AUTO# load file. 


The log messages consist of the starting, ending, and internal error messages and are 
written to the log file. The log messages are contained within the message module file. To 
establish a new version of the message texts of the message module file, the message 
texts of the source code may be changed. The changed source code is then assembied, 
and the assembled message module is linked and placed in the same load library as the 
auto report AUTO# load file. 


The format for message text in the messages module file is shown in Table 19-1. 
The following rules apply to changing message texts: 


= A message text is represented from the IDnnTEXT to the IDnnEND, and may be 
changed to a new message text (except for the IDnniNSx entries). 


a The maximum length of a listing header is 120 bytes if the identification number is 
less than 40. 


= The maximum length of a log message is 80 bytes if the identification number is 
equal to or more than 40. 


= The order of the inserts may be changed, but the number and length cannot be 
changed. 


< 
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Table 19—1. Message Text Format 


IDnnSTRT Identification number of 
message 





Total Jength of the current 
entry 


Number of inserts 
Length of insert 
Displacement of insert 
Length of message text 
CL*inserti -length* Area for insert-1 


CAext-2' Text-2 of message 


IDnntNS2 CL*insert2-length* Area for insert-2 


C'text-3' Text-3 of message 








fowse fe | 
LEGEND: 

nn Is the identification number of the message 

id Indicates that these entries repeat the number of times represented in 


the number of the inserts field 


iDnnINSx Indicates that the message occurs the number of times represented by 
the number of the insert. The insert consists of a special constant that 
is set by auto report. 





PART 7. APPENDIXES 
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Appendix A. RPG II Detail Logic Cycle 


A.1. GENERAL 


Each program that is generated by the RPG II compiler goes through the same logic cycle. 
In this appendix, the overall detail logic cycle is discussed first and then the individual 
subroutines are discussed. 


A.2. OVERALL RPG II DETAIL LOGIC CYCLE 


Figure A-1 shows the overall RPG II detail logic cycle. Each step in the cycle is numbered 
and an explanation of it is given in the text that follows. 
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START 









INITIALIZATION 


1. SET SYSTEM DATE 
2. SET U1—U8 INDICATOR 
3. OPEN FILES 

4, LOAD TABLES 
AND ARRAYS 













WRITE 
FIRST PAGE 
(1P) LINES 








WRITE 
HEADING AND 





LINES 





IS 







SET L1-L9, 
OVERFLOW, AND 
RECORD ID 
OFF. INDICATORS 









1S 
LR INDICATOR 
ON? 






FROM LAST 
FILE IF 
REQUIRED 







OETERMINE 
RECORD 
TYPE 






Figure A—1. 
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10, 











WAS A 
FORCE OPERATION PROCESS 
EXECUTED ON THE FORCED 
PREVIOUS CYCLE FILE 






12. 








ARE EXECUTE 
MATCHING YES MATCHING 
FIELDS FIELDS 
SPECIFIED SUBROUTINE 





NO 






ae vee SET LR AND 
INDICATOR L1-L9 INDICATORS (4) 
BE SET ON O 
? 
NO 


SET RECORD 


ID INDICATOR 
ON 





17. 








CONTROL YES SET CONTROL 
BREAK LEVEL INDICATORS 4 
? ON 
NO 
19. 6. 
SHOULD 
TOTAL TIME an SET L1-L9 
CALCULATIONS AND @ INDICATORS -( ) 
OUTPUT BE ON 
PERFORMEQ 
? 
YES 
2020 i ef 
RETRIEVE CHAIN 
PERFORM RECORD, READ 
TOTAL ______ _} DEMAND RECORD, 
CALCULATIONS AND PERFORM 
EXCEPTION, DEBUG 
AND DSPLY OUTPUT 





Overall RPG I! Detail Logic Cycle (Part 1 of 2) 





A-2 
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PERFORM 
TOTAL 
OUTPUT 







IS 
LR INDICATOR 
ON? 









1S 
AN OVERFLOW 
INDICATOR 
ON? 














EXECUTE 
OVERFLOW 
SUBROUTINE 











WRITE LAST 
RECORD (LR) 
OUTPUT 














SET MR 
INDICATOR 
ON OR OFF AS 
REQUIRED 









WRITE 
TABLES 
AND ARRAYS 
SET UPSI BYTE 
CLOSE FILES 






EXTRACT DATA 
FIELDS FROM 
RECORD TO BE 
PROCESSED AND 
SET FIELD 
INDICATORS 




















END OF JOB 









EXECUTE 
CHAINING 
SUBROUTINE 
















LOOK 
AHEAD FILES 
SPECIFIED 
? 








EXECUTE 
LOOK AHEAD 
SUBROUTINE 









|___ RETRIEVE CHAIN 
RECORD, READ DEMAND | 
~ ~~ | RECORD AND PERFORM 
| EXCEPTION, DEBUG, 
| AND DSPLY OUTPUT | 





PERFORM 
DETAIL 
CALCULATIONS 






Figure A—1. Overall RPG I! Detail Logic Cycle (Part 2 of 2) 
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Explanation of steps in Figure A-1: 


1. 


la. 


10. 


11. 


This step initializes your program for execution. The initialization consists of setting 
the system date, setting the U1 through U8 indicators, opening the files, and loading 
the execution time tables and arrays. 


Code for header and detail output lines conditioned by the first page indicator (1P) is 
executed prior to all other header/detail output lines. The 1P indicator, which was 
compiled on, is set off. 


This step causes all heading and detail lines that meet the conditions specified on the 
output format specifications form to be printed. If fetch overflow is specified and the 
overflow indicator is on, the overflow lines are printed. This step is always executed 
at the beginning of the program so that the heading lines can be printed before 
processing begins. 


The program terminates at this point if any of the halt indicators are on (HO through 
H9). If you do not want your program to terminate, you must set the halt indicators off 
before this step. 


The control level indicators (L1 through L9) and record identifying indicators are set 
off. The overflow indicators are set off unless they were set on during the previous 
detail calculations or detail output. All other indicators that are on remain on. 


The LR indicator is tested to see if it is on. If so, the program performs total 
calculations. 


The control level indicators (L1 through L9) are set on. 


A record is read from the last file that was processed. If a record address file is being 
used to retrieve records from this file, the record address defines the record to be 
retrieved. A record is not read from this file if look-ahead fields are specified in the 
last record that was processed because the record is already in main storage. A 
record is read from all primary and secondary input files during the first cycle through 
your program so that the matching fields subroutine can select the record for 
processing. 


The file that was just read is tested for end-of-file. If end-of-file has occurred, step 9 
is bypassed. 


If a record is read from the file, the record type is determined and the record 
sequence is checked. If the record type cannot be determined or the record is not in 
the proper sequence, the HO indicator is set on. 


If a FORCE operation was executed on the previous cycle, the forced file is selected 
for processing and step 12 is bypassed. Step 12 is bypassed because all records 
processed with the FORCE operation are processed with the MR indicator off. 


The forced file is selected for processing after any matched fields are removed from 
the file that was just read. If a file is forced at end-of-file, the normal multifile logic 
selects the next record for processing. 
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12. If matching fields are specified, the matching fields are moved to the holding area for 
that file and the next record for processing is selected based on the value in the 
matching fields. If matching fields are not specified, the record read at step 7 is 
processed. 


13. The matching fields subroutine is executed. It extracts the matching fields and 
performs sequence checking. It then determines which file is to be processed next. If 
the matching fields are not in sequence, the HO indicator is set on. 


14. A test is made to see if the LR indicator should be set on. The LR indicator is set on 
when all of the records have been processed from the files that have an E specified in 
column 17 of the file description specifications and all matching secondary records 
have been processed. 


15. Set the LR indicator on. When the LR indicator is set on, the L1 through L9 indicators 
are also set on. The L1 through LQ indicators can be used for conditioning only if they 
have been previously defined as conditioning indicators. 


16. Set on the record identifying indicator for the record selected for processing. 


17. The value in the control fields of the record being processed is compared with the 
value in the control fields of the last record processed. If they differ, a control break 
occurs. 


18. If a control break occurs, the appropriate level indicator is set on, along with all lower 
level indicators, and the contents of the control field are saved. 


19. A test is made to see if total time calculations and output should be performed. If 
control levels are not specified in columns 59 and 60 of the input format 
specifications form, total calculations and output are bypassed on the first cycle only. 
If control levels are specified, total calculations and output are bypassed only until 
after the first record with control fields is processed. When the LR indicator is on, 
total calculations and output are always performed. 


20. All conditioned total time calculations and subroutines are performed at this time. The 
calculations can include CHAIN, DEBUG, DSPLY, EXCPT, and READ operations. The 
CHAIN operation immediately retrieves a record from an input file. The DEBUG 
operation causes the status of all indicators to be printed. The DSPLY operation 
allows a field to be displayed and a new value entered. The READ operation retrieves 
the next record from a demand file. The EXCPT operation causes the exception output 
lines to be written. The resulting indicators that are specified are set on or off at this 
time. 


21. All conditioned total output lines are written. If the overflow indicator is on and fetch 
overflow is specified, the overflow lines are written. 


22. If the LR indicator is on, steps 22a and 23 are perfomed. If the LR indicator is off, 
steps 22a and 23 are bypassed. 


22a.Code for total output lines conditioned by the last record indicator (LR) is executed 
after all other total output lines. 
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23. 


24. 


25. 


26. 


27. 


28. 


29. 


30. 


31. 


32. 


A.3. 


RPG II 





All tables and arrays are written, U1 through U8 indicators are copied to the UPSI 
bytes, the files are closed, and the program is terminated. 


If the overflow indicator is on, step 25 is performed. If the overflow indicator is off, 
step 25 is bypassed. 


The overflow subroutine is executed. All lines conditioned by overflow indicators are 
executed. These lines are executed only if they were not executed by fetch overflow 
logic (step 21). 


The MR indicator is set at this time if matching records are used. When the records 
match, the MR indicator is set on and remains on for the complete cycle that 
processes the matching record. 


The data fields of the record to be processed are extracted and the field indicators for 
these fields are set. 


if the record being processed has any fields specified with C1 through C9 chaining, 
step 29 is executed. If not, step 29 is bypassed. 


The chaining subroutine is executed. It retrieves the selected record, sets the record 
identifying indicator, extracts the input fields, sets the corresponding field indicators, 
and returns to step 28. 

If look-ahead fields are present, step 31 is executed. If not, step 32 is executed. 


The look-ahead subroutine is executed. It retrieves the look-ahead record and then 
extracts the look-ahead fields. 


All conditioned detail calculations and subroutines are performed. The calculations 
can include CHAIN, DEBUG, DSPLY, and READ operations. 


RPG It DETAIL LOGIC SUBROUTINES 


The RPG Il detail logic cycle contains four subroutines: the matching field subroutine, 
chaining subroutine, overflow subroutine, and look-ahead subroutine. These subroutines 
are shown in Figure A-2. Each step in each subroutine is numbered, and an explanation 
is provided in the subsections that follow. 


A.3.1. Matching Fields Subroutine 


The matching fields subroutine is executed when matching fields are specified in your 
program (Figure A-1, step 12). This subroutine consists of the following steps: 


1. 


2 


If multifile processing is being used, step 2 is executed. If not, step 2 is bypassed. 


The values of the match fields in the hold area are tested to see which file is to be 


processed next. 
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& MATCHING FIELDS 
SUBROUTINE 


START 

















MULTIFILE 
PROCESSING 
? 


NO 


DETERMINE 
FILE TO BE 
PROCESSED 


ARE 












MATCHING FIELDS SET HO 
IN CORRECT INDICATOR 
SEQUENCE ON 


? 


MOVE MATCHING 
FIELDS TO 
HOLD AREA 


RETURN 


Figure A—2. RPG I! Detail Logic Subroutines 
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CHAINING 
SUBROUTINE 


START 


RETRIEVE 
CHAINED 
RECORD 


SET RECORD 
1D INDICATOR 
ON 








t{NDICATORS 


RETURN 


EXTRACT DATA 
FIELDS FROM 

CHAINED RECORD 
AND SET FIELD 





OVERFLOW 
SUBROUTINE 


START 


1 


OVERFLOW 
LINES WRITTEN 
PREVIOUSLY USING 


FETCH OVERFLOW 


OUTPUT 


RETURN 


LOOK-AHEAD 
SUBROUTINE 






START 






RETRIEVE 

NEXT RECORD 
FOR FILE 

BEING PROCESSED, 












EXTRACT 
LOOK AHEAD 
FIELDS 





RETURN 
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3. The match fields are tested to see whether they are in the correct sequence. If they & 
are, step 5 is executed. If not, step 5 is bypassed. 


4. If the match fields are not in the correct sequence, the HO indicator is set on. 


5. The match fields are moved to a hold area. 


A.3.2. Chaining Subroutine 


The chaining subroutine is executed when C1 through C9 chaining fields are specified in 
your program (Figure A-1, step 28). This subroutine consists of the following steps: 


1. The chained record for the file is retrieved. 
2. Set on the record identifying indicator for the chained record. 


3. The input fields are extracted and the corresponding field indicators are set. 


A.3.3. Overflow Subroutine 


The overflow subroutine is executed when an overflow indicator is on in your program 
(Figure A-1, step 24). This subroutine consists of the following steps: 





1. A test is made to see whether the overflow lines were written previously by using the 
fetch overflow logic. If they were, step 2 is bypassed. 


2. All output lines that are conditioned by the overflow indicator are written. 


A.3.4. Look-Ahead Subroutine 


The look-ahead subroutine is executed when look-ahead fields are specified in your 
program (Figure A-1, step 30). This subroutine consists of the following steps: 


1. The next record for the file being processed is retrieved. For combined or update files, 
the look-ahead fields are extracted from the record that is being processed. 


2. The look-ahead fields are extracted. 
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Appendix B. Programming Examples 


B.1. GENERAL 


The programming examples that are contained in the subsections that follow are designed 
to show simple applications which the novice can relate to everyday use. Each example 
contains a flowchart, a description of the program, and the RPG II specifications forms 
with the required coding on them. 


The examples that are shown could be combined into three programs and executed in 
steps; however, they are broken down into eight programs for clarity. This is done because 
RPG II allows you to organize, retrieve, and process files in many different ways and still 
accomplish the same result. The intent here is to show the use of as many operations and 
processing methods as possible; therefore, the entries on the specifications forms should 
not be interpreted as the most efficient or logical way to use RPG II for a specific type of 
application. The information required to compile, link-edit, and execute RPG Il programs is 
provided in Section 18. Program testing aids are provided in Appendix C. 


B.2. CREATING A SEQUENTIAL FILE 


This program reads records containing information about a company’s sales staff from 
punched cards and creates a sequential output file on a tape device by writing these 
records in the order in which they are read. This program also provides a listing that 
shows the contents of the individual records on the output file and a count of the total 
number of records. The program processing steps are shown in Figure B-1. 
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Figure B—1. Creating a Sequential File 
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B.2.1. Form Entries 

Figure B-2 shows the entries that are required for this program on the various 
specifications forms. These entries are discussed in the subsections that follow. 
B.2.1.1. Control Card Specifications 

The S in column 40 specifies that numeric data is to be checked for a standard sign. 
CRSEQ in columns 75 through 80 specifies the name that is to be assigned to this 
program during compilation. 

B.2.1.2. File Description Specifications 

INDATA is specified as the primary input and it is read from a card reader. The file is in 
ascending order (A in column 18) and it is to be processed to end-of-file. STAFF is an 
output file that is to contain standard labels (S in column 53) and is to be written on a 
tape device. LIST is an output file that provides a listing of the records on the STAFF file. 
B.2.1.3. Input Format Specifications 

Records on the INDATA file are in no particular sequence (AA in columns 15 and 16). 
Indicator 01 is set on when a record is read. 


B.2.1.4. Calculation Specifications 


As each INDATA record is read, COUNT is incremented by 1. 


B.2.1.5. Output Format Specifications 


The heading line, STAFF FILE LISTING, is printed on the first page of the report and the 
COUNT is set to zero at the beginning of the program. Each time an INDATA record is read 
(indicator 01 is on), a record is written on the STAFF file and printed on the report (LIST 
file). When the INDATA file is exhausted (end-of-file), the LR indicator is set on and the 
constant TOTAL RECORDS LOADED= is printed followed by the contents of the COUNT 
field. 


B.2.2. Report Format 


The format of the report produced by this program is shown in Figure B-3. 
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Figure B—2. Entries for Creating a Sequential File (Part 1 of 2) 
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Figure B—2. Entries for Creating a Sequential File (Part 2 of 2) 
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B.3. SEQUENTIAL FILE PROCESSING - MONTHLY SALES EARNINGS 


This program shows a common application using a sequential file. The STAFF file, created 
previously (B.2), is processed sequentially since each record in the file must be examined 
to determine whether a salesman is entitled to a commission check this month. This 
program also accumulates wage and commission totals for use in subsequent accounting 
programs and builds a line counter file for printing the commission checks offline. The 
program processing steps are shown in Figure B-4. 


B.3.1. Form Entries 


Figure B-5 shows the entries that are required for this program on the various 
specifications forms. These entries are discussed in the subsections that follow. 


B.3.1.1. Control Card Specifications 


SALES in columns 75 through 80 specifies the name that is to be assigned to this 
program during compilation. 


B.3.1.2. File Description Specifications 


STAFF is a primary input file in fixed-blocked format. It is a sequential tape file that is 
checked for end-of-file)e COMMRPT is an output file that provides a monthly sales 
commission report. The CHECKS file is an output line counter file (L in column 39) which 
uses OV as its overflow indicator and stores data for commission checks on an 
intermediate tape file. 


B.3.1.3. Line Counter Specifications 


The line counter specifications form describes the internal carriage control tape when data 
is stored on an intermediate file. These entries relate a printed line to its corresponding 
punch in the carriage control tape. On line 010, channel O7 (columns 18 and 19) is 
associated with line O06 (first printing line on the form); therefore, channel O7 must 
contain a punch at the same relative position on the carriage control tape. The line 
number associated with channel O1 causes the setting of the overflow indicator as 
specified on the file description specifications form. When the internal line counter 
reaches or passes the specified number (O60) with a space or print operation, the overflow 
indicator is set on. 


B.3.1.4. Input Format Specifications 


Indicator 01 is set on when a record from the STAFF file is read. 
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B.3.1.5. Calculation Specifications 





When indicator 01 is set on, an individual salesman’s salary and expenses are added to 
give monthly wages on line 010, monthly sales are multiplied by the commission rate to 
give monthly earned commission on line 020, total wages are accumulated on line 030, 
and total commissions are accumulated on line 040. Monthly commissions are then 
compared against monthly wages on line O50. If commissions (factor 1) are greater than 
wages (factor 2), indicator 06 is set on. If indicator O6 is on, wages are subtracted from 
commissions, giving the commission due to the salesman. 
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Figure B—4. Sequential File Processing — Monthly Sales Earnings 
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Figure B—5. Entries for Sequential File Processing — Monthly Sales Earnings (Part 1 of 5) 
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Figure B—5. Entries for Sequential File Processing — Monthly Sales Earnings (Part 2 of 5) 
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Figure B—5. Entries for Sequential File Processing — Monthly Sales Earnings (Part 3 of 5} 
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Figure B—5. Entries for Sequential File Processing — Monthly Sales Earnings (Part 4 of 5) 
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Figure B—-5. Entries for Sequential File Processing — Monthly Sales Earnings (Part 5 of 5) 
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B.3.1.6. Output Format Specifications 


Page 05, lines 010 through 030 show that a line counter file (CHECKS) is built containing 
the data necessary to issue commission checks. 


Page 06, lines 010 through 140 show that the monthly sales commission report and two 
heading lines are printed on the first page and on the top of a new page when forms 
overflow occurs. 


Page 06, lines 150 through 220 show that these detail lines are printed whenever 
indicators 01 or 01 and 06 are on. The SALES, WAGES, and COMM fields are printed and 
edited each detail time. 


Page 06, line 220 shows that the field CDUE is only printed when indicators 01 and 06 
are on. 


Page 07, lines 010 through 030 show that a single constant line is printed after spacing 
two lines at total output time (LR indicator is on). 


Page 07, lines 040 through O50 show that the accumulated total wages are edited and 
printed, providing balance totals for later programs. 


Page 07, lines O60 through 090 show that a single constant line is printed after spacing 
two lines. This line is followed by the editing and printing of the total commission. 


B.3.2. Report Format 


The format of the report produced by this program is shown in Figure B-6. 


B.4. CREATING AN INDEXED SEQUENTIAL FILE - PAYROLL MASTER FILE 


This program reads records containing employee information from punched cards and 
writes them on disk in ascending sequence by record key. This program also provides a 
listing that shows the contents of the individual records on the output file and a count of 
the total number of records. The program processing steps are shown in Figure B-7. 


B.4.1. Form Entries 


Figure B-8 shows the entries that are required for this program on the various 
specifications forms. Other than specifying on line 020 of the file description specifications 
form that the output file PAYMAS is an indexed sequential file (| in coumn 32) and 
specifying an 8-character alphanumeric key field (8 in columns 29 and 30 and A in 
column 31) that is to be used to build an index for the PAYMAS file, the entries required 
for this program are the same as those described for creating a sequential file in B.2. 
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Figure B—7. Creating an Indexed Sequential File — Payroll Master File 
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B.4.2. Report Format 


The format of the report produced by this program is shown in Figure B-9. 


B.5. PROCESSING AN INDEXED SEQUENTIAL FILE SEQUENTIALLY 
BY KEY - WAGE INCREASE 


This program shows an application using an indexed sequential file that is processed 
sequentially by key. An across-the-board pay raise for all employees has been authorized. 
The PAYMAS file, created previously (B.4), is processed sequentially because each record 
in the file must be examined to see by what percentage the employee’s hourly rate is to be 
increased. If the hourly rate is less than $4.00, the pay rate is increased by 10%. If greater 
than $4.00, the pay rate is increased by 5%. The record with the lowest key is selected 
first and then records with successively higher keys are selected until the end-of-file is 
reached. The program processing steps are shown in Figure B-10. 


B.5.1. Form Entries 


Figure B-11 shows the entries that are required for this program on the various 
specifications forms. These entries are discussed in the subsections that follow. 


B.5.1.1. Control Card Specifications 


SKEY in columns 75 through 80 specifies the name that is to be assigned to this program 
during compilation. 


B.5.1.2. File Description Specifications 


PAYMAS is a primary input file in fixed-blocked format containing 80-character records. 
The file is tested for end-of-file (E in column 17) and is in ascending sequence (A in 
column 18). This is an indexed sequential file (I in column 32) with a key length of 8 (8 in 
columns 29 and 30) which begins in record position 1 (1 in columns 35 through 38). The 
key is an unpacked alphanumeric key (A in column 31). The file is a disk file (DISC in 
columns 40 through 43). 


NEWRATE is an output file that provides a listing of the hourly pay rate increases for each 
employee. 
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Figure B—11. Entries for Processing an Indexed Sequential File by Key — Wage Increase (Part 2 of 3) 
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Figure B—11. Entries for Processing an Indexed Sequential File by Key — Wage Increase (Part 3 of 3) 
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B.5.1.3. Input Format Specifications 


The records in the PAYMAS file are in no special sequence (AA in columns 15 and 16) 
and indicator 01 is set on when a record is read. MKEY, NAME, and RATE are the fields 
that will be used during the execution of the program. 


B.5.1.4. Calculation Specifications 


Line 010 shows that an employee's pay rate is compared against a base of $4.00. If factor 
1 is greater than factor 2, indicator 03 is set on. 


Line 020 shows that if indicator 03 is on, the program branches to line 050. 


Line 030 shows that if indicator 03 is off, the employee’s hourly pay rate is increased by 
5% and this increase is added to his current rate to establish his new rate on line 040. 


Lines O60 through 070 show that for those employees whose hourly rate is less than 
$4.00, the hourly rate is increased by 10%. 


B.5.1.5. Output Format Specifications 


Lines 010 through 140 show that the NEWRATE file heading information is printed on the 
first page of the report or when forms overflow occurs. 


Lines 150 through 180 show that the detail lines are printed in successive order from 
lowest employee number to highest. 


B.5.2. Report Format 


The format of the report that is produced by this program is shown in Figure B-12. 


B.6. PROCESSING AN INDEXED SEQUENTIAL FILE SEQUENTIALLY BETWEEN 
LIMITS - DEPARTMENT PAY RATES 


This program shows an application using a record address file to process an indexed 
sequential file sequentially between limits. A report is to be generated that lists the new 
pay rate of employees by department. The PAYMAS file is in sequence by employee 
number. The first three digits of the employee number represent the department the 
employee is in. The report is generated by defining a record address file, RAF, containing 
the lower and upper limits which allows all the rcords for a given department to be 
retrieved; that is, all the records on that segment of the file will be retrieved. Processing 
begins when a key is found that is greater than or equal to the lower limit. Processing 
ends when a key is found that is greater than the upper limit. The program processing 
steps are shown in Figure B-13. 
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Figure B—12. Hourly Pay Rate Increase Report Format 
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B.6.1. Form Entries 


Figure B-14 shows the entries that are required for this program on the various 
specifications forms. These entries are discussed in the subsections that follow. 


B.6.1.1. Control Card Specifications 


LIMITS in columns 75 through 80 specifies the name that is to be assigned to this 
program during compilation. 


B.6.1.2. File Description Specifications 


RAF is a record address file {(R in column 16), in fixed format containing 80-character 
records, which supplies the lower and upper limits (keys) for processing the PAYMAS 
file. The key length is 8 and each record consists of two keys in the form: lower key in 
the first eight record positions and upper key in the last eight record positions. The E in 
column 39 indicates that further information about this file is required on the file 
extension specifications form. 


PAYMAS is the primary input that contains the records to be processed. The file is an 
indexed sequential file (Il in column 32) with a key length of 8 (8 in columns 29 and 30) 
which begins in record position 1 (1 in columns 35 through 38). The file is to be processed 
sequentially between limits (L in column 28). 

PRINT is an output file that produces a listing of the department pay rates. The overflow 
indicator associated with this file is OF (OF in columns 33 and 34). 

B.6.1.3. File Extension Specifications 

The entries on the file extension specifications forms indicate that the RAF is being used 
to specify the records that are to be processed on the PAYMAS file. 

B.6.1.4. Input Format Specifications 

The appropriate fields on the PAYMAS file are specified and indicator 01 is used to 
indicate an active record. - 

B.6.1.5. Output Format Specifications 


Lines 010 through 120 show that the heading lines for the report are conditioned by the 
1P or OF indicator. 


Lines 130 through 170 show that these detail lines provide the employee pay scale 
increases by department. 


B.6.2. Report Format 


The format of the report that is produced by this program is shown in Figure B-15. 
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Figure B—15. Department Pay Rates Report Format 
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B.7. UPDATING AN INDEXED SEQUENTIAL FILE BY CHAINING - MASTER 
FILE CHANGES 


This program randomly retrieves selected records from the master file, PAYMAS, by using 
the CHAIN operation. The master file is updated by making changes to employee records; 
the records from employees no longer employed and the changes made to active records 
are listed on a report. 


Chaining is accomplished by using the CHAIN operation on the calculation specifications 
form. This operation allows a field value which is read from an input file (the chaining file 
named CHAIN) to act like a key to retrieve a master file record. The master file (the 
chained file), PAYMAS, is an indexed sequential file that is processed randomly. The key 
field in PAYMAS is the employee number and this field is also used in the CHAIN file. The 
program uses the employee number in the CHAIN file to locate a record with the same 
number in the PAYMAS file. When the record has been located, the new pay rate of an 
employee (contained in the CHAIN file) is used to update the PAYMAS file. 


The CHAIN file contains a 1 in record position 9 for those employees that are no longer 
employed. When this condition occurs, the program does not print this record on the 
report. 


The program processing steps are shown in Figure B-16. 


B.7.1. Form Entries 


Figure B-17 shows the entries that are required for this program on the various 
specifications forms. These entries are discussed in the subsections that follow. 


B.7.1.1. Control Card Specifications 


UPDATE in columns 75 through 80 specifies that name that is to be assigned to this 
program during compilation. 


B.7.1.2. File Description Specifications 


CHAIN (the chaining file) is specified as the primary input file. It is in fixed format and 
contains 80-character records. 


PAYMAS (the chained file) is specified as an update chained file (U in column 15 and C 
in column 16). It is an indexed sequential file (I in column 32) that is fixed-blocked 
format with a key field length of 8 (8 in column 30) that begins in record position 1 (1 
in columns 35 through 38). MLIST is an output file that produces a listing of the master 
file changes. The overflow indicator is OF. 


B.7.1.3. Input Format Specifications 


The appropriate fields from the CHAIN file and the PAYMAS file are described. The CHAIN 
file has two valid record types. 01 records update the PAYMAS file with the new pay rate. 
03 records indicate that the employee record should be deleted. 
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Figure B—16. Updating an Indexed Sequential File by Chaining — Master File Changes 
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Figure B—17. Entries for Updating an Indexed Sequential File by Chaining — Master File Changes (Part 1 of 3) 
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Figure B—17. Entries for Updating an Indexed Sequential File by Chaining — Master File Changes (Part 3 of 3) 
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B.7.1.4. Calculation Specifications 


Line 010 shows that the CKEY field of the CHAIN file is used to chain the PAYMAS file. 
This operation causes a record to be read from the PAYMAS file whose employee number 
is the same as that in the CKEY field. 


Line 020 shows that the PAYMAS RATE field is updated with a new pay rate from the 
CHAIN file record. 


Line 030 shows that when indicator 03 is on (a 1 is in record position 9 of the CHAIN file 
record), a message is printed indicating that the employee should be deleted from the file. 
B.7.1.5. Output Format Specifications 


Lines 010 through 020 show that when indicators 01 and O2 are on, the new pay rate is 
written on the PAYMAS; that is, the master file is updated with the new pay rate. 


Lines 030 through 150 show that the heading lines for the report are conditioned by the 
1P or OF indicator. The OF indicator controls the printing of the heading lines after the 
first page. 


Lines 160 through 210 show that these detail lines are printed when indicator 01 is on. 


Lines 220 through 240 show that when indicator O03 is on, an inactive record is present. If 
this occurs, the message NO LONGER EMPLOYED along with the employee number is 
printed. 

B.7.2. Report Format 


The format of the report produced by this program is shown in Figure B-18. 


B.8. CREATING AN INDEXED SEQUENTIAL FILE - INVENTORY MASTER FILE 


This program reads records containing inventory information from punched cards and 
writes them on disk in ascending order by record key. This program also provides a listing 
that shows the contents of the individual records on the output files and a count of the 
total number of records. 


The program processing steps are shown in Figure B-19. 


B.8.1. Form Entries 


Figure B-20 shows the entries that are required for this program on the various 
specifications forms. Other than the file and field names, the entries are essentially the 
same as those used in B.4 to create the indexed sequential payroll master file. 
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Figure B—18. Master File Changes Report Format 
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Figure B—19. Creating an Indexed Sequential File — Inventory Master File 
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Figure B—20. Entries for Creating an Indexed Sequential File — Inventory Master File (Part 1 of 2) 
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Figure B—20. Entries for Creating an Indexed Sequential File — Inventory Master File (Part 2 of 2) 
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B.8.2. Report Format 


The format of the report produced by this program is shown in Figure B-21. 


B.9. PROCESSING WITH MATCHING RECORDS - INVENTORY CONTROL 


This program is designed to update inventory master file records, build a new master file, 
punch a card file of orders for those items whose quantity is below or equal to the reorder 
point, and to provide information on a daily activity report that reflects the stock status, 
usage, department charges for issues, and control totals for cost accounting. 


The matching record technique is used to control the selection of records from multiple 
input files so that they are processed as if they were a single input file. 


The file named OLDMAS is the primary or controlling file and the file named TRANS is the 
secondary file. The sequence in which the records are selected for processing is controlled 
by the values in the matching fields. The matching field values in the OLDMAS file are 
less than or equal to the matching field values in the TRANS file; therefore, the primary 
file is always processed first, since the record with the lowest value in its matching field is 
selected for processing first when ascending order is specified. The internal matching 
record indicator (MR) is used with the record identifying indicators and resulting indicators 
to control all calculation and output operations. 


Initially, a record is read from each input and the matching field (part numbers in the 
OLDMAS and TRANS files) are compared to determine which file will be processed first. 
The OLDMAS file is updated if the part numbers are equal according to the type of 
transaction (order, receipt, or issue) and the updated data is written on the new master 
file, NEWMAS, and the daily activity report. 


The NEWMAS file is built by writing all inactive records (OLDMAS exception records) on 
the file when a no match condition occurs in addition to the updated records. When an 
issue transaction is processed, the quantity-on-hand is checked to determine whether it is 
less than or equal to the reorder point. If it is, the program punches an order card. 


If an invalid transaction code is detected, a message and the part number are printed on 
the printer. 


The program processing steps are shown in Figure B-22. 


B.9.1. Form Entries 

Figure B-23 show the entries that are required for this program on the various 
specifications forms. 

B.9.1.1. Control Card Specifications 


IVCTRL in columns 75 through 80 specifies the name that is to be assigned to this 
program during compilation. 
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Figure B—22. Processing with Matching Records — Inventory Control (Part 1 of 2) 


UP-8067 Rev. 6 











SET ON RECORD 
INDICATOR 02 


PERFORM DETAIL 
CALCULATIONS 
FOR ORDER 
PROCESSING (MR, 02) 


WRITE RESULT 
FIELD VALUES 
TO NEWMAS FILE 








WRITE RESULT 
FIELD VALUES TO 
DAILY ACTIVITY 
REPORT 


SPERRY UNIVAC OS/3 
RPG Il 












SET ON RECORD 
INDICATOR 03 


PERFORM DETAIL 
CALCULATIONS FOR 
RECEIPT PROCESSING 
{MR, 03) 





WRITE RESULT 
FIELD VALUES 
TO NEWMAS FILE 








WRITE RESULT 
FIELD VALUES TO 
DAILY ACTIVITY 
REPORT 


B-46 






SET ON RECORD 
INDICATOR 04 


PERFORM DETAIL 
CALCULATIONS FOR 
ISSUE PROCESSING 
(MR, 04) 










WRITE RESULT 
FIELD VALUES 
TO NEWMAS FILE 














WRITE RESULT 
FIELD VALUES TO 
DAILY ACTIVITY 
REPORT 






QUANTITY 
ON HAND S 
TO REORDER 
POINT 
? 








SET ON RESULTING 
INDICATOR 09 


SET ON RECORD 
(INDICATOR 12 


(MR, 04, 09) 


PRINT 
INVALID 
TRANSACHON 
CODE’ AND 
PART NUMBER 





Figure B—22. Processing with Matching Records — Inventory Control (Part 2 of 2) 
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Figure B—23. Entries for Processing with Matching Records — Inventory Control (Part 1 of 7) 








il Dd 
€/SO DVAINN AYe3dS 


g@ aiepdy 


9 “A284 L908-d/N 


Lv-€ 


B-48 





SPERRY UNIVAC OS/3 
RPG tI 





(2 $0 Z Wed) jou0D A1ojuaAul — spsoray Buiyneyy yum Burssaz0ig 40f saisjuz ‘€Z—g asnbig 







































































$3009 NOI Y3ISILNIO! OHODIY 


UP-8067 Rev. 6 


Wi ey Pea | | r | | | | | | | | T | | | | Uy T a ae fh 
T 7 — T T aot Tt T > AMI TTT lovee ie 
Ges Gane Ba I 1 1 ToT yyy Hg | Gp? tag pt React t rrr porn rps eenias 
Spee 1 1 : t Tytgigig tit’ 1 ygigh | root ror Loess ! Perper ety toe ea 
Sie T T qT 1 t tT 'NES'¥ wr AB Su 1 SZ' i T t 1 | ' t 1 iF t 1 1 T i 1 t T 2 lO 
1 T 1 1 ! ' hoinhy'aie fiz) tof ytgn ae Be fe oH re ict H Pa SRA Ty : We 
r To T a or 
WI Ta} WON dW ut TY I o 
1 1 1 i ' ! boda at) 4 eae Pauedt (aed ae Pot Vqttes yer po S| : Wo 
T 1 1 1 1 1 TAP oth a4 pul rut | Tort fy t' | | |€!o “Jat 11 iat aa OF Jo 
as 1 1 1 1 1 forks oP +f pr Pade a (hae Pe it Je ji an Aro) qj it TGINT oul vic Pe 
a os ams eta T 1 1 ae ae rod rout 1 Td Trey yt alee 
aD os T q O | ie ie | if TIT | TI Ge 
T 1 1 roy By Ot 1 Le er a i cen idle ed 
1 i 1 iat ead 1 ics fe a a ia nies a ae 
iia =m T Lh Al rr i rrrprr male aa 
; oe ee Ea 
—T WW 14 rd Tito 1 se i a fa es Vo 
“To Tey ek try 1 at T is ar Otol go 
ee T aL Tot ; Sea a ray TTT je a ae Orzo Vo 
_ 1 1 ae i Be phot wyt AWS Brite led 
OL 69 z9 1909 6S 25] 15 vole] ze] iy) ov] er selorfecfze] ur ya fra [ra Cra zJoz 6ifacifar Sifoe 
° 7 z fe) c clofolol2 ofol2 ofol2 piof- [ufo] 
elt) pmlo> . o PIStEin|2 SIN z Zinlo salfol? [a] v 
zm DS.| 2.5 a plo[ajolo nlojc Blcls So]zlz In|} 
52 Aa = eller Fs ~/2]> 4 > = > = a2}2 
20 am]Z2z)7°8 r fou Doom 3) norlisod 13 notsos [2 NoILISOd | » 219 ° 
= SO} Z0}o- 3 z{2/2 mn aa aos of 3WVN 
NOILWOISILN|G! 279(S2] 2 3 >le(7 ¥ SSirl2( 83 yg on 
wvuo0ud o|.0 am s es os Elec aDvd 
mae a 3 zs al DB) >> 
ow Zz ox mip 
- NOH Y9O7 01313 2 c N 





SHOLYIIGNI 
aou3l3 





NOLL dthHDS 30 G1314 











NOILVOtd14N3G! QWOD3H 





SNOILVOISIOSdS LYVWYOd LAdNI 








CALCULATION SPECIFICATIONS 











CONDITIONS CALCULATION RESULTING 
INDICATORS RESULT FIELD INDICATORS: 


| anitumeric | Tic 














PROGRAM 
IDENTIFICATION 


PAGE AND ANID 


NO 


FIELD COMMENTS 


LENGTH 


bk bk 
° ° 
=. = 
=: Zz fa) 
12413 15}16 417/18 27428 3233 42443 48/49 S152 


FACTOR 1 OPERATION FACTOR 2 NAME 


a 
“a 
a 
=] 
a 
° 
a 










LOOKUP 
FACTOR 2018S 


ECIMAL POSITIONS 





4 
a 
> 
3 
4 
8 
a 
re 
ia, 
8 

1A] 
7 





a 
i 































































































O12 QOOl 1.141 1a ADDL 1 IQOAN, 1 ia 1a IN@2.0. : 11 [HO Seo theta ie ab oie fet gee 
jo OOH ao aaa a JAP L y RAN, pid INQ yf 40 Sede he te ae ee 
© if QOH oo a BOB 1 IOAN, por al IN @QeouH i riot FEE Ye ee 1a ea HAR oe ee EO 
O AGE, 2114 ADDL 1 RUAN, iu tla JUSAGE, Lot ese ca ines Cn es WRI 
all QOAIN, , ) 1. IMU, |jUPREC.E . |. AMT. y BZ fon eae 
(4 OAMIT 44 aa JADIDI slam. i pi lo JAM. 1 lz ditt 
g RAMT 1.2.1... JAMDL, AMT,1.11.,.1. RAMTI, 11 Ble 
oH AMT, 1.,.32. ADDL. Jama, 2.54.4 Li tDAMTi. fs BZ Sb ean ee Vee Ce es a) eT dod a 
a MO, pi. ai JOOMIP, REOCRPNT, 1. lidar iiaida bo ta Pe 
Ht od Cee ey eo Ent ws Ue OV IE fo" poi 1 WCCO D t 
fon ese aie Be oe ea a de aa day Aa a a te ae Pot Me i dees et aS ep ey eg ge Ee 

















Figure B—23. Entries for Processing with Matching Records — Inventory Control (Part 3 of 7) 
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Figure B—23. Entries for Processing with Matching Records — Inventory Control (Part 4 of 7) 
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Figure B—23. Entries for Processing with Matching Records — Inventory Control (Part 5 of 7) 
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Figure B—23. Entries for Processing with Matching Records — Inventory Control (Part 6 of 7) 
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Figure B—23. Entries for Processing with Matching Records — Inventory Control (Part 7 of 7) 
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B.9.1.2. File Description Specifications 


OLDMAS, created previously (B.8), is specified as the primary input file (the controlling 
file). TRANS is specified as a secondary input file in fixed unblocked format that is read in 
from a card reader. NEWMAS is an output file that is to contain the updated master file 
information. 


DAILYAC is used to produce a report that indicates the activity resulting from the day’s 
transactions. 


CRDPNCH is used to create a card file of orders for those items which have gone below 
the reorder point. 


B.9.1.3. Input Format Specifications 


Records in the OLDMAS file are identified by indicator 01 and an M in record position 1. 
The entire record is defined as an 80-character field, INREC, so that the entire record can 
be written on the NEWMAS file at detail time by the EXCPT operation when the matching 
fields do not match. The individual fields are also defined so that they may be processed 
according to the type of transaction. L1 is the control level indicator for total time output 
and M1 identifies the matching fields. The type of transaction on the TRANS file is 
identified by a code in record position 1 (O = order, R = receipt, and | = issue) and record 
identifying indicators 02, 03, and 04, respectively. All other records with codes other than 
these (invalid records) will set indicator 12 on. 


B.9.1.4. Calculation Specifications 


Line 010 shows that this operation is performed when there are matching records and an 
order transaction (MR and O2 indicators are on). The quantity from the TRANS file record 
(QUAN) is added to the quantity-on-order (QOQO) from the OLDMAS file record and the 
result is placed in the new-quantity-on-order (NOOO) field for the NEWMAS file. The 
program then branches to line 050 where the cost of the order is extended and charged to 
the department that ordered the item. The extended price (AMT) will be printed in the 
Daily Activity Report under AMOUNT BILLED. The AMT field is then accumulated in QAMT 
online O60 for the ORDERS portion of the BALANCE TOTALS on the Daily Activity Report. 


Line 020 shows that this operation is performed when there are matching records and a 
receipt transaction (MR and O3 indicators are on). The quantity from the TRANS file 
(QUAN) is added to the quantity-on-hand (QOH) from the OLDMAS file record, and the 
result is placed in the new-quantity-on-hand (NQOH) field for the NEWMAS file. The 
program then branches to line O50 where the cost of the receipt is extended and charged 
the department that received the item. The extended price (AMT) is printed in the Daily 
Activity Report under AMOUNT BILLED. The AMT field is then accumulated in RAMT on 
line 070 for the RECEIPTS portion of the BALANCE TOTALS on the Daily Activity Report. 


Line 030 shows that this operation is performed when there are matching records and an 
issue transaction (MR and 04 indicators are on). The quantity from the TRANS file (AMT) is 
subtracted from the quantity-on-hand (QOH) from the OLDMAS file record, and the result 
is placed in the new quantity-on-hand (NQOH) field for the NEWMAS file. On line 040, 
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QUAL is added to the year-to-date usage (USAGE) in the OLDMAS file. This field is written 
on the NEWMAS file and the Daily Activity Report under YEAR-TO-DATE USAGE. The cost 
of the issue is extended and charged to the appropriate department on jine 050. The 
program then branches to line 080, where the AMT field is accumulated in IAMT for the 
ISSUES portion of the BALANCE TOTALS on the Daily Activity Report. On line 090, the 
new quantity-on-hand (NOQOH) is compared to the reorder point (REOPNT) in the OLDMAS 
file. If NQOH is less than or equal to REOPNT, indicator O9 is set on. If indicator 09 is on, 
an O is placed in the OCODE field of the CRDPNCH file and a card is punched at detail 
output time that contains O in record position 1, the part number (MPNUM), the item 
description (ITEM), and the reorder quantity (REQTY). 


B.9.1.5. Output Format Specifications 


Page 04, lines 010 and 020 show that the inactive record (INREC) from the file OLDMAS 
is written on the NEWMAS file at detail time when there is a no-match condition. 


Page 04, lines 040 through 120 show that these fields are written on the NEWMAS file 
when the MR indicator is on; that is, there is a transaction and the updated inventory 
record is written to the NEWMAS file. Page 04, lines 130 through 170 show that these 
fields are punched on an order card at detail time when the MR, 04, and 09 indicators are 
on; that is, there is an issue transaction and the new quantity-on-hand (NQOH) is less 
than or equal to the reorder point. 


Page 05, lines 010 through 210 show that the Daily Activity Report heading information is 
printed on the first page of the report (controlled by 1P indicator) and on each succeeding 
page when forms overflow occurs (controlled by OF indicator). 


Page 05, lines 220 through 250 show that this line is printed at detail time when a record 
is read from the TRANS file that does not contain a valid transaction code in record 
position 1. INVALID TRANSACTION CODE and the identifying part number (MPNUM) are 
printed. 


Page 06, lines 010 through 130 show that these fields are printed on the Daily Activity 
Report at detail time when the MR indicator is on. This provides a printed record of each 
transaction that applies to a particular part number. 


Page 06, lines 140 through 210, and page 07, lines 010 through O80, show that the L1 
indicator controls the printing of the BALANCE TOTALS on the Daily Activity Report at 
total time. The amounts that are printed represent the sum of the order, receipt, and issue 
transactions for the day for a particular part. 


B.9.2. Report Format 


The format of the report produced by this program is shown in Figure B-24. 
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Figure B—24. Daily Activity Report Format 
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6 B.9.3. 


Entering and Compiling a Source Program from a Workstation 


To enter a program from a workstation, you must follow a procedure to tie into the system. 
The first step of this procedure is to type LOGON followed on the same line by a series of 
characters that identifies you. A typical procedure is as follows: 


@ 


LOGON ACCNT 
EDT @RPG 
. Enter your RPG Il program here 
@WRITE MO=PAYROL,FIL=LTFIL,SIZE=2,VSN=PUBDSK, SAT=Y 
@HALT 
RV JCS$BLD 


. Enter your job controi here 


RV PAYROL 
LOGOFF 


Explanation: 


@ @ 
@ 


G2 © © ©®@ 


The LOGON statement, plus the identification, connects your terminal to the host 
system. The identification in this example is your department name. 


This calls the general editor (EDT) and the RPG II editor, which gives you a choice 
of three screen formats. The format types are: formatted, for the novice 
programmer; positional; and free-form, for the experienced programmer. These 
formats act as a guide to help you write the program. 


This writes the RPG Il program into a file. 


This indicates that you have ended programming, and terminates both the general 
editor and the RPG II editor. 


This calls in a question and answer dialog that helps you build a job control 
stream. This stream is used to compile the program. You must give the stream a 
name; this name will be used in step 6. 


This compiles the program. Next to the RUN (RV) command you must insert the 
name of the stream you gave in step 5. 


This disconnects your workstation from the host system. 


NOTE: 


guide/programmer reference. 


& For more information on the RPG I! editor, see the OS/3 RPG Il editor user 
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B.10. CREATING, UPDATING, AND ADDING RECORDS TO A KEYED @ 
MIRAM FILE 


The sample programs in this section demonstrate creating, updating, and adding records 
to a keyed MIRAM file. Program CREMLT (B.10.1) creates MKFILE (a 5-key MIRAM file), 
program MKUPD (B.10.2) updates the MKFILE file, and program MKADD (B.10.3) adds 
new records to the MKFILE file. 


B.10.1. Creating a 5-Key MIRAM File Interactively 


Figure B—25 shows a sample program that interactively creates a 5-key MIRAM file. The 
key characteristics are as follows: 











Position Type Field Name Duplicates Changes 
1-10 Numeric IDNUM No No 

31-39 Numeric SSN No No 

43 — 50 Numeric INSNUM No No 

51-57 Numeric PHONE Yes Yes 

64 - 70 Numeric RETNUM No No 


Prompt screens are automatically created based on the record descriptions of the : 
INDATA console file. e 


O@6001H CREMLT 
O@BOG@2FINDATA IP F 97 CONSOLE 
G@O0003FMKFILE O F 96 96 DISK S 
G0004F KKEY1 
Q@OO85F KKEY2 
BOOO6F : KKEY3 
B6OG07F KKEY4 
GOO08F KKEY5 
@9809FPRNTR (0) F 132 132 PRINTER 
B@BB1BIINDATA AA 61 1 cil 

@OG11I 1 1®OIDKEY 
886121 2 116IDNUM 
800131 12 31 NAME 
868141 . 32 488SSN 
BB815I 41 41 MSTAT 
@@G1l6I © 42 43@8EXEMPT 
@80171 44 5S1GINSNUM 
080181 52 58@PHONE 
G8019I1 59 628DEPT 
O8G2G81 63 64 SALCL 
O60211 65 71@6RETNUM 
066221 72 T778STDATE 
908231 78 97 TITLE 
@OO24OMKFILE D 

886250 IDNUM 

888260 NAME 

886270 SSN 

8898280 MSTAT 

088290 EXEMPT 

868300 INSNUM 

880310 PHONE 

0880320 DEPT 





Figure B-—25. Creating a 5-Key MIRAM File interactively (Part 1 of 2) 
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820330 

688340 

060350 

088360 

820370PRNTR 

886380 

088390 'e* MU LTIKEY ' 
688480 ‘FILE **! 
820410 

888420 

089430 ‘ID! 

000440 ‘EMPLOYEE’ 

888450 "SOCIAL MARITAL‘ 
828460 "EXEMP INS.’ 
088470 ‘PHONE DEPT sc' 
088480 "RET. START’ 
086490 ‘TITLE’ 

888590 

6206510 

688520 "NUMBER' 

820530 22 'NAME' 

6080540 54 ‘SECURITY STATUS' 
0886550 80 'NUMBER NUMBER’ 
088560 167 ‘NUMBER DATE' 
080570 

886580 IDNUM 16 

020590 NAME 32 

028680 SSN 45 

082610 MSTAT 51 

820620 EXEMPT 59 

688630 INSNUM 71 

008640 PHONE 81 

082650 DEPT 87 

062660 SALCL 91 

808670 RETNUM 180 

088680 STDATEY 118 

882690 TITLE 132 





Figure B-25. Creating a 5-Key MIRAM File interactively (Part 2 of 2) 


Explanation of Figure B—25: 

Line 1: 

Identifies the program name as CREMLT. 

Line 2: 

Establishes INDATA as the interactive console (workstation) file. It is an input/primary 
file with a maximum record length of 97. CONSOLE is specified in columns 40 to 46 as 
the device. 


NOTE: 


Record Length = Highest TO location specified in the input field description for any 
record of the console file. 
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Lines 3 to 8: 


Define MKFILE as an output file with five keys of reference stored on disk. 


Lines 10 to 23: 


Define INDATA file as a file with one record type referenced by function key 1 (01 in 
columns 19 and 20). The character 1 is placed in position 1 of each record and is 
referenced in the program as field IDKEY. Twelve fields will have prompts generated 
and displayed upon the workstation screen. 


Lines 24 to 36: 


Write input data from the prompt screen, positions 2 to 97, to the MKFILE disk file, 
positions 1 to 96. 


Lines 37 to 69: - 


Generate a printed listing formatted for readability of user reference and audit trail. 
Record 1 Data Input: 


1 1 1 
IDNUM N10.0 1111111111 
NAME A 20 smith, john_p. 
SSN NO9.® 111111111 
MSTAT A 01m 
EXEMPT NO2.0 03 
INSNUM NO8.@ 11111111 
PHONE NO7.6 1111111 
DEPT NO4.0 1086 
SALCL A $2 mt 
RETNUM NO7.@ 1111111 
STDATE NO6.0 110482 
TITLE A  2@ branch_manager 


Record 2 Data Input: 


1 1 1 
IDNUM N10.6 2222222222 
NAME A_ 2@ doe, john_t. 
SSN NO9.@ 222222222 
MSTAT A 615s 
EXEMPT NO2.0 01 
INSNUM NO8.@ 22222222 
PHONE NO7.@ 2222222 
DEPT NO4.0 1086 
SALCL A 2 b4 
RETNUM NO7.@ 2222222 
STDATE NO6.0 110482 
TITLE A 2@ sales_representative 
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Record 3 Data Input: 


1 1 
IDNUM N10.0 
NAME A 20 
SSN NO9.@ 
MSTAT A 01 
EXEMPT NO2.0 
INSNUM NO8.@ 
PHONE NO7.0 
DEPT  NO4.0 
SALCL A 02 
RETNUM NO7.0 
STDATE NO6.0 
TITLE A 20 


1 
3333333333 
nelson,horatio 
333333333 
m 
06 
33333333 
3333333 
1011 
b9 
3333333 
110582 
field_manager 


File Created — MKFILE: 


1111111111SMITH, JOHN P. 


110482BRANCH MANAGER 


2222222222D0E, JOHN T. 


11@482SALES REPRESENTATIVE 


3333333333NELSON, HORATIO 


110582FIELD MANAGER 


B.10.2. Interactively Updating a MIRAM File Using a Console File and 


Automatic Screen Prompts 


111111111M031111111111111111086MT 1141111 


2222222228012222222222222221086B42222222 


333333333M063333333333333331011B93333333 


B-61 
Update C 


Figure B-26 shows a sample program that interactively updates a MIRAM file using a 
console file and automatic screen prompts. 


88601H 
8808 2FINDATA 
OOOO3FMKFILE 
OO0O04F 
62O085F 
OOOO6F 
OOOBTEF 
OBOO8F 
OBB1OIINDATA 
808111 
080121 
668131 
600141 
OG015I 
OBG161 
808171 
680181 
8660191 
808281 
688211 
888221 
086231 
8626241 


CONSOLE 

DISK Ss 
KKEY1 
KKEY2 
KKEY3 
KKEY4 
KKEYS 


1@IDKEY 
11@IDNUM 
130FLDNUM 
33 FLDATA 


1@IDKEY 
188SSN 
1L20FLDNUM 
32 FLDATA 


1@IDKEY 
9BINSNUM 
11Q@FLDNUM 
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Figure B-26. Interactively Updating a MIRAM File Using a Console File and Automatic Screen Prompts (Part 1 of 3) 
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@@625I © 

O@O261. 1@IDKEY 
000271 8@PHONE 
@90281 1Q@FLDNUM 
@6829I1 36 FLDATA 
GB03B1 

600311 1@IDKEY 
060321 8@RETNUM 
680331 160FLDNUM 
000341 36 FLDATA 
@O0035IMKFILE BB 

609361 1OBIDNUM 
068371 38 NAME 
688381 390SSN 
880391 46 MSTAT 
O0846I 42Q0EXEMPT 
OO841T 58@INSNUM 
680421 57@PHONE 
606431 61@DEPT 
080441 63 SALCL 
800451 7OORETNUM 
608461 76O0STDATE 
@86471 96 TITLE 
68B48C SETOF 99 
@8849C FLDNUM COMP @ 99 
@@B51C GOTO END 

8@@852C SETOF 212223 
@8853C SETOF 242526 
68054C SETOF 272858 
BBB56C SETK MKFILE 

8@857C CHAINMKFILE 58 
88858C EXSR UPDTE 

68859C GOTO END 

BBBERBC SETK MKFILE 

@@861C CHAINMKFILE 

88862C EXSR UPDTE 

@6863C GOTO END 

88264C 3 SETK MKFILE 

@9065C INSNUM CHAINMKFILE 

88066C EXSR UPDTE 

88667C GOTO END 

68868C SETK MKFILE 

08069C CHAINMKFILE 

88870C EXSR UPDTE 

60671C GOTO END 

88072C 5 SETK MKFILE 

88873C RETNUM CHAINMKFILE 

08674C EXSR UPDTE 

@8675C GOTO END 

@8677C END TAG 

@0878CSR UPDTE BEGSR 

8@2679CSR FLDNUM COMP 2 

80888CSR MOVELFLDATA NAME 20 
8@081CSR GOTO END2 

08882CSR FLDNUM COMP 4 

09883CSR MOVELFLDATA MSTAT 

80884CSR GOTO END2 

@@B85CSR FLDNUM COMP 5 

@BB86CSR MOVELFLDATA EXEMPT 

89887CSR GOTO END2 

@6888CSR FLDNUM COMP 7 

@8089CSR MOVELFLDATA PHONE 

@8098CSR GOTO END2 

@8091CSR FLDNUM COMP 8 

®@6892CSR MOVELFLDATA DEPT 

@2893CSR GOTO END2 

@8094CSR FLDNUM COMP 9 





Figure B-26. Interactively Updating a MIRAM File Using a Console File and Automatic Screen Prompts (Part 2 of 3) 
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Figure B-26. Interactively Updating a MIRAM File Using a Console File and Automatic Screen Prompts (Part 3 of 3} 


Explanation of Figure B-26: 


Line 1: 


Identifies the program name as MKUPD. 


Line 2: 


Establishes INDATA as the interactive console file. 


Lines 3 to 8: 


Define MKFILE as an update/combined file with five keys of reference. 


Line 9: 


Defines PRNTR as the output printer file. 


Lines 10 to 34: 


Define the INDATA interactive console file as having five record types (01 through 05) 
identified by characters 1 through 5 in record position 1. Screen prompts for these 
record types are called and displayed on the workstation by entering function keys 1 to 


5, respectively. 
Lines 35 to 47: 


Describe fields of MKFILE. 
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Lines 48 to 134: 





Update MKFILE and print a listing of updated records. 


The following steps demonstrate how to use the sample program MKUPD to update 
records. (We'll update the title in record 1 and the phone number in record 3.) 


1. The prompt PLEASE KEY IN FIRST COMMAND appears on the screen. 


2. Press function key 1, and the prompt screen for key 1 (IDNUM) appears: 


1 1 1,2,3,4,5 1,2,3,4,5 
IDNUM N10.0 


FLDNUM NO2.9 __ 
FLDATA A 20 





3. Enter key 1 of the first record (1111111111), the number of the field you wish to 
change (12), and the new title (personnel director): 





1 1 1,2,3,4,5 
IDNUM N10.0 1111111111 
FLDNUM NO2.@ 12 
FLDATA A 2@ personnel_director__ 





4. Press function key 2, and the prompt screen for key 2 appears: 


2 
SSN 
FLDNUM NO2.0 __ 
FLDATA A 20 





5. Enter key 2 of the third record (333333333), the number of the field you wish to 
change (07), and the new phone number (2156666): 


2 2 1,2,3,4,5 
SSN NO9.@ 333333333 





FLDNUM NO2.® 07 
FLDATA A 20 2156666 
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6. Press function key 15 to terminate workstation input. 


7. The updated file is: 





1111111111SMITH, JOHN P. 111111111M031111111111111111086MT 1111111 
2222222222D0E, JOHN T. | 222222222801222222222222222 1086842222222 
11@482SALES REPRESENTATIVE 


3333333333NELSON, HORATIO 333333333M0633333333; 
110482FIELD MANAGER. 





$6101 1B93333333 


You can compare this file to the original file created by the sample program CREMLT 
(B.10. 1). 


B.10.3. Adding Records to a Keyed MIRAM File 


This section shows a sample program that extends the original MIRAM file (MKFILE) 
created by sample program CREMLT (B.10.1). The program in Figure B—27 uses 
interactive data entry to create and present screen prompts for new records that you 
want to add. 


Records you add from the workstation also write to the printer file. Only unique records 
can enter the file. When a record already exists in the file, a message indicating 
duplicate keys writes to the printer file. 


When you use the chain operation, also use a NO HIT indicator to prevent abnormal 
termination for NO RECORD FOUND conditions. Otherwise, the HO indicator lights, and 
you must extinguish it. 


00061H MKFADD 
GOOO2FINDATA IP F 97 97 CONSOLE 
90003FMKFILE F 96 96R AI DISK S 
O0004F KKEY1 
00005F KKEY2 
GOO06F KKEY3 
00007F KKEY4 
G0008F KKEYS 
QOOG9FPRNTR O- F 132 132 OF PRINTER 
Q@OB18IINDATA AA 61 1 Cl 

908111 11GIDNUM 
009121 31 NAME 
000131 400SSN 
080141 41 MSTAT 
GO8151 430EXEMPT 
GOG161 51@INSNUM 
890171 58@PHONE 
900181 62QDEPT 
900191 64 SALCL 
808201 71@RETNUM 
000211 77@STDATE 
900221 97 TITLE 





Figure B~27. Adding Records to a Keyed MIRAM File (Part 1 of 3) 
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O@OO23IMKFILE BB 67 


080241 
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@9060C* 
80661C** 
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#@2063C 


BOS640MKFILE 
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Figure B-27. Adding Records to a Keyed MIRAM File (Part 2 of 3) 
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8868870 
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IDNUM 18 
NAME 32 
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MSTAT 51 
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PHONE 81 
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TITLE 132 
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Figure B-27. Adding Records to a Keyed MIRAM File (Part 3 of 3) 
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Appendix C. Program Testing Aids 


GENERAL 


After you have written your program, you must test it to see whether it produces the 
results that you want. If it does not produce the required results, you must find out why 
and make the necessary corrections. To help you test your program, RPG II provides the 
following aids: 


DEBUG Operation 


This operation allows you to write out the program indicators that are on and the 
contents of fields during the execution of your program. 


DSPLY Operation 


This operation allows you to display data on or enter data via the system console 
during program execution. 


EXCPT Operation 


The EXCPT operation allows you to write output records when calculations are 
performed. 


Operator Control 

This option allows you to control program termination via system console type-ins 
when a halt indicator (HO through HQ) that you specified in your program is set on, or 
the HO indicator is set on as a result of an error condition. 


*ERROR Field 


The *ERROR field contains an error code when an error occurs during the execution 
of your program. 


Error Analysis Dump 
A formatted error analysis dump can be provided when your program terminates 


during execution. This dump contains the information most likely to help you find the 
errors in your program. 
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= Unformatted Dump 


If you do not want an error analysis dump when your program terminates during 
execution, an unformatted dump can be provided instead. This dump contains the 
same information as the error analysis dump except that its format makes it slightly 
more difficult to use. 


C.2. DEBUG OPERATION 


You can use the DEBUG operation to tell you what program indicators are on and what is 
contained in specified fields at particular points during the execution of your program. To 
use the DEBUG operation you must first enter a 1 in column 15 of the control card 
specifications form and then you include the DEBUG operation in your program on the 
calculation specifications form at the required point. 


When the DEBUG operation is executed, an output record that shows the program 
indicators that are set on and the contents of factor 1, if specified, is written on the output 
file that you specified in factor 2. If a result field is specified, one or more records that 
show the contents of the result field are also written on the output file. The formats of 
these records are: 


Type 1 Record - Factor 1 is or is not specified. 


Position Contents 

1 through 6 DEBUG - 

7 Blank 

8 through 17 The contents of factor 1 if specified. If not, these 


positions contain the source program statement 
number for the DEBUG operation. 


18 Blank 
19 through 32 INDICATORS ON - 
33 and 34, 36 and 37, etc. The name of the indicators, each separated by a 


blank, that are set on. 


Type 2 Record - Result field is specified. 


Position Contents 
1 through 13 RESULT FIELD - 


15 through n The contents of the result field. 
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When these records are written, all numeric fields are unpacked and zero suppressed. A 
minus sign is written to the right of a negative field. If the result field is a table or array, 
an individual type 2 record is printed for each element. 


Figure C-1 shows the source program listing and the resulting printed output for a 
program that uses the DEBUG operation. In this example, lines 007, 008, 009, 010, and 
012 on the source program listing contain DEBUG operations. The records that these 
operations produce on the resulting printed output are indicated by the source program 
line number and a brace. 


Line 007 in the source program shows a DEBUG operation where factor 1 and the result 
field are not specified. This produces one type 1 record that lists the source program line 
number and the indicators that are set on. 


Line 008 shows a DEBUG operation, where factor 1 (the literal ABC) is specified and the | 
result field is not specified. This produces one type 1 record that lists the contents of 
factor 1 and the indicators that are set on. 


Line 009 shows a DEBUG operation, where factor 1 is not specified but the result field is. 
This produces a type 1 record and a type 2 record. The type 1 record lists the source 
program line number and the indicators that are set on. The type 2 record lists the 
contents of the-result field. 


Line 010 shows a DEBUG operation, where factor 1 and the result field are specified. This 
produces a type 1 record and a type 2 record. The type 1 record lists contents of factor 1 
and the indicators that are set on. The type 2 record lists the contents of the result field. 


Line 012 shows a DEBUG operation, where factor 1 is not specified and the result field is 
specified as the name of a 5-element array (ARRAY). This produces a type 1 record and 
five type 2 records. The type 1 record lists the source program line number and the 
indicators that are set on. Each type 2 record lists the contents of one element of the 
array. 


C.3. DSPLY OPERATION 


You can use the DSPLY operation (7.3.2.8.5) to cause data to be displayed on the system 
console and also to allow you to change data in a field when your program is being 
executed. As you can see, you can use this operation to make “‘hands on” corrections to 
your program. 


C.4. EXCPT OPERATION 
You can use the EXCPT operation (7.3.2.8.6) to cause output to be written during 


calculation. This operation is useful when you want to check your calculation logic and 
you need more information than is provided by the DEBUG operation. 
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C.5. OPERATOR CONTROL 


You can request the operator to control program termination if a halt occurs. The request 
specification can be made either at compilation time or at execution time. Whether you 
have specified the operator contro! option at compilation time or at execution time, the 
same sequence of messages is displayed (C.5.3), depending on the type of halt and mode 
of operation. 


When you use operator control in OS/3 mode, 9200/9300 mode, or IBM 360/20 mode, 
nonfatal errors are displayed after detail output. In IBM System/3 mode, errors are 
displayed immediately. In all modes, the halt indicators that you set are displayed after 
detail output. 


C.5.1. Compilation Time Specification 


You specify the operator control feature in your program by coding a blank in column 8 
and a 1 in column Q in the control card specifications form (4.2.3). This setting is then 
compiled with your program and remains set indefinitely. 


C.5.2. Execution Time Specification 


The specification for operator control at execution time is entered as a parameter in the 
// SET COMREG job control statement which must be included in the control stream 
preceding the execution step of the RPG II generated program. The specified parameter is 
placed in the communications region (COMREG) of the job preamble. If an error halt 
occurs during execution, the RPG Il generated program retrieves the COMREG setting 
which overrides any compilation time setting. There are three options that can be used. 


= Set operator control feature on. 
The format of the contro! statement is: 


1 10 20 30 
// SET COMREG,C‘RPGOP' 


The operator control feature will be used at execution time. This statement overrides 
the specification in column 9 of the control card specifications form, thus permitting 
you to use the operator control feature at execution time even though your program 
had been compiled without the feature. 


s Set operator control feature off. 
The format of the control statement is: 


// SET COMREG,C‘RPGNOP’ 


The operator control feature will not be used at execution time. This statement 
overrides the specification in column 9 of the control card specifications form, thus 
permitting you to ignore the operator control feature at execution time even though 
your program had been compiled with the feature. 
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" Set automatic default processing. 
The format of the control statement is: 


1 10 20 
// SET COMREG,C‘RPGAUTOP'’ 





This option bypasses the operator control feature by automatically selecting default 
processing. The operator control feature is used at execution time. Only those error 
messages for which no continue action is allowed are displayed. All other messages 
automatically default to the continue action and the message is not displayed. 


C.5.3. Displayed Messages 


The messages that are displayed depend on whether the halt indicators (HO through H9) 
specified in your program were set on or whether the HO indicator was set on as a result of 
an error condition. 


If a halt indicator specified in your program is set on, the following messages are displayed 
on the system console: 


RPGO28 USER SET HALT INDICATORS ARE : Hn, Hn....,Hn 
RPGO31 RPGII OPERATOR CONTROL, TYPE IN AVAILABLE OPTION (0, 1, 2, 3) 


If the HO indicator is set on as a result of an error condition, the following messages are 
displayed on the system console. 


RPG nnn explanatory text (execution time error message for particular error) 
RPGO31 RPGI| OPERATOR CONTROL, TYPE IN AVAILABLE OPTION (0, 1, 2, 3) 


In either case, the operator should type in the appropriate action; that is: 


O 
Continue. Control is returned to the program and processing continues at the 
instruction immediately following the error condition. 

1 
Bypass. The remainder of the program cycle is bypassed and the next record is 
read. 

2 
Controlled termination. LR processing is performed. 

3 


Immediate termination. Program terminates immediately. 


Only options O, 2, or 3 should be used in reply to the RPGO28 message. The operator control 
options that can be used with the individual execution time error messages are shown in 
the system messages programmer/operator reference. 
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C.6. *ERROR FIELD 


When an error occurs during the execution of your program, the HO indicator is set on and 
an alphanumeric error code that indicates the type of error is placed in the first byte of the 
*ERROR field. These error conditions fall into two categories: errors which, when they 
occur, allow you the option of setting the HO indicator off so that your program can 
continue; and those that do not provide this option; that is, your program terminates 
immediately. The error codes and the conditions that cause them, and whether they cause 
immediate termination, are shown in the system messages programmer reference manual. 
When you test your program, you can use the *ERROR field to allow your program to 
continue if a particular type of error occurs. You do this by including a routine that tests 
for the presence of the particular error condition and sets the HO indicator off if the error 
condition is present. Figure C-2 is an example of how you can use the *ERROR field to 
allow your program to continue in spite of an error. In this example, assume that you wish 
to continue processing if a record sequence error occurs. (Error code C is placed in the * 
ERROR field.) 


CALCULATION SPECIFICATIONS 


CALCULATION RESULTING 
| ResuuTFrELD | | ResuuTFrELD | INDICATORS 
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Figure C—2. Using *ERROR Field to Allow Processing to Continue when Error Occurs 


When the HO indicator is set on by an error condition, line 040 is executed. If error code C 
(error code for record sequence error) is in the first byte of the *ERROR field, indicator 10 
is set on. If so, both the HO indicator and indicator 10 will be on. This causes line 050 to 
be executed which will set the HO indicator off and allow processing to continue. The 
contents of the *ERROR field is not changed when the HO indicator is set off. 


C.7. ERROR ANALYSIS DUMP 


If you want a formatted error analysis dump to be provided if an error causes your 
program to terminate, you must enter a D in column 8 of the control card specifications 
form. 
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The error analysis dump provides you with a formatted listing of the contents of main 
storage when an error causes your program to terminate. This dump contains the 
information most likely to help you find the error in your program. 

C.7.1. Using the Error Analysis Dump 

The following subsections describe the major sections of an error analysis dump and how 
you use them. 

C.7.1.1. REG SAVE AREA 

This section contains the contents of general registers O through 15 at the time your 
program was terminated. General register 3 contains the base address of your program. 
C.7.1.2. *ERROR 


This is a 12-byte field that has the following format: 


Byte Contents 

6) Error code 

1-3 Status bytes 

4-7 Address pointer 1 
8-11 Address pointer 2 


The error code is the code for the condition that caused the HO indicator to be set on and 
terminate the program. The error codes and the conditions that cause them are shown in 
the system messages programmer reference manual. The message that is associated with 
the error condition is printed to the right of the error code. 


The status bytes contain the status code from the last input/output command for a DAM, 
SAM, or ISAM file error. The status codes for these status bytes are shown in the system 
messages programmer reference manual. The word STATUS is printed to the right of 
these bytes. 


Address pointer 1 and address pointer 2 contain addresses that relate to a specific file, 
field, reeord, or instruction that caused your program to terminate. These addresses vary 
with the type of error. What each address points to is printed to the right of it. These 
address pointers are: 


FIELD 
Address of the field associated with the error condition. 





UP-8067 Rev. 6 SPERRY UNIVAC OS/3 c-9 
RPG Il Update F 


& FILE DES 


Address of the file descriptor whose corresponding file caused the error 
condition. A file descriptor is generated for each input, update, or combined 
file. The format of the file descriptor is shown in the system messages 
programmer/operator reference, UP-8076 (current version). 


IORB 
Address of the input/output request block. An input/output request block is 
generated for each file. The format of the input/output request block is shown 
in the system messages programmer/operator reference, UP-8076 (current 


version). 
KEY 
Address of the key of the DAM or ISAM record that caused the error. 
NSI 
Address of the next sequential instruction that would have been executed. 
RECORD 
Address of the record that caused the error. 
RCB 
Address of the remote control block. A remote control block is generated for 
each remote (telecommunications) file. The format of the remote control block 
é is shown in the system messages programmer/operator’ reference, UP-8076 
(current version). 
TLF 


Address plus 16 of the table linkage field whose corresponding file caused the 
error condition. A table linkage field is generated for each table and array in 
your program. The format of the table linkage field is shown in the system 
messages programmer/operator reference, UP-8076 (current version). 


C.7.1.3. RECORD 

If a record causes an error, that record is listed in the record section of the formatted 
error analysis dump. 

C.7.1.4. LINKAGE VECTOR 

This section lists the main logic routine addresses, IORB locations, DTF address pointers, 
and the number of files in your program. The relative addresses of where the address of 
the routines are located are listed under the heading ACTUAL. 


The displacement addresses from the beginning of your program are listed under the 


@ heading DISP. 


The abbreviated names of the routines are listed under the heading ROUTINES. The 
relative addresses of the routines are listed under the heading ADDRESS. 
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C.7.1.5. FLDS/CONSTS/TABLES/ARRAYS 


This section contains the data fields and constants used in your program. The 
displacements for these entries are listed in the leftmost column. If tables or arrays are 
used in your program, the table linkage fields for them are also listed in this section. 


C.7.1.6. Error Analysis Dump Example 


Figure C-3 is an annotated example of a typical error analysis dump. 


C.8. UNFORMATTED DUMP 


‘An unformatted dump will be provided when your program terminates during execution 
and you include a //AOPTIONADUMP statement in the job control stream used to execute 
your program. 


C.8.1. Using the Unformatted Dump 


If an unformatted dump is provided when your program terminates, the halt indicators 
show which one caused your program to terminate. 


If the HO indicator is on, check the *ERROR field. If it contains zeros, the HO indicator was 
set on by your program rather than by an error condition. If the first byte of the *ERROR 
field contains an error code, refer to the system messages programmer reference manual 
for the meaning of the error code and possible corrective action. 


If the HO indicator is not set on, check halt indicators H1 through H9 to see which one 
caused the program to terminate. 


C.8.1.1. Locating Information in an Unformatted Dump 


The base address of your program is used to locate information in an unformatted dump. 
This address is added to the displacement address specified for the information you want 
to locate and the resulting sum gives you the address in dump where the information is. 
The contents of general register 3 contains the base (load) address of your program. 


C.8.1.1.1. Locating an Indicator 


To locate an indicator, add the displacement address in the RESULTING INDICATORS 
section of the source program listing to the base address of your program. If the value at 
' the calculated address contains FO, this means the indicator is set on. If the value is OO, 
the indicator is off. 
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C.8.1.1.2. Locating *ERROR Field 


The *ERROR field can be located by adding the displacement address for *ERROR in the 
FIELD NAMES section of the source program listing to the base address of your program. 
The calculated address points to the beginning of the *ERROR field. See C.7.1.2 for the 
format of this field. 


C.8.1.1.3. Locating a Data Field 

A data field can be located by adding the displacement address in the FIELD NAMES 
section of the source program to the base address of your program. The calculated address 
points to the beginning of the field. 

C.8.1.1.4. Locating the Table Linkage Field (TLF) for a Table or Array 

A table linkage field for a table or array can be located by adding the displacement address 
minus 16 in the FIELD NAMES section of the source program listing to the base address 
of your program. The calculated address points to the table linkage field. The format of the 
table linkage field is shown in the system messages programmer reference. 

C.8.1.2. Unformatted Dump Example 


Figure C-4 is an annotated example of an unformatted dump. 
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Figure C—4. Unformatted Dump (Part 10 of 31) 
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Figure C—4. Unformatted Dump (Part 11 of 31) 
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Figure C—4. Unformatted Dump (Part 12 of 37) 
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Figure C—4. Unformatted Dump (Part 13 of 31) 
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Figure C—4. Unformatted Dump (Part 20 of 31) 
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Figure C—4. Unformatted Dump (Part 21 of 31) 
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Figure C—4. Unformatted Dump (Part 22 of 31) 
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Figure C—4. Unformatted Dump (Part 23 of 31) 
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Figure C—4. Unformatted Dump (Part 24 of 31) 
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Figure C—4. Unformatted Dump (Part 25 of 31) 
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Figure C—4. Unformatted Dump (Part 26 of 31) 
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Figure C—4. Unformatted Dump (Part 27 of 31) 
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Figure C—4. Unformatted Dump (Part 28 of 31) 
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Figure C—4. Unformatted Dump (Part 29 of 31) 
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Figure C—4. Unformatted Dump (Part 30 of 31} 


acoaac0n 


000000600 


ocooo0c0o 


oaoooocoo 


ooocacdo 
00000000 
ooo000ca00 
00000000 
OOOO04OE} 
0$ 400640 
00008040 
40804033 
§OF14O40 
coao00co 
ooaca0a0 
yOoToO9cs 
FEFEFEFE 


FEFEFEFE 


FFFFFF FF 
18000000 


18000060 


ooooocoo 


ooococ00 


o0000E20 


ooocodoo0 


oOoococdo 


00000000 


13001300 
ooo0o0000 
40000000 
4040CéE00 
90404000 
E4O004F 08 
90400709 
oooooosa 
oo0o000000 
oSe€3c5ps 
FEFEFEFE 


FEFEFEFE 


FFFF FF FEF 
00000000 


ooo000000 


o081e0 


OOB1A0 


008220 


008240 


008280 
008 240 
agob2co 
o0082E0 
008300 
008320 
QOB340 
006 3€0 
008380 
008340 
0083CO 
OOB3EO 
098400 


OOBa20 


008500 
008520 


ooBs40 








tl Dd¥ 
€/SO DVAINN AYY3dS 


9g ‘Ae L£908-d/N 


vg-9 











C-55 


SPERRY UNIVAC OS/3 


UP-8067 Rev. 6 





RPG HI 








a3s9800 
a 25800 
Ovsaco 
Oesed0 


095800 


ezsr1o000 
00000000 
aoocooest 
ode 90 £0 


30T00000 


OoSn00080 
oo 8f £0 [0 
30f00000 
ococooca 


oooco0st 


(LE JO LE weg) dung paneuuojuN ‘y—] ainbi4 


ooooe7st 
oo000000 
oooo000G 
ocooooet 


OTOObIt 


oococo000 
ooocodet 
aosr90ta 
30100000 


6Sta9IZIT 


oo 800000 
90 (Codon 
ococooto 
oo acooo0 


ococooo0 


Oa#00000 
ooo0c0000 
Onoccost 
o08r90 10 


oooocous! 


ooocoo0t 
ocorcore 
30 fooo00 
ooocooo00 


30008 ds 


ooto Oy do 
0000 00 00 
09000000 
ooo000e8! 


SSEDILTE 


0348500 


028s00 


ovesoo 
o88so0 


0376500 








UP-8067 Rev. 6 SPERRY UNIVAC OS/3 D-1 
RPG Il 





Appendix D. RPG II Compilation 
Time Messages 


D.1. GENERAL 

If any errors are detected in your program while it is being compiled, the RPG II compiler 
sets the UPSI byte in the communication region of the job preamble according to OS/3 
system standards to indicate the type of errors that occurred. 


UPSI Byte Setting Meaning 





Bit O 1 Catastrophic errors were detected in the source program. An 
object module was not generated. 
& 0 No catastrophic errors were detected. 
Bit 1 1 Serious errors were detected. An object module was 


generated but the results will be unpredictable. 


O No serious errors were detected. 


D.2. MESSAGES 


When an error occurs during the compilation process of your program, the appropriate 
message from the following list is printed on the compilation output listing. An asterisk (*) 
indicates that the message is printed out due to a catastrophic error. A dagger (t+) indicates 
that the message is printed out due to a serious error. A blank indicates that the message 
printed out is informational or is due to a nonserious error. These indicators are not 
printed out with the message. 


Message-Meaning/Corrective Action 
* NOTEOOO END OF FILE HAS BEEN ENCOUNTERED IN INPUT STREAM 
PRIOR TO AN OUTPUT SPECIFICATION. EXECUTION IS 
DELETED. 
Y + NOTEOO1 COMPILE TIME TABLE IS NOT IN SEQUENCE 


NOTEOO2 COMPILE TIME TABLE HAS TOO MANY ENTRIES 
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NOTEOO3 


NOTEO04 


NOTEOOS 


NOTEOO6 


NOTEO0O7 


NOTEOO8 


NOTEOO9 


NOTEO10 


NOTEO11 


NOTEO12 


NOTEO13 


NOTE014 


NOTEO15 


NOTEO16 


NOTEO17 


Message-Meaning/Corrective Action 


INVERTED PRINT ENTRY (COLUMN 21) IS INVALID. ENTRY OF |} 
IS ASSUMED. 


RPG CONTROL CARD 
BYPASSED. 


1S MISSING. COMPILATION IS 


DEBUG OPERATIONS ARE NOT GENERATED AS DEBUG OPTION 
IS NOT SPECIFIED IN HEADER CARD (COL. 15) 


FILE TYPE (COLUMN 15) IS INVALID. SPECIFICATION IS NOT 
PROCESSED. 


INVALID ENTRY IN COLUMNS 28, 31 OR 32. SPECIFICATION IS 
NOT PROCESSED. 


LENGTH OF KEY OR RECORD ADDRESS FIELD (COLUMNS 
29-30) IS INVALID. ENTRY OF BLANK IS ASSUMED. 


MORE THAN ONE RECORD ADDRESS FILE IS PRESENT. 
SUCCEEDING ONES ARE NOT PROCESSED. 


EXTENSION CODE (COLUMN 39) IS INVALID. ENTRY OF BLANK 
1S ASSUMED. 


INPUT FILE DESIGNATION 
MISSING. ENTRY OF R 
OTHERWISE, S IS ASSUMED. 


(COLUMN 16) IS INVALID OR 
IS ASSUMED FOR TAG FILE. 


OVERFLOW INDICATOR (COLUMN 33) IS NOT O. ENTRY OF 0 IS 
ASSUMED. 


OVERFLOW INDICATOR (COLUMNS 33-34) IS INVALID. ENTRY 
OF BLANKS IS ASSUMED. 

MORE THAN ONE PRIMARY FILE IS SPECIFIED. FILE IS 
ASSUMED TO BE A SECONDARY FILE. 


MODE OF PROCESSING (COLUMN 28) IS INVALID. ENTRY OF R 
IS ASSUMED. 


FIXED FORMAT IS SPECIFIED, BUT BLOCK LENGTH IS NOT A 
MULTIPLE OF RECORD LENGTH. BLOCK LENGTH IS INCREASED 
TO NEXT HIGHER MULTIPLE. 


TYPE FILE ORGANIZATION (COLUMN 32) IS NOT BLANK. ENTRY 
OF BLANK IS ASSUMED. 
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NOTEO18 


NOTEO19 


NOTEO20 


NOTEO21 


NOTEO22 


NOTEO23 


NOTE024 


NOTEO25 


NOTEO26 


-“NOTE0O27 


NOTEO28 


NOTE029 


NOTEO30 


NOTEO31 


NOTEO32 
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Message-Meaning/Corrective Action 


END-OF-FILE CODE (COLUMN 17) IS INVALID. ENTRY OF BLANK 
IS ASSUMED. 


SEQUENCE (COLUMN 18) IS INVALID. ENTRY OF BLANK IS 
ASSUMED. 


MODE OF PROCESSING (COLUMN 28) IS NOT BLANK. ENTRY 
OF BLANK IS ASSUMED. 


RECORD ADDRESS TYPE (COLUMN 31) IS NOT BLANK. ENTRY 
OF BLANK !IS ASSUMED. 


EXTENSION CODE ew 39) IS INVALID. ENTRY OF E IS 
ASSUMED. 


WARNING - FILE FORMAT (COLUMN 19) IS INVALID. ENTRY OF 
F IS ASSUMED FOR NON-LINE COUNTER PRINT FILE OR 
INDEXED SEQUENTIAL FILES. OTHERWISE, ENTRY OF V IS 
ASSUMED. 


BLOCK LENGTH (COLUMNS 20-23) IS INVALID OR LESS THAN 
RECORD LENGTH. BLOCK LENGTH IS ASSUMED EQUAL TO 
RECORD LENGTH. 


RECORD LENGTH (COLUMNS 24-27) IS INVALID OR MISSING. 
DEFAULT LENGTH FOR DEVICE IS ASSUMED. 


FILENAME (COLUMNS 7-14) IS MISSING, INVALID OR NOT 
LEFT-JUSTIFIED. SPECIFICATION IS NOT PROCESSED. 


OUTPUT FILE DESIGNATION (COLUMN 16) IS NOT BLANK. 
ENTRY OF BLANK IS ASSUMED. 


PROGRAM EXCEEDS LIMIT OF TWENTY VALID FILE NAMES. 
ADDITIONAL FILE DESCRIPTION SPECIFICATIONS ARE NOT 
PROCESSED. 


KEY FIELD STARTING LOCATION (COLUMNS 35-38) IS INVALID, 
NOT RIGHT-JUSTIFIED, OR NOT LESS THAN RECORD LENGTH. 
ENTRY OF 0001 IS ASSUMED. 


DEVICE (COLUMNS 40-46) IS INVALID. SPECIFICATION IS NOT 
PROCESSED. 


‘LABELS’ (COLUMN 53) IS INVALID. ENTRY OF S IS ASSUMED 
FOR TAPE AND DISC FILES. ENTRY OF BLANK IS ASSUMED 
FOR CARD AND PRINTER FILES. 


NAME OF LABEL EXIT OR SPECIAL DEVICE EXIT (COLUMNS 
54-59) IS MISSING OR INVALID. SPECIFICATION IS NOT 
PROCESSED. 
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NOTE033 


NOTE034 


NOTE035 


NOTE036 


NOTE0O37 


NOTEO38 


NOTEO039 


NOTEO40 


NOTE041 


NOTE042 


NOTE043 


NOTE044 


NOTEO45 


NOTEO46 


NOTE047 


NOTE048 


Message-Meaning/Corrective Action 


NAME OF LABEL EXIT (COLUMNS 54-59) MUST BE BLANK FOR 
DEVICES OTHER THAN TAPE OR DISC. ENTRY OF BLANKS IS 
ASSUMED. 


OVERFLOW INDICATOR (COLUMNS 33-34) IS APPLICABLE TO 
OUTPUT FILES ONLY. ENTRY OF BLANKS IS ASSUMED. 


FILE ADDITION ENTRY FOR INDEX SEQUENTIAL (COLUMN 66) 
IS INVALID. ENTRY OF A IS ASSUMED. 


KEY LENGTH OR RECORD ADDRESS (COLUMNS 29-30) IS 
MISSING OR INVALID. SPECIFICATION IS NOT PROCESSED. 


PERCENT CYLINDER OVERFLOW (COL. 67) IS MISSING OR 
INVALID. NO OVERFLOW ALLOCATED FOR ISAM FILE LOAD. 


INVALID REWIND OPTION. ENTRY OF U IS ASSUMED FOR A 
TAPE FILE. ENTRY OF BLANK IS ASSUMED FOR NON-TAPE FILE. 


FORM TYPE (COLUMN 6) IS INVALID OR OUT OF SEQUENCE. 
SPECIFICATION IS NOT PROCESSED. 


FILE DESCRIPTION SPECIFICATIONS ARE MISSING. EXECUTION 
IS DELETED. 


WARNING: PRIMARY FILE NOT SPECIFIED. IF SECONDARY 
FILES ARE SPECIFIED, THE FIRST ONE IS ASSUMED PRIMARY. 
OTHERWISE, LR MUST BE SET ON TO TERMINATE THE 
PROGRAM. 


WARNING - FILE EXTENSION OR 
SPECIFICATION IS MISSING. 


LINE COUNTER 


FILENAME (COLUMNS 7-14) IS MULTI-DEFINED. SPECIFICATION 
IS NOT PROCESSED. 


WARNING - LENGTH OF RAF FIELD (COLUMNS 29-30) MUST BE 
10. ENTRY OF 10 IS ASSUMED. 


DIRECT FILE CANNOT BE SPECIFIED. SPECIFICATION IS NOT 
PROCESSED. 


KEY FIELD LOCATION IS INVALID. SPECIFICATION IS NOT 
PROCESSED. 


COLUMNS 66-67 MUST BE BLANK. ENTRY OF BLANKS IS 
ASSUMED. 


RECORD LENGTH (COLUMNS 24-27) IS INVALID. ENTRY OF 
132 IS ASSUMED. 
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NOTEO49 


NOTEO50 


NOTEO51 


NOTE0O52 


NOTEO53 


NOTEO54 


NOTEO55 


NOTEO56 


NOTEO57 


NOTEO58 


NOTEO59 


NOTEO60 


NOTEO61 


Message-Meaning/Corrective Action 


MORE THAN ONE RECORD ADDRESS FILE IS SPECIFIED ON 
FILE EXTENSION SPECIFICATION. SPECIFICATION IS NOT 
PROCESSED. 


‘FROM FILENAME’ (COLUMNS 11-18) IS NOT SPECIFIED ON 
FILE DESCRIPTION SPECIFICATION. SPECIFICATION IS NOT 
PROCESSED. 


EXTENSION CODE (COLUMN 39) OF FILE DESCRIPTION 
SPECIFICATION IS NOT E. SPECIFICATION IS NOT PROCESSED. 


LENGTH OF TABLE ENTRY (COLUMNS 40-42 OR 52-54) 
EXCEEDS 256 CHARACTERS FOR AN ALPHANUMERIC FIELD. 
ENTRY OF 256 IS ASSUMED. 


CHAINING FIELD (COLUMN 9-10) IS MISSING, INVALID, OR NOT 
RIGHT-JUSTIFIED. SPECIFICATION IS NOT PROCESSED. 


NUMBER OF FIELD NAMES EXCEEDS ALLOCATED MEMORY 
STORAGE. ADDITIONAL SPECIFICATIONS CONTAINING TABLE 
OR ARRAY NAMES WILL NOT BE PROCESSED. 


‘TO FILENAME’ (COLUMNS 19-26) !S NOT SPECIFIED AS ON 
FILE DESCRIPTION SPECIFICATION. SPECIFICATION IS NOT 
PROCESSED. 


‘TO FILENAME’ (COLUMNS 19-26) IS NOT SPECIFIED AS A 
CHAINED FILE ON FILE DESCRIPTION SPECIFICATION. 
SPECIFICATION IS NOT PROCESSED. 


LENGTH OF TABLE ENTRY (COLUMNS 40-42 OR 52-54) 
EXCEEDS 15 DIGITS FOR A NUMERIC FIELD. ENTRY OF 15 IS 
ASSUMED. 


‘TO FILENAME’ (COLUMNS 19-26) IS NOT SPECIFIED AS A 
PRIMARY OR SECONDARY FILE ON FILE DESCRIPTION 
SPECIFICATION. SPECIFICATION IS NOT PROCESSED. 


TABLE SEQUENCE (COLUMNS 45 OR 57) IS INVALID. ENTRY OF 
BLANK IS ASSUMED. 


TABLE NAME (COLUMNS 27-32 OR 46-51) IS MULTI-DEFINED. 
SPECIFICATION IS NOT PROCESSED. 


‘TO FILENAME’ (COLUMNS 19-26) IS NOT SPECIFIED AS ON 
FILE DESCRIPTION SPECIFICATION. ENTRY OF BLANKS IS 
ASSUMED. 
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NOTEO62 


NOTEO63 


NOTE064 


NOTEO65 


NOTEO66 


NOTE0O67 


NOTEO68 


NOTEO69 


NOTEO70 


NOTEO71 


NOTEO72 


NOTE073 


NOTEO74 


NOTEO75 


NOTEO76 


Message-Meaning/Corrective Action 


‘TO FILENAME’ (COLUMNS 19-26) IS NOT SPECIFIED AS AN 
OUTPUT FILE ON FILE DESCRIPTION SPECIFICATION. ENTRY OF 
BLANKS IS ASSUMED. 


TABLE NAME (COLUMNS 27-32 OR 46-51) IS MISSING, 
INVALID, OR NOT LEFT-JUSTIFIED. SPECIFICATION IS NOT 
PROCESSED. 


FIRST THREE CHARACTERS OF TABLE NAME (COLUMNS 27-29 
OR 46-48) ARE NOT ‘TAB’. ENTRY OF ‘TAB’ IS ASSUMED. 


NUMBER OF TABLE ENTRIES PER RECORD (COLUMNS 33-35) 
IS MISSING OR INVALID. ENTRY OF 1 IS ASSUMED. 


NUMBER OF TABLE ENTRIES PER TABLE (COLUMNS 36-39) IS 
MISSING OR INVALID. ENTRY OF 1 IS ASSUMED. 


LENGTH OF TABLE ENTRY (COLUMNS 40-42 OR 52-54) IS 
MISSING OR INVALID. ENTRY OF 1 IS ASSUMED. 


FORMAT OF TABLE ENTRY (COLUMN 43 OR 55) IS INVALID. 
ENTRY OF BLANK IS ASSUMED. 


‘DECIMAL POSITIONS’ (COLUMN 44 OR 56) IS INVALID. ENTRY 
OF ZERO IS ASSUMED. 


RECORD SEQUENCE OF THE CHAINING FILE (COLUMNS 7-8) !S 
INVALID. BOTH POSITIONS MUST BE EITHER NUMERIC OR 
ALPHABETIC. SPECIFICATION IS NOT PROCESSED. 


FILENAME (COLUMNS 7-16) IS NOT SPECIFIED AS ON FILE 
DESCRIPTION SPECIFICATION. SPECIFICATION IS NOT 
PROCESSED. 


OVERFLOW OR HOME PAPER CHANNEL IS MISSING OR 
INVALID. SPECIFICATION IS NOT PROCESSED. 


FILENAME IS NOT SPECIFIED AS AN OUTPUT FILE OR AN 
OUTPUT FILE REQUIRING A LINE COUNTER SPECIFICATION. 
SPECIFICATION IS NOT PROCESSED. 


LINE NUMBER OR CHANNEL NUMBER IF INVALID OR MISSING. 
SPECIFICATION IS NOT PROCESSED. 


CHANNEL NUMBER IS MULTI-DEFINED. SPECIFICATION IS NOT 
PROCESSED. 


LINE COUNTER FILE NAME (COLUMNS 7-14) IS MISSING, 
INVALID, OR NOT LEFT-JUSTIFIED. SPECIFICATION IS NOT 
PROCESSED. 
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NOTEO77 


NOTEO78 


NOTEO79 


NOTEO80 


NOTEO81 


NOTEO82 


NOTE083 


NOTEO84 


NOTEO85 


NOTEO86 


NOTEO87 


NOTEO88 


NOTEO89 


NOTEO9O0 


NOTEO91 


NOTEO92 


Message-Meaning/Corrective Action 


‘FROM FILE NAME’ (COLUMNS 
SPECIFICATION IS NOT PROCESSED. 


11-18) IS MISSING. 


‘FROM FILE NAME’ (COLUMNS 11-18) IS INVALID OR NOT LEFT- 
JUSTIFIED. SPECIFICATION IS NOT PROCESSED. 


‘TO FILE NAME’ (COLUMNS 19-26) IS INVALID OR NOT LEFT- 
JUSTIFIED. SPECIFICATION IS NOT PROCESSED. 


THERE ARE NO VALID INPUT SPECIFICATIONS IN THIS 
PROGRAM. EXECUTION IS DELETED. 


FIELD INDICATOR (COLUMNS 65-66, 67-68, 69-70) IS INVALID 
OR NOT A VALID ENTRY. ENTRY OF BLANKS IS ASSUMED. 


INDICATOR LO !IS SPECIFIED AS A FIELD INDICATOR, BUT IS 
NOT ALLOWED. INDICATOR IS IGNORED. 


FIELD-RECORD RELATION (COLUMNS 63-64) !IS_ INVALID. 
ENTRY OF 00 IS ASSUMED. 


IMPROPER VALUE DETECTED IN (COLS 21-24, 28-31, 35-38); 
OR (COLS 44-47); OR (COLS 48-51). A VALUE 1 IS ASSUMED. 


NO COMPILE TIME TABLES/ARRAYS IN INPUT STREAM. 


WARNING - INDICATOR 00 SHOULD BE USED ONLY IN OUTPUT 
SPECIFICATIONS. 


COLUMNS 7-24 OF FIELD DESCRIPTION SPECIFICATION 
SHOULD CONTAIN BLANKS. ENTRY OF BLANKS IS ASSUMED. 


FORM TYPE (COLUMN 6) IS NOT I, C, 0, OR T, AND COLUMN 7 
IS NOT AN ASTERISK. SPECIFICATION IS NOT PROCESSED. 


FILENAME (COLUMNS 7-14) IS INVALID OR UNDEFINED. ALL 
SPECIFICATIONS FOR THIS FILE ARE NOT PROCESSED. 


FILENAME (COLUMNS 7-14) 1S NOT A VALID INPUT/OUTPUT 
FILE. ALL SPECIFICATIONS FOR THIS FILE ARE NOT 
PROCESSED. 


‘AND‘/‘OR’ RECORD IS OUT OF SEQUENCE, I.E., FIRST 
INPUT/OUTPUT SPECIFICATION OR FOLLOWS FIELD 
DESCRIPTOR SPECIFICATION. SPECIFICATION IS NOT 
PROCESSED. 


WARNING: NO RECORD IDENTIFICATION CODES (COLUMNS 
21-41) SPECIFIED ON RECORD PRECEDING ‘AND’ RECORD. 


UP-8067 Rev. 6 


SPERRY UNIVAC OS/3 D-8 
RPG Il 





+t NOTEO93 


t+ NOTEO94 


NOTEO95 


NOTEO96 


NOTE097 


* NOTEO98 


NOTEO99 


NOTE100 


NOTE101 


NOTE102 


NOTE103 


NOTE104 


+ NOTE105 


t NOTE106 


t NOTE107 





Message-Meaning/Corrective Action 


‘AND’ RECORD CONTAINS NO RECORD IDENTIFICATION 
CODES. SPECIFICATION iS NOT PROCESSED. 


RECORD TYPE IS OUT OF SEQUENCE I.E., FIRST INPUT/OUTPUT 
RECORD SPECIFICATION MISSING OR HAS AN _ INVALID 
FILENAME OR THERE ARE TWO RECORD SPECIFICATIONS 
WITHOUT INTERVENING FIELDS. ALL SPECIFICATIONS FOR 
THIS RECORD ARE NOT PROCESSED. 


RECORD INFORMATION AND FIELD NAME ARE PRESENT IN 
THE SAME SPECIFICATION. FIELD INFORMATION IS DELETED. 


RECORD SEQUENCE (COLS 15-16) IS INVALID OR BLANK. 
ENTRY OF AA IS ASSUMED IF BLANK. 


ALPHABETIC SEQUENCE FOUND AFTER NUMERIC SEQUENCE. 
NUMERIC SEQUENCE HIGHER THAN PREVIOUS NUMERIC 
SEQUENCE IS ASSUMED. 


NUMERIC SEQUENCE NOT ASCENDING IN FILE. ASCENDING 
SEQUENCE !S ASSUMED. 


NUMBER (COLUMN 17) IS NOT N OR 1 FOR A NUMERIC 
SEQUENCE. ENTRY OF N IS ASSUMED. 


OPTION (COLUMN 18) IS NOT 0 OR BLANK. ENTRY OF 0 IS 
ASSUMED. 


RESULTING INDICATOR (COLUMNS 19-20) IS BLANK OR 
INVALID. INDICATOR OF 99 IS ASSUMED. 


INVALID OR UNSUPPORTED STACKER SELECT ENTRY 
(COLUMN 42). ENTRY OF BLANK IS ASSUMED. 


‘NOT’ (COLUMNS 25, 32, OR 39) IS NOT N OR BLANK. ENTRY 
OF N IS ASSUMED. 


‘C/Z/D' (COLUMNS 26, 33, OR 40) IS NOT C, Z, OR D. ENTRY 
OF C IS ASSUMED. 


RECORD IDENTIFICATION IS OUT OF SEQUENCE - 1.E., FIRST 
INPUT SPECIFICATION OR FOLLOWING AN INVALID ‘OR’, ‘AND’, 
OR FILE NAME. SPECIFICATION IS NOT PROCESSED. 


‘START’ (COLUMNS 44-47) OR ‘END’ (COLUMNS 48-51) IS 
BLANK. ENTRY OF 1 IS ASSUMED. 


‘START’ (COLUMNS 44-47) IS GREATER THAN ‘END’ (COLUMNS 
48-51). ‘END’ 1S ASSUMED TO HAVE A VALUE EQUAL TO 
‘START’. 
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NOTE108 


NOTE109 


NOTE110 


NOTE111 


NOTE112 


NOTE113 


NOTE114 


NOTE115 


NOTE116 


NOTE117 


NOTE118 


NOTE119 


NOTE120 


NOTE121 


NOTE122 


NOTE123 


Message-Meaning/Corrective Action 


DECIMAL POSITION (COLUMN 52) IS NOT NUMERIC. ENTRY OF 
ZERO IS ASSUMED. 


UNPACKED NUMERIC FIELD IS MORE THAN 15 BYTES LONG. 


LENGTH OF 15 IS ASSUMED. 


ASTERISK INDICATOR MAY NOT CROSS RECORD TYPES (H, 
D, T) 


‘PACKED’ (COLUMN 43) IS NEITHER P NOR BLANK. ENTRY OF P 
1S ASSUMED. 


ALPHANUMERIC FIELD LENGTH IS MORE THAN 256 BYTES 
LONG. LENGTH OF 256 IS ASSUMED. 


FIELD INDICATOR (COLUMNS 65-66, 67-68) ENTRIES ARE NOT 
VALID ENTRIES FOR AN ALPHANUMERIC FIELD. ENTRY OF 
BLANKS IS ASSUMED. 


WARNING COMPILE TIME TAB/ARR DOES NOT HAVE ENOUGH 
ENTRIES TO FILL IT. REMAINDER OF TAB/ARR FILLED WITH 
BLANKS OR ZEROES. 


THE NUMBER OF SYMBOLS USED IN THIS PROGRAM CAUSED 
THE COMPILER TO RUN LESS EFFICIENTLY THAN IF AN 
INCREASED MEMORY SIZE WERE ALLOCATED. 


THERE ARE TOO MANY COMPILE TAB/ARR IN INPUT STREAM 


FOR RECORD TYPE SPECIFICATIONS, COLUMNS 43-74 MUST 
BE BLANK. ENTRY OF BLANKS IS ASSUMED. 


FOR ‘AND’ TYPE RECORDS, COLUMNS 17-20 AND COLUMN 42 
MUST BE BLANK. ENTRY OF BLANKS !S ASSUMED. 


FILENAME HAS BEEN PREVIOUSLY REFERENCED ON INPUT 
SPECIFICATIONS. ALL SPECIFICATIONS FOR THIS RECORD ARE 
NOT PROCESSED. 


CONTROL LEVEL !S SPECIFIED BUT COLUMN 59 !IS NOT L. 
ENTRY OF L IS ASSUMED. 


CONTROL LEVEL IS SPECIFIED BUT COLUMN 60 IS NOT L-9. 
ENTRY OF 1 IS ASSUMED. 


MATCHING OR CHAINING FIELD IS SPECIFIED BUT COLUMN 62 
IS NOT 1-9. ENTRY OF 1 1S ASSUMED. 


MATCHING OR CHAINING FIELD IS SPECIFIED BUT COLUMN 61 
IS NOT M OR C. ENTRY OF M IS ASSUMED. 
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NOTE125 


NOTE126 


NOTE127 


NOTE128 


NOTE129 


NOTE130 


NOTE131 


NOTE132 


NOTE133 


NOTE134 


NOTE135 


NOTE136 


NOTE137 


NOTE138 
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Message-Meaning/Corrective Action 


‘PACKED’ (COLUMN 43) IS NOT BLANK, BUT AN 
ALPHANUMERIC FIELD IS SPECIFIED. NUMERIC FIELD IS 
ASSUMED. 


SEQUENCE CHARACTERS (COLUMNS 15-16) ARE NOT BOTH 
ALPHABETIC OR BOTH NUMERIC. ENTRY OF AA IS ASSUMED. 


‘POSITION’ (COLUMNS 21-24, 28-31, OR 35-38) IS INVALID OR 
NOT RIGHT-JUSTIFIED. ENTRY OF 0001 IS ASSUMED. 


FILE NAME (COLUMNS 7-14) IS INVALID OR NOT LEFT- 
JUSTIFIED. SPECIFICATION IS NOT PROCESSED. 


‘START’ (COLUMNS 44-47) OR ‘END’ (COLUMNS 48-51) IS 
INVALID OR NOT RIGHT-JUSTIFIED. ENTRY OF 0001 IS 
ASSUMED. 


PACKED NUMERIC FIELD IS MORE THAN 8 BYTES LONG. 
LENGTH OF 8 IS ASSUMED. 


FIELD NAME (COLUMNS 53-58, INPUT OR COLUMNS 32-37, 
OUTPUT) IS INVALID OR NOT LEFT-JUSTIFIED. SPECIFICATION 
iS NOT PROCESSED. 


FILENAME EXCEEDS 7 CHARACTERS. 7 CHARACTERS ARE 
USED. 


NO INPUT AND/OR OUTPUT SPECIFICATIONS FOUND FOR THIS 
FILE. 


UNDEFINED TABLE SPECIFIED 
SPECIFICATION IS NOT PROCESSED. 


IN LOKUP OPERATION. 


DECIMAL POSITION IS INVALID. ENTRY OF ZERO IS ASSUMED 
FOR NUMERIC FIELD. ENTRY OF BLANK IS ASSUMED FOR 
ALPHANUMERIC FIELD. 


FIELD LENGTH !S IMPROPERLY SPECIFIED OR IS NOT 
SPECIFIED. ENTRY OF ZERO IS ASSUMED FOR _ INVALID 
CHARACTER. WHEN REQUIRED LENGTH IS NOT SPECIFIED, 
ENTRY OF 4 IS ASSUMED. 


OPERATION CODE (COLUMNS 28-32) IS INVALID OR MISSING. 
SPECIFICATION IS NOT PROCESSED. 


ENTRY IN FACTOR 1 (COLS 18-27) OR FACTOR 2 (COLS 
33-42) IS INVALID. SPECIFICATION IS NOT PROCESSED. 


WARNING - ENTRY IN FACTOR 1 (COLS 18-27) OR FACTOR 2 
(COLS 33-42) IS INVALID. 
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NOTE140 


NOTE141 


NOTE142 


NOTE143 


NOTE144 


NOTE145 


NOTE146 


NOTE147 


NOTE148 


NOTE149 


NOTE150 
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Message-Meaning/Corrective Action 


FACTOR1, FACTOR2, OR RESULT FIELD IS MISSING OR 
INVALID. SPECIFICATION IS NOT PROCESSED. 


FORM TYPE (COLUMN 6) !S INVALID. SPECIFICATION IS NOT 
PROCESSED. 


‘NOT’ (COLUMNS 9, 12, OR 15) IS NOT N OR BLANK. ENTRY OF 
N IS ASSUMED. 


CONTROL LEVEL IS IMPROPERLY SPECIFIED. ENTRY OF LO IS 
ASSUMED. 
INDICATOR IS_ INVALID, IS NOT 


RESULTING INDICATOR 


PROCESSED. 


‘HALF ADJUST’ ENTRY (COLUMN 53) IS INVALID. ENTRY OF H 
IS ASSUMED. 


FIELD NAME IS IMPROPERLY USED. SPECIFICATION IS NOT 
PROCESSED. 


INDICATOR IN COLS. 9-17 IS INVALID. BLANK ASSUMED. 


REQUIRED RESULTING INDICATOR (COLUMNS 54-55, 56-57, 
OR 58-59) IS NOT SPECIFIED. SPECIFICATION IS NOT 
PROCESSED. 


‘MVR’ DOES NOT FOLLOW ‘DIV’, OR FOLLOWS A ‘DIV’ WITH 
HALF ADJUST SPECIFIED. SPECIFICATION IS NOT PROCESSED. 


UNPAIRED BEGSR-ENDSR MAY CAUSE PROGRAM ERROR OR 
OPERATION CODE IS NOT SUPPORTED BY THIS VERSION OF 
RPG. 


DETAIL CALCULATION SPECIFICATION FOLLOWS A TOTAL 
CALCULATION SPECIFICATION. DETAIL SPECIFICATION IS NOT 
PROCESSED. 


RESULT FIELD LENGTH (COLUMNS 49-51) IS GREATER THAN 
ALLOWED. A LENGTH OF 256 IS ASSUMED FOR AN 
ALPHANUMERIC FIELD. A LENGTH OF 15 IS ASSUMED FOR A 
NUMERIC FIELD. 


OPERATION CODE OF TESTZ IS INVALID FOR THE 9300 MODE 
OF COMPUTATION. SPECIFICATION IS NOT PROCESSED. 


RECORD ADDRESS TYPE IS INCORRECT FOR A TAG FILE. “I” 
SPECIFICATION IS ASSUMED. 
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Message-Meaning/Corrective Action 


FIELD NAME (COLUMNS 32-37) SPECIFIED ON OUTPUT 
SPECIFICATION IS NOT VALID, I.E., FIELD WAS DEFINED AS 
LABEL, KEYCV, ETC. SPECIFICATION IS NOT PROCESSED. 


FILENAME (COLUMNS 7-14) IS MISSING, OR RECORD TYPE 
(COLUMN 15) IS IN WRONG ORDER, SPECIFICATION IS NOT 
PROCESSED. 


CORRESPONDING FILENAME (COLUMNS 7-14) CANNOT BE 
DETERMINED. SPECIFICATION IS NOT PROCESSED. 


‘STACKER SELECT’ (COLUMN 16) IS INVALID, ENTRY OF BLANK 
IS ASSUMED. 


‘SPACE BEFORE’ (COLUMN 17) IS INVALID, ENTRY OF 1 IS 
ASSUMED. 


‘SPACE AFTER’ (COLUMN 18) IS INVALID. ENTRY OF 1 IS 
ASSUMED. 


‘SKIP BEFORE’ (COLUMNS 19-20) IS INVALID. ENTRY OF 01 IS 
ASSUMED. 


‘SKIP AFTER’ (COLUMNS 21-22) IS INVALID. ENTRY OF 01 IS 
ASSUMED. 


RECORD TYPE (COLUMN 15) IS NOT AN H, D, T OR E RECORD. 
ALL SPECIFICATIONS FOR THIS ARE NOT PROCESSED. 


COLUMNS 17-22 MUST BE BLANK FOR 
SPECIFICATIONS. ENTRY OF BLANK IS ASSUMED. 


‘AND’ TYPE 
COLUMNS 7-13 MUST BE BLANK FOR ‘AND’ OR ‘OR’ TYPE 
SPECIFICATIONS. ENTRY OF BLANK !S ASSUMED. 


CORRESPONDING RECORD SPECIFICATION IS MISSING OR 
INVALID. SPECIFICATION IS NOT PROCESSED. 


EDIT CODE (COLUMN 38) ENTRY IS INVALID. ENTRY OF BLANK 
IS ASSUMED. 


‘PACKED FIELD’ (COLUMN 44) IS INVALID. ENTRY OF BLANK IS 
ASSUMED. 


FIELD NAME (COLUMNS 32-37) IS NOT LEFT-JUSTIFIED. 
SPECIFICATION IS NOT PROCESSED. 


"END POSITION’ (COLUMNS 40-43) IS INVALID OR MISSING. 
SPECIFICATION !S NOT PROCESSED. 
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Message-Meaning/ Corrective Action 


LEADING OR CLOSING APOSTROPHE (’) IN EDIT WORD IS NOT 
CORRECT. ENTRY OF BLANKS IN COLUMNS 45-70 IS 
ASSUMED. 


‘BLANK AFTER’ (COLUMN 39) IS INVALID. ENTRY OF BLANK IS 
ASSUMED. 


PUNCH AND PRINT FUNCTIONS ARE SPECIFIED FOR THE SAME 
FILE. ENTRY OF BLANKS IS ASSUMED FOR COLUMNS 17-22. 


EDIT CODES (COLUMN 38) MAY NOT BE SPECIFIED WITH 
LITERALS OR EDIT WORDS. ENTRY OF BLANK !S ASSUMED. 


FIELD NAME (COLUMNS 32-37) IS UNDEFINED. SPECIFICATION 
IS NOT PROCESSED. 


WARNING - ‘BLANK AFTER’ (COLUMN 39) IS SPECIFIED FOR 
CONSTANT. ALL IDENTICAL CONSTANTS WILL BE BLANKED. 


WARNING: LITERAL/EDIT WORD IS NOT LEFT-JUSTIFIED. 


EDIT WORD (COLUMNS 45-70) IS NOT LEFT-JUSTIFIED. ENTRY 
OF BLANKS IN COLUMNS 45-70 IS ASSUMED. 


‘PACKED FIELD’ (COLUMN 44) MAY NOT BE SPECIFIED WITH 
CONSTANT OR EDIT WORD. ENTRY OF BLANK IN COLUMN 44 
IS ASSUMED. 


FILENAME (COLUMNS 7-14) IS NOT LEFT-JUSTIFIED. 
SPECIFICATION IS NOT PROCESSED. 


EDIT WORD (COLUMNS 45-70) CONTAINS NO DIGIT POSITIONS 
OR MORE THAN FIFTEEN. ENTRY OF BLANKS IN COLUMNS 
45-70 IS ASSUMED. 


LEADING/CLOSING APOSTROPHES FOR LITERAL/EDIT WORD 
ARE MISSING. SPECIFICATION IS NOT PROCESSED. 


‘AND’ OR ‘OR’ FOLLOWING A FIELD NAME SPECIFICATION OR 
AS FIRST OUTPUT SPECIFICATION IS INVALID. SPECIFICATION 
IS NOT PROCESSED. 


WARNING NO FIELDS DESCRIBED FOR THIS OR PREVIOUS 
RECORD. 


WARNING OUTPUT FIELDS OVERLAP. 


OUTPUT INDICATOR (COLUMNS 24-25, 27-28, OR 30-31) IS 
INVALID OR UNDEFINED. ENTRY OF LO IS ASSUMED. 
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Message-Meaning/Corrective Action 


OUTPUT INDICATORS SHOULD START IN COLUMNS 23-25; 
THEN 26-28, AND FINALLY 29-31. ENTRY IS SHIFTED LEFT. 


‘NOT’ (COLUMNS 23, 26 OR 29) IS NOT A BLANK OR N. ENTRY 
OF N IS ASSUMED. 


WARNING-OVERFLOW INDICATOR IS SPECIFIED IN ‘AND’ TYPE 
SPECIFICATION. RECORD WILL NOT BE PUT OUT AS OVERFLOW 
LINE. 


DECIMAL POSITIONS MUST BE ZERO FOR PAGE(N) FIELD. 
ENTRY OF ZERO !S ASSUMED. 


SPECIFICATION TYPE CANNOT BE DETERMINED. RECORD AND 
FIELD DEFINITION ARE SPECIFIED IN SAME LINE OR BOTH ARE 
BLANK. SPECIFICATION IS NOT PROCESSED. 


FORM TYPE (COLUMN 6) IS INVALID (NOT 0) SPECIFICATION IS 
NOT PROCESSED. 


NO OUTPUT INDICATOR (COLUMNS 24-25, 27-28, OR 30-31) IS 
SPECIFIED FOR ‘AND’ OR ‘OR’ TYPE SPECIFICATION. 
SPECIFICATION IS NOT PROCESSED. 


HEXADECIMAL CONSTANT (COLUMNS 45-70) CONTAINS 
INVALID CHARACTER. SPECIFICATION IS NOT PROCESSED. 


LEADING OR CLOSING APOSTROPHE (’) IN HEXADECIMAL 
CONSTANT IS NOT CORRECT. SPECIFICATION !S NOT 
PROCESSED. 


WARNING: PAGE 1 NOT SUPPORTED AS AN AUTOMATIC PAGE 
COUNTER IF IN 9200/9300 MODE OF PROCESSING. 


WARNING-PAGE2,...,PAGE7 ARE NOT SUPPORTED AS 
AUTOMATIC PAGE COUNTERS IN 9200/9300 AND MOD 20 
MODE OF PROCESSING. 


DECIMAL POSITIONS MUST BE BLANK FOR DATE FIELD. ENTRY 
OF BLANK IS ASSUMED. 


FIELD NAME (COLUMNS 32-37) IS INVALID. SPECIFICATION IS 
NOT PROCESSED. 


FILE NAME (COLUMNS 7-14) IS INVALID. SPECIFICATION IS 
NOT PROCESSED. 


WARNING: TABLE FILE MUST BE SUBMITTED AT EXECUTION. 











UP-8067 Rev. 6 


SPERRY UNIVAC OS/3 D-15 
RPG Il 





NOTE201 


NOTE202 


NOTE203 


NOTE204 
NOTE205 


NOTE206 


NOTE207 


NOTE208 


NOTE209 


NOTE210 


NOTE211 


NOTE212 


NOTE213 


NOTE214 


NOTE215 


Message-Meaning/Corrective Action 


RESULTING INDICATOR IS INVALID OR UNDEFINED. ENTRY OF 
LO IS ASSUMED. 


WARNING - RESULTING INDICATOR IS UNREFERENCED. 


FIELD NAME !S UNDEFINED. FIELD IS PROCESSED WITH 
ASSUMED LENGTH OF 004. 


WARNING - FIELD NAME !S MULTI-DEFINED. 
WARNING - FIELD NAME IS UNREFERENCED. 


THE COMBINED LENGTHS OF LITERALS AND FIELD NAMES 
EXCEED ALLOCATED MAIN STORAGE. 


FACTOR 1 MUST HAVE SAME UNPACKED LENGTH AS KEY 
FIELD OF FILE SPECIFIED IN FACTOR 2. SPECIFICATION NOT 
PROCESSED. 


WARNING: THE DATA FORMAT FOR MATCHING FIELD IS NOT 
CONSISTENT. 


THE SUM OF THE LENGTHS OF THE MATCHING FIELDS FOR THE 
PRIMARY FILE DOES NOT EQUAL THAT OF EACH SECONDARY 
FILE. EXECUTION IS DELETED. 


THE SUM OF THE LENGTHS OF THE MATCHING FIELDS IS NOT 
CONSTANT IN EACH RECORD WHICH SPECIFIED MATCHING 
FIELDS FOR A FILE. EXECUTION IS DELETED. 


WARNING - THE SUM OF THE LENGTHS OF THE CONTROL 
FIELDS IS NOT CONSTANT IN EACH RECORD WHICH SPECIFIED 
CONTROL FIELDS. 


AN EXCESSIVE AMOUNT OF OBJECT CODE HAS BEEN 
GENERATED FOR A SINGLE RECORD GROUP. EXECUTION IS 
DELETED. 


THIS SPECIFICATION CONTAINS AN ASTERISK CONDITION 
INDICATION AND FOLLOWS A SPECIFICATION THAT HAS BEEN 
DELETED. SPECIFICATION !S NOT PROCESSED. 

UNDEFINED OVERFLOW INDICATOR. ENTRY IGNORED. 


WARNING: 
OPERATION. 


FIELD LENGTHS ARE INVALID FOR THIS 
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Message-Meaning/Corrective Action 


PLUS AND/OR MINUS RESULTING INDICATORS (COLUMNS 
54-55 OR 56-57) ARE NOT ALLOWED FOR TESTING 
ALPHANUMERIC FIELDS. INDICATORS ARE IGNORED. 


FIELD TYPE IS INVALID FOR THIS OPERATION. SPECIFICATION 
IS NOT PROCESSED. 


ENTRY IN COLUMNS 16-18 VALID FOR INDEXED-SEQUENTIAL 
ADD ONLY. ENTRY IS IGNORED. 


REQUIRED ‘ADD’ ENTRY (COLUMNS 16-18) IS MISSING. ‘ADD’ 
IS ASSUMED. 


FILE SPECIFIED ON OUTPUT FORMAT SPECIFICATION IS 
UNDEFINED OR NOT AN OUTPUT FILE (U, C, O OR INDEX 
SEQUENTIAL WITH ADDED RECORDS). SPECIFICATION IS NOT 
PROCESSED. 


WARNING - FILENAME (COLUMNS 7-14) IS NOT REFERENCED 
ON OUTPUT SPECIFICATIONS. 


NO VALID OUTPUT SPECIFICATIONS ARE PRESENT. EXECUTION 
IS DELETED. 


ALL OUTPUT LINES OF A PRINTER FILE MUST INDICATE EITHER 
SPACING AND/OR SKIPPING. SINGLE SPACING IS ASSUMED 
FOR ALL OUTPUT LINES OF NAMED FILE WHICH HAVE NO 
PRINT FUNCTION. 


STACKER SELECT MAY NOT BE SPECIFIED WITH PRINT FILE. 
STACKER SELECT !S IGNORED AND SINGLE SPACING IS 
ASSUMED FOR ALL LINES OR NAMED FILE. 


PRINT OR PUNCH FUNCTION MAY NOT BE SPECIFIED FOR AN 
OUTPUT RECORD OF TAPE OR DISC FILE. STACKER SELECT, 


SPACING, OR SKIPPING IS IGNORED ON ALL RECORDS OF 
NAMED FILE. 


PRINT FUNCTION MAY NOT BE SPECIFIED FOR OUTPUT 
RECORD OF PUNCH FILE. SPACE AND SKIP ENTRIES ARE 
IGNORED FOR ALL RECORDS OF NAMED FILE. 


NUMBER OF LINES OF OUTPUT EXCEEDS THE CAPACITY OF 
RPG. MAXIMUM NUMBER IS 1023. EXECUTION IS DELETED. 


IMPROPER USE OF PACKING OR ZERO SUPPRESSION ON 
ALPHANUMERIC OR PACKED FIELD. ENTRY OF BLANK IS 
ASSUMED FOR INVALID CODE. 
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Message-Meaning/Corrective Action 


END POSITION SPECIFIED FOR THE FIELD IS GREATER THAN 
THE RECORD LENGTH. ALL OR PART OF THE FIELD IS LOST, 
STARTING WITH THE RIGHTMOST POSITION. 


END POSITION IS LESS THAN THE FIELD LENGTH. FIELD IS NOT 
PROCESSED. 


WARNING: FIELD TO BE EDITED IS TOO SMALL OR TOO LARGE 
FOR EDIT WORD. 


FIELD TO BE EDITED 1S NOT NUMERIC. NO EDITING IS 
PERFORMED. 


CONTROL LEVEL, MATCHING FIELD, OR CHAINING FIELD 
ENTRY SPECIFIED FOR BINARY FIELD. 


INCORRECT LENGTH SPECIFIED FOR BINARY FIELD. DEFAULT 
1S A LENGTH OF 4. 


RESULT FIELD FOR TIME OPERATION MUST BE 6 OR 12 DIGIT 
NUMERIC WITH NO DECIMAL POSITIONS. SPECIFICATION IS 
NOT PROCESSED. 


*PRINT IS NOT SUPPORTED. SPECIFICATION 
PROCESSED. 


IS NOT 


*IN COL 40 OF OUTPUT SPECIFICATION IS NOT SUPPORTED. 
ENTRY !IS IGNORED. 


MAXIMUM NUMBER OF EXTERNAL SYMBOLS (EXIT 
SUBROUTINES, ULABL ENTRIES, AND LABEL EXITS) HAS BEEN 
EXCEEDED. EXECUTION IS DELETED. 


INVALID USE OF ASTERISK 
IGNORED. 


INDICATOR. ASTERISK IS 


ASTERISK INDICATOR 1S INVALID IN ‘OR’ OR ‘AND’ TYPE 
SPECIFICATIONS. SPECIFICATION IS NOT PROCESSED. 


DEVICE (COLUMNS 40-46) IS INVALID FOR DISPLAY FILES. 
‘CONSOLE’ IS ASSUMED. 


ONLY ONE DISPLAY FILE MAY BE SPECIFIED PER PROGRAM. 
SPECIFICATION IS NOT PROCESSED. 


FILE ORGANIZATION (COLUMN 32) IS INVALID. ‘I’ IS ASSUMED 
FOR INDEXED SEQUENTIAL FILES AND BLANK IS ASSUMED 
OTHERWISE. 
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Message-Meaning/Corrective Action 


RECORD ADDRESS TYPE (COLUMN 31) IS INVALID. ‘A’ IS 
ASSUMED FOR INDEXED SEQUENTIAL FILES, ‘R’ FOR DIRECT 
FILES AND BLANK OTHERWISE. 


KEY LENGTH (COLUMNS 29-30) MUST BE 3 OR GREATER. 
ENTRY OF 3 IS ASSUMED. 


FILE CONDITIONING INDICATOR (COLUMNS 71-72) IS INVALID. 
ENTRY OF BLANK IS ASSUMED. 


FILE CONDITIONING INDICATOR (COLUMNS 71-72) IS NOT 
ALLOWED. BLANK IS ASSUMED. 


FOR SPECIAL FILES COLUMNS 28-32, 35-38, 53, 60-70 MUST 
BE BLANK. BLANKS ARE ASSUMED. 


WARNING: BLOCK LENGTH (COLUMNS 20-23) FOR INDEXED 
SEQUENTIAL FILE IS MISSING. A BLOCK LENGTH EQUAL TO 
RECORD LENGTH IS ASSUMED. 


BLOCK LENGTH (COLUMNS 20-23) IS SMALLER THAN 
MINIMUM FOR DEVICE, OR LESS THAN 80 IF USER LABELS ARE 
SPECIFIED. IF USER LABELS ARE SPECIFIED, 80 IS ASSUMED; 
OTHERWISE, MINIMUM FOR DEVICE IS ASSUMED. 


RECORD LENGTH (COLUMNS 24-27) IS INVALID OR MISSING. 
SPECIFICATION IS NOT PROCESSED. 


FROM FILENAME (COLUMNS 11-18) IS NOT DEFINED AS A 
TABLE FILE ON FILE DESCRIPTION SPECIFICATION. 
SPECIFICATION IS NOT PROCESSED. 


FROM FILENAME (COLUMNS 11-18) IS MULTIPLY REFERENCED 
BUT A CARD DEVICE IS NOT SPECIFIED ON THE FILE 
DESCRIPTION SPECIFICATION. SPECIFICATION IS NOT 
PROCESSED. 


TO FILENAME (COLUMNS 19-26) IS MULTIPLY REFERENCED 
BUT A PRINTER DEVICE IS NOT SPECIFIED ON THE FILE 
DESCRIPTION SPECIFICATION. ENTRY OF BLANKS IS 
ASSUMED. 


WARNING - FILE SPECIFIED AS RECORD ADDRESS OR TAG 
DATA FILE ON FILE DESCRIPTION SPECIFICATION IS MISSING 
ON THE EXTENSION SPECIFICATION. 


INSUFFICIENT MAIN MEMORY FOR COMPILATION. 
COMPILATION ABORTED. 
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NOTE268 


NOTE269 


NOTE270 


Message-Meaning/Corrective Action 
MULTIPLE DEFINITION OF AN EXECUTION TIME ARRAY. 


DATA FORMAT (COL 43) PACKED OR BINARY INVALID FOR 
DEVICE. 


FOR LOOK-A-HEAD RECORD, RECORD SEQUENCE (COLUMNS 
15-16) MUST BE ALPHA. ENTRY OF AA IS ASSUMED. 


FOR LOOK-A-HEAD RECORD, NUMBER, OPTION AND RECORD 
IDENTIFICATION (COLUMNS 17, 18, COLUMNS 21-41) MUST BE 
BLANK. ENTRY OF BLANKS IS ASSUMED. 


LOOK-A-HEAD RECORD USED WITH FILE NOT DEFINED AS 
PRIMARY OR SECONDARY. ALL SPECIFICATIONS FOR THIS 
RECORD ARE NOT PROCESSED. 


WARNING: LOOK-A-HEAD SHOULD BE THE LAST RECORD 
SPECIFICATION FOR THIS FILE. 


MATCHING RECORD INDICATOR (COLUMNS 61-62) IS 
SPECIFIED FOR FILE NOT DEFINED AS PRIMARY/SECONDARY 
FILE. ENTRY OF BLANKS IS ASSUMED. 


CHAINING INDICATOR (COLUMNS 61-62) IS SPECIFIED FOR 
INVALID CHAINING TYPE FILE. ENTRY OF BLANKS IS 
ASSUMED. 


SUBSCRIPTED FIELD !S NOT DEFINED AS AN ARRAY. 
SPECIFICATION IS NOT PROCESSED. 


FOR EXECUTION TIME ARRAY INPUT, NUMBER OF ELEMENTS 
SPECIFIED FOR INPUT EXCEEDS SIZE OF ARRAY. SIZE OF 
ARRAY IS ASSUMED. 


INVALID VARIABLE SUBSCRIPT, I.E. VARIABLE IS NOT A 
NUMERIC FIELD. 


INVALID LITERAL SUBSCRIPT, 1.E. SUBSCRIPT IS 
NEGATIVE/ZERO (VALUE OF 1 IS ASSUMED) OR SUBSCRIPT IS 
OUT OF RANGE (HIGHEST VALUE IS ASSUMED). 


FIELD SPECIFICATION IS OUT OF SEQUENCE, I.E. DOES NOT 
FOLLOW A RECORD INPUT SPECIFICATION. ALL 
SPECIFICATIONS UNTIL NEXT FILE RECORD ARE NOT 
PROCESSED. 


WARNING: NO RECORD IDENTIFICATION CODES SPECIFIED ON 
THE RECORD PRECEDING A ‘AND’ RECORD. 
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Message-Meaning/Corrective Action 


FOR ‘AND’ RECORD, STACKER SELECT MUST BE BLANK. 
ENTRY OF BLANK IS ASSUMED. 


WARNING - LITERAL/EDIT WORD (COLUMNS 45-70) IS NOT 
LEFT-JUSTIFIED. 


FOR ARRAY INPUT, LENGTH OF FIELD LOCATION IS NOT A 
MULTIPLE OF THE ELEMENT LENGTH. NEXT LOWEST MULTIPLE 
ASSUMED. 


CONTROL FIELD INVALID WITH CHAINED OR DEMAND FILES. 
SPECIFICATION IS NOT PROCESSED. 


ADDED RECORD SPECIFIED ON OUTPUT FOR NON-ISAM FILE 
OR COLUMN 66 OF CORRESPONDING ISAM FILE DESCRIPTION 
IS NOT ‘A’. 


PROGRAM ID. (COLS 75-80) BLANK OR INVALID. ‘RPGOBJ’ 
ASSUMED. 


FIELD EDITED WITH Y EDIT CODE REQUIRES 3-6 CHARACTER 
POSITIONS. 


TRANSLATE RECORDS NOT BEGINNING WITH ** BLANK 
RECORD. FILE TRANSLATION PROCESSING TERMINATED. 


FILE TRANSLATION SPECIFIED BUT NO TRANSLATE RECORDS 
PRESENT OR NOT IN PROPER SEQUENCE. FILE TRANSLATION 
PROCESSING TERMINATED. 


INVALID TRANSLATION SPECIFICATION. WHEN USING *FILES 
OR *EQUATE ONLY ONE TRANSLATE TABLE CAN BE SPECIFIED. 
FILE TRANSLATION PROCESSING TERMINATED. 


INVALID HEX CHARACTER SPECIFIED FOR TRANSLATION FILE 
TRANSLATION PROCESSING TERMINATED. 


INVALID FACTOR SPECIFICATION. FACTOR 2 OR RESULT MUST 
BE ARRAY BUT MAY NOT REF. SAME ARRAY. 


ALPHANUMERIC FACTOR 1 iS INVALID FOR CHAINING TO A 
DIRECT FILE, OR IN COMBINATION WITH A NUMERIC KEY 
FIELD ON THE FACTOR 2 FILE FOR CHAIN AND SETLL 
OPERATIONS. SPECIFICATION IS NOT PROCESSED. 


OVERFLOW INDICATOR INVALID FOR EXCEPTION OUTPUT LINE. 


POSITIONS 60-65 CONTAIN AN INVALID ENTRY. ASSUME 


BLANK. 


INVALID FILE TRANSLATION SPECIFICATION. CHECK VALIDITY 
OF TRANSLATE RECORDS. 
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INVALID ALTSEQ RECORD. STANDARD COLLATING SEQUENCE 
SELECTED. 


INVALID HEX CHARACTER IN ALTSEQ RECORD. STANDARD 
COLLATING SEQUENCE SELECTED. 


ALTSEQ FILE NOT PRESENT. STANDARD COLLATING 
SEQUENCE SELECTED. 


DECIMAL POSITIONS SPECIFIED FOR BLANK FIELD LENGTH. 
DECIMAL POSITIONS IGNORED. 


INVALID ALTSEQ CODE. STANDARD COLLATING SEQUENCE 
SELECTED. 


SPECIFIED FILE NAME FOR FILE TRANSLATION NOT FOUND. 
FILE TRANSLATION PROCESSING TERMINATED. 


FILE TRANSLATION SPECIFIED FOR DISPLAY FILE. FILE 
TRANSLATION PROCESSING TERMINATED. 


INVALID FILL CHARACTER SPECIFIED FOR EDIT CODE. 
DECIMAL POSITION ENTRY (COL 52) DOES NOT AGREE WITH 
NUMBER OF DECIMAL POSITIONS PREVIOUSLY SPECIFIED. 
PREVIOUS SPECIFICATION IS USED. 


FIELD WAS PREVIOUSLY DEFINED WITH DIFFERENT LENGTH. 
SPECIFICATION IS NOT PROCESSED. 


WARNING - EXCPT OPERATION OR EXCEPTION OUTPUT 
SPECIFICATIONS MISSING. 


MATCHING FIELD INDICATOR M1-M9 MUST BE REFERENCED 
AT LEAST TWICE. 


RECORD LENGTH (COL 24-27) IS LESS THAN MINIMUM FOR 
DEVICE SPECIFIED, MINIMUM FOR DEVICE IS ASSUMED. 


FILE FORMAT (COLUMN 19) IS NOT F. ENTRY OF F IS ASSUMED 
FOR REMOTE FILES OR FILES USING S/3 MODE. 


STATION TYPE (COLUMN 16) DOES NOT CONTAIN T OR R. 
SPECIFICATION NOT PROCESSED. 


COLUMN(S) 17-18, 21-47, 52, 61-64, NOT BLANK. ENTRY 
IGNORED. 


REMOTE TERMINAL (COLUMNS 48-51) !S 
SPECIFICATION NOT PROCESSED. 


INVALID. 
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Message-Meaning/Corrective Action 


PERMANENT ERROR INDICATOR (COLUMNS 53-54) IS INVALID. 
SPECIFICATION NOT PROCESSED. 


WAIT TIME (COLUMNS 55-57) IS INVALID. 180 SECONDS IS 
ASSUMED. 


RECORD AVAILABLE INDICATOR (COLUMNS 58-59) IS INVALID. 
SPECIFICATION NOT PROCESSED. 


LAST FILE PROCESSED (COLUMN 60) IS NOT L OR BLANK. 
SPECIFICATION NOT PROCESSED. 


WAIT TIME (COLUMNS 55-57) IS INVALID. ENTRY OF BLANK IS 
ASSUMED. 


RECORD AVAILABLE INDICATOR (COLUMNS 58-59) IS 
PRESENT ON TRANSMIT FILE, OR FOR PROGRAM WITH SINGLE 
REMOTE FILE. ENTRY OF BLANK IS ASSUMED. 


LAST FILE PROCESSED (COLUMN 60) IS NOT BLANK ON 
TRANSMIT FILE OR PRIMARY INPUT FILE. ENTRY OF BLANK IS 
ASSUMED. 


CORRESPONDING FILE DESCRIPTION SPECIFICATION FILE IS 
NOT A REMOTE FILE. SPECIFICATION NOT PROCESSED. 


A CONVERSATIONAL FILE WAS DEFINED WHEN NOT ALLOWED. 
SPECIFICATION NOT PROCESSED. 


NO CORRESPONDING OUTPUT OR COMBINED FILE 
SPECIFICATION FOR TRANSMIT FILE. SPECIFICATION NOT 
PROCESSED. 


INPUT OR COMBINED FILE 
SPECIFICATION NOT 


NO CORRESPONDING 
SPECIFICATION FOR RECEIVE FILE. 
PROCESSED. 


BLOCKED RECORD SPECIFIED FOR CONVERSATIONAL FILE. NO 
BLOCKING IS ASSUMED. 


TELECOMMUNCATIONS SPECIFICATION MISSING FOR FILE 
DEFINED AS A REMOTE FILE. SPECIFICATION NOT 
PROCESSED. 


LOOK AHEAD FIELDS SPECIFIED FOR REMOTE FILE. 
SPECIFICATION NOT PROCESSED. 


MATCHING FIELDS DEFINED ON A TRANSMIT FILE WITH 
CONVERSATIONAL REPLY. SPECIFICATION NOT PROCESSED. 
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Message-Meaning/Corrective Action 


MATCHING FIELDS DEFINED FOR A FILE DESIGNED AS LAST 
FILE. SPECIFICATION NOT PROCESSED. 


FOR A TRANSMIT THEN RECEIVE REMOTE PROGRAM, IF END- 
OF-FILE IS SPECIFIED FOR ANY INPUT FILE, E 1S ASSUMED IN 
COLUMN 17 OF THE REMOTE INPUT FILE. 


A TRANSMIT WITH CONVERSATIONAL REPLY FILE IS USED 
WITH FORCE OR READ OF CODE OR AS A PRIMARY FILE. 
SPECIFICATION NOT PROCESSED. 


FILE NAME USED TWICE ON TELECOMMUNICATIONS SPECS. 
SPECIFICATION NOT PROCESSED. 


DUAL !/0 AREAS NOT PERMITTED FOR CONVERSATIONAL 
FILE. SPECIFICATION NOT PROCESSED. 


INVALID DEVICE (COLUMNS 65-70) SPECIFIED. SPECIFICATION 
NOT PROCESSED. 


FILENAME (COLUMNS 7-14) 
SPECIFICATION NOT PROCESSED. 


INVALID OR UNDEFINED. 


PACKED FIELD OR BINARY FIELD SPECIFIED IN A FILE WITHOUT 
TRANSPARENCY. SPECIFICATION NOT PROCESSED. 


TERMINAL NAME (COLUMNS 71-74) INVALID. SPECIFICATION 
NOT PROCESSED. 


TRANSPARENCY (COLUMN 19) IS NOT Y, N, OR BLANK. BLANK 
IS ASSUMED. 


CONFIGURATION ENTRY (COLUMN 15) OF P, S OR M NOT 
SUPPORTED. ENTRY IGNORED. 


COLUMNS 16-52, 55-70 MUST BE BLANK FOR MULTIPLE 
TERMINAL FILES AFTER FIRST SPECIFICATION. ENTRIES 
IGNORED. 


TERMINAL NAME (COLUMNS 71-74) 
SPECIFICATION NOT PROCESSED. 


USED TWICE. 


REMOTE AUXILIARY DEVICE (COLUMNS 65-70) NOT ALLOWED 
FOR MULTIPLE TERMINAL FILES. SPECIFICATION NOT 
PROCESSED. 


CCA NAME (COLUMNS 70-73) ON CONTROL CARD INVALID OR 
MISSING FOR REMOTE FILES. ‘RPGI' ASSUMED. 
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oo EES 


Message-Meaning/Corrective Action 


SWITCHED ENTRY (COLUMN 20) IS NOT E, S, M, A, B, OR 
BLANK. BLANK IS ASSUMED. 


REMOTE TERMINAL (COLUMNS 48-51) INVALID OR TERMINAL 
COMBINATION INVALID FOR MULTIPLE TERMINAL FILE. 
SPECIFICATION NOT PROCESSED. 


NUMBER OF EXTENTS (COL. 68-69) INVALID FOR FILE TYPE. 
ENTRY IGNORED. 


END POSITION SPECIFIED FOR *PLACE GREATER THAN 256 OR 
LESS THAN TWICE PREVIOUS HIGH POSITION. 


FACTOR 1 ENTRY (COL. 18-27) INVALID FOR OPERATION. 
SPECIFICATION IS NOT PROCESSED. 


FACTOR 2 ENTRY (COL. 33-43) INVALID FOR OPERATION. 
SPECIFICATION IS NOT PROCESSED. 


INVALID SKIP ENTRIES IN COL. 19-22 OR GREATER THAN THE 
FORM LENGTH SPECIFIED, ASSUME BLANK. 


ALL THREE RESULTING INDICATORS ARE THE SAME. 
MORE THAN 7 AN/OR LINES SPECIFIED. 


UNORDERED ENTRY (U IN COL. 66) IS INVALID. ENTRY OF ‘A’ 
IS ASSUMED. 


PROCESSING MODE (COL. 28) INVALID FOR CHAIN OUTPUT 
FILE. ‘R’ IS ASSUMED. 


FILE ORGANIZATION (COL. 32) NOT REQUIRED FOR CHAIN 
OUTPUT FILE. 


TRAILER RECORD OVERLAPS HEADER RECORD. TR IGNORED. 
NO TRAILER FIELDS FOR SPREAD CARD. TR IGNORED. 


FILE TYPE INVALID FOR SPREAD CARD DESIGNATION. TR 
IGNORED. 


LOOKAHEAD NOT ALLOWED WITH SPREAD CARDS. TR 
IGNORED. 


CONTINUATION OPTION (COL. 54-59) IS REPEATED FOR A FILE. 
SECOND ENTRY IS IGNORED. 


BUFOFF SPECIFIED FOR AN OUTPUT FILE. ENTRY IGNORED. 
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Message-Meaning/Corrective Action 


CONTINUATION OPTION (COL. 54-59) INVALID FOR DEVICE. 
CONTINUATION LINE !S IGNORED. 


CONTINUATION OPTION (COL. 54-59) IS INVALID OR MISSING. 
CONTINUATION LINE IS IGNORED. 


INVALID CONTINUATION LINE ENTRY 
CONTINUATION LINE IS IGNORED. 


(COL. 60-65). 


BUFOFF SPECIFIED FOR NON-ASCII TAPE FILE. ASCII FILE 
ASSUMED. 


PREVIOUS SPECIFICATION INVALID, CONTINUATION RECORD 
IGNORED. 


INVALID CONTINUATION LINE ENTRY (COL. 60-65) FOR 
ACCESS CONTINUATION OPTION. EXC IS ISSUED. 


INVALID FORM LENGTH ENTRY (COL. 15-17). SPECIFICATION IS 
NOT PROCESSED. 


INVALID OVERFLOW LINE ENTRY (COL. 20-22). SPECIFICATION 
IS NOT PROCESSED. 


OVERFLOW LINE EXCEEDS FORM LENGTH. FORM LENGTH 
ASSUMED FOR OVERFLOW LINE. 


INVALID ENTRY IN COL. 18-19. ‘FL’ ASSUMED. 
INVALID ENTRY IN COL. 23-27. ‘OL’ ASSUMED. 


FILE DESCRIPTION AND CONTINUATION SPECIFIED ON SAME 
LINE, SPECIFICATION IS NOT PROCESSED. 


INVALID FEATURE SPECIFIED FOR PROCESSING MODE. 
FETCH OVERFLOW ENTRY (COL. 16) INVALID FOR DEVICE. 


RESULT FIELD (COL. 43-48) IS INVALID FOR OPERATION. 
SPECIFICATION IS NOT PROCESSED. 


FETCH OVERFLOW AND OVERFLOW INDICATOR SPECIFIED FOR 
SAME OUTPUT LINE. INDICATOR IGNORED. 


NUMBER OF ENTRIES PER RECORD TIMES LENGTH OF ENTRY 
1S TOO LARGE. LENGTH OF ENTRY ASSUMED 1. 


OPERATOR CONTROL (COLUMN 9) INVALID FOR 
ACTION PROGRAMS. ENTRY IGNORED. 


IMS 90 





~— 
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Message-Meaning/Corrective Action 


FIRST PAGE FORMS ALIGNMENT (COLUMN 41) INVALID FOR 
IMS 90 ACTION PROGRAMS. ENTRY IGNORED. 


COMBINED FILE (COLUMN 15) INVALID FOR IMS 90 ACTION 
PROGRAMS. SPECIFICATION NOT PROCESSED. 


DISPLAY FILE (COLUMN 15) INVALID FOR IMS 90 ACTION 
PROGRAMS. SPECIFICATION NOT PROCESSED. 


TABLE OR ARRAY FILE (COLUMN 16) INVALID FOR IMS 90 
ACTION PROGRAMS. SPECIFICATION NOT PROCESSED. 


BLOCK LENGTH (COLUMNS 20-23) INVALID FOR IMS 90 
ACTION PROGRAMS. ENTRY IGNORED. 


ADDROUT/RECORD ADDRESS FILES (COLUMN 16) INVALID 
FOR IMS 90 ACTION PROGRAMS. SPECIFICATION NOT 
PROCESSED. 


DOUBLE BUFFERING (COLUMN 32) INVALID FOR IMS 90 
ACTION PROGRAMS OR IRAM FILES. ONE 1/O AREA 
ASSUMED. 


SEQUENTIAL INPUT FILES INVALID FOR IMS 90 ACTION 


PROGRAMS. SPECIFICATION NOT PROCESSED. 


DEVICE (COLUMNS 40-46) INVALID FOR IMS 90 ACTION 
PROGRAMS. SPECIFICATION NOT PROCESSED. 


LABELS/LABEL EXIT (COLUMNS 53-59) INVALID FOR IMS 90 
ACTION PROGRAMS. ENTRIES IGNORED. 


INDEX IN MAIN MEMORY (COLUMNS 60-65) INVALID FOR IMS 
90 ACTION PROGRAMS. ENTRY IGNORED. 


CYLINDER OVERFLOW SPACE PERCENTAGE (COLUMN 67) 
INVALID FOR IMS 90 ACTION PROGRAMS. ENTRY IGNORED. 


NUMBER OF EXTENTS (COLUMNS 71-72) INVALID FOR IMS 90 
ACTION PROGRAMS. ENTRY IGNORED. 


U1-U8 INDICATORS (COLUMNS 71-72) INVALID FOR IMS 90 
ACTION PROGRAMS. ENTRY IGNORED. 


ERROR ANALYSIS DUMP (COLUMN 8) INVALID FOR IMS 90 
ACTION PROGRAMS. ENTRY IGNORED. 


FILE LOAD INVALID FOR IMS 90 ACTION PROGRAMS. 
SPECIFICATION NOT PROCESSED. 
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Message-Meaning/Corrective Action 


FILE INDEX CONTINUATION OPTION (COLUMNS 54-59) INVALID 
FOR IMS 90 ACTION PROGRAMS. ENTRY IGNORED. 


TAPE REWIND (COLUMN 70) INVALID FOR IMS 90 ACTION 
PROGRAMS. ENTRY IGNORED. 


C1-C9 CHAINING (COLUMNS 9-10) INVALID FOR IMS 90 
ACTION PROGRAMS. SPECIFICATION NOT PROCESSED. 


SPREAD CARDS (COLUMNS 19-20) INVALID FOR IMS 90 
ACTION PROGRAMS. SPECIFICATION NOT PROCESSED. 


STACKER SELECT (COLUMN 42) INVALID FOR IMS 90 ACTION 
PROGRAMS. ENTRY IGNORED. 


STACKER SELECT (COLUMN 16) INVALID FOR IMS 90 ACTION 
PROGRAMS. ENTRY IGNORED. 


INVALID OPERATION (COLUMNS 28-32) FOR IMS 90 ACTION 
PROGRAMS. SPECIFICATION NOT PROCESSED. 


TELECOMMUNICATIONS SPECIFICATION (COLUMN 6) INVALID 
FOR IMS 90 ACTION PROGRAMS. SPECIFICATION NOT 
PROCESSED. 


SIGN HANDLING (COLUMN 40) INVALID FOR IMS 90 ACTION 
PROGRAMS. ENTRY OF ‘B’ ASSUMED. 


UNORDERED LOAD (COLUMN 66) INVALID FOR IMS 90 ACTION 
PROGRAMS. SPECIFICATION NOT PROCESSED. 


REMOTE TERMINAL (COLUMNS 48-51) REQUIRES A COMBINED 
FILE. SPECIFICATION NOT PROCESSED. 


WARNING: RESULT FIELD MAY NOT BE LARGE ENOUGH FOR 
RESULT. RESULTING INDICATORS ARE NOT SET IF ARITHMETIC 
OVERFLOW OCCURS. 


COLUMNS 7-8 ARE NOT BLANK IN 9200/9300 OR IBM 360/20 
MODE. BLANKS ASSUMED. 


RECORD SEQUENCE FOR CHAINING FILE ON FILE EXTENSION 
SPECIFICATION DOES NOT MATCH SEQUENCE ON_ INPUT 
SPECIFICATION. ENTRY ON INPUT SPECIFICATION IS 
ASSUMED. 


REMOTE TERMINAL (COLUMNS 48-51) CANNOT BE A 
COMBINED FILE. SPECIFICATION NOT PROCESSED. 


CDI NOT CONFIGURED. WORK STATION FILE NOT ALLOWED. 
SPECIFICATION NOT PROCESSED. 
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Message-Meaning/Corrective Action 


ONLY ONE WORK STATION FILE ALLOWED. SPECIFICATION 
NOT PROCESSED. 


WORKSTATION FILE MUST BE A COMBINED FILE. COMBINED 
ASSUMED. 


WORKSTATION FILE MUST BE PRIMARY OR DEMAND. 
SPECIFICATION NOT PROCESSED. 


LOOK-AHEAD FIELDS NOT ALLOWED FOR WORKSTATION FILE, 
SPECIFICATION NOT PROCESSED. 


MATCHING OR CHAINING FIELDS NOT ALLOWED FOR 
WORKSTATION FILE. INDICATOR IGNORED. 


FORMAT NAME SPECIFICATION FOR A WORKSTATION FILE IS 
INCORRECT. SPECIFICATION NOT PROCESSED. 


SECONDARY FILES NOT ALLOWED WHEN WORK STATION FILE 
IS A PRIMARY FILE. SPECIFICATION NOT PROCESSED. 


SPLIT MATCHING FIELDS NOT ALLOWED. EXECUTION IS 
DELETED. 


1P INDICATOR IS INVALID FOR TOTAL AND EXCEPTION 
OUTPUT RECORDS. RECORD WILL NOT BE WRITTEN WHEN 
PROGRAM I!S EXECUTED. 


AN/OR LINE EXPECTED OR SPECIFIED IMPROPERLY. 
SPECIFICATION IS NOT PROCESSED. 


LR INDICATOR IS INVALID FOR HEADER AND DETAIL OUTPUT 
RECORDS. RECORD WILL NOT BE WRITTEN WHEN PROGRAM 
IS EXECUTED. 


WARNING: FIELD IS GREATER THAN DEFAULT VALUE FOR 
DEVICE. FIELD IS TRUNCATED. 


FACTOR 2 IN THE GOTO STATEMENT IS UNDEFINED. 


WARNING-CURRENCY SYMBOL (COLUMN 18) _ INVALID. 
CANNOT BE O * , . — C R OR AMPERSAND. DOLLAR SIGN 
ASSUMED. 


VALUE DETECTED IN COLS 21-24, 28-31, OR 35-38 EXCEEDS 
RECORD LENGTH. A VALUE OF 1 IS ASSUMED. 


MORE THAN ONE CONSOLE FILE IN A PROGRAM IS INVALID. 
SPECIFICATION IS NOT PROCESSED. 
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Message-Meaning/Corrective Action 


RECORD IDENTIFYING INDICATOR INVALID FOR CONSOLE 
FILE. ASSUME ID. 


RECORD IDENTIFICATION CODES IN COLUMNS 35-41 ARE 
INVALID FOR THIS DEVICE. BLANKS IS ASSUMED. 


FILE TYPE (COL 15) IS INVALID FOR CONSOLE FILE. ENTRY OF 
11S ASSUMED. 


INVALID OVERLAPPING FIELDS. SPECIFICATION 
PROCESSED. 


IS NOT 
WORKSTATION AND CONSOLE FILE NOT ALLOWED IN SAME 
PROGRAM. SPECIFICATION IS NOT PROCESSED. 


MAXIMUM NUMBER OF RECORDS (10) FOR CONSOLE FILE 
EXCEEDED. SPECIFICATION IS NOT PROCESSED. 


AND LINE IS INVALID FOR DEVICE. COLS 14-16. 


INVALID OR BLANK ENTRIES IN COLUMNS 21-34 FOR THIS 
DEVICE. 


FILE DESCRIPTION (COL 16) INVALID FOR DEVICE. 


FIELD LENGTH DEFINED FOR RECORD IDENTIFICATION DOES 
NOT MATCH LENGTH OF IDENTIFICATION. 


INVALID POSITION FOR FIRST FIELD TO BE PROMPTED. 


TO FILENAME MUST BE LIMITS FILE 
CONSOLE. 


IF FROM FILE IS 
INCONSISTENT USAGE OF RECORD IDENTIFYING CODES ON 
OR LINE. SPECIFICATION IS NOT PROCESSED. 


WARNING: TOTAL LENGTH OF ALL CONTROL FIELDS IS 
GREATER THAN 144 CHARACTERS. 


FIELD LENGTH GREATER THAN 66 IS INVALID FOR DEVICE. 
SPECIFICATION IS NOT PROCESSED. 


COL. 68 OF CONTINUATION STATEMENT IS NOT A BLANK OR 
D. ENTRY OF BLANK ASSUMED. 


COL. 69 OF CONTINUATION STATEMENT IS NOT A BLANK OR 
C. ENTRY OF BLANK ASSUMED. 
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MORE THAN 5 KEY STRUCTURES DESCRIBED FOR A FILE. 
STATEMENT NOT PROCESSED. 


FILE KEY STRUCTURE SPECIFIED IN COL 29-30 AND COL 
35-38. CONTINUATION STATEMENT IS NOT PROCESSED. 


SCREEN FORMAT NAME MISSING FOR WORKSTATION 
OUTPUT RECORD. ALL SPECIFICATIONS IN THIS RECORD 
TYPE ARE NOT PROCESSED. 


INDICATOR IN COLS. 7-17 INVALID. SPECIFICATION NOT 
PROCESSED. 


WARNING: NO DATA STRUCTURE NAME FOUND ON INPUT 
SPECIFICATIONS MATCHING NAME ON WORKSTATION 
SAVDS CONTINUATION LINE. 


WARNING: IND AND/OR SAVDS_ IS_ SPECIFIED FOR 
WORKSTATION FILE BUT NUM IS NOT SPECIFIED OR IS NOT 
GREATER THAN 1. NO DATA SWAPPING WILL BE PERFORMED 
FOR WORKSTATIONS. 


WARNING: INDICATOR STATUS MAY NOT BE RETURNED TO 
USER, RESULTS MAY BE UNPREDICATABLE. 


WARNING: LENGTH OF FACTOR 2 VARIABLE ON ENDSR 
OPERATION FOR INFSR SUBROUTINE SUPPORT IS NOT 6. 
RESULTS MAY BE UNPREDICTABLE. 


WARNING: COLUMNS 60-65 BLANK FOR NUM 
CONTINUATION STATEMENT. 1 ASSUMED. 


KEY LENGTH (COLUMNS 65-67) IS MISSING OR INVALID. 
SPECIFICATION IS NOT PROCESSED. 


WARNING: INSFSR SUBROUTINE IS MISSING OR INVALID. 
RECORD LENGTH (COLUMNS 24-27) IS GREATER THAN 160 
FOR S/34 CONSOLE RECORD ADDRESS FILE. SPECIFICATION 
IS NOT PROCESSED. 


FORMAT IS TOO LARGE TO FIT ON ONE SCREEN. FIELDS 
MUST BE REDUCED OR REDEFINED. 
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NO ERROR MESSAGE ASSIGNED FOR THIS NOTE 
NO ERROR MESSAGE ASSIGNED FOR THIS NOTE 
NO ERROR MESSAGE ASSIGNED FOR THIS NOTE 
NO ERROR MESSAGE ASSIGNED FOR THIS NOTE 


NO ERROR MESSAGE ASSIGNED FOR THIS NOTE 


WARNING: KEY CHANGE HAS TO BE SPECIFIED IN IMS 
CONFIGURATION. ENTRY IGNORED. 


REFER NOT ALLOWED FOR 
SPECIFICATION IS NOT PROCESSED. 


BATCH PROGRAMS. 


REFER NOT ALLOWED FOR OUTPUT FILES. SPECIFICATION 
NOT PROCESSED. 


NO PRIMARY KEY SPECIFIED FOR MULTIKEY FILE. FIRST KEY 
SPECIFIED ASSUMED AS PRIMARY. 


WARNING: 
IGNORED. 


PRIMARY KEY ALREADY DEFINED. ENTRY 


WARNING: KEY OF REFERENCE ALREADY DEFINED. ENTRY 
IGNORED. 


WARNING: DUPLICATES NOT ALLOWED FOR PRMIARY KEY. 
ENTRY IGNORED. 


SETK ONLY ALLOWED FOR CHAINED OR DEMAND FILES. 
SPECIFICATION IGNORED. 
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Appendix E. Main Storage Conservation 
Techniques 


E.1. GENERAL 


The following subsections describe several techniques that you can use to reduce the 
amount of main storage required for executing your RPG Il program. 


E.2. DIVIDING A PROGRAM INTO SEPARATE TASKS 


If you have a program that performs more than one task, you can save main storage by 
dividing the program into separate tasks; that is, write a separate program for each task and 
execute each program separately. For example, assume that you have a program that 
updates a file and prints a listing of the updated file. You could save main storage by writing 
a separate program to update the file and a separate program to print a listing of the file. 


E.3. USING IRAM TO PROCESS ALL DISK FILES 
Main storage can be saved by specifying that all disk files are to be processed by IRAM. In 
the IBM System/3 mode, IRAM is always used. For other modes, a considerable saving will 


result, especially if your program uses more than one access method; for example SAM and 
ISAM. 


Note that before you can create an IRAM file that is to be accessed by another language 
processor, check to see if IRAM is supported by that language processor. 


If you want to specify that IRAM is to be used, include a // PARAM MOD = IRAM statement 
in your compilation job control stream or, if you use the RPG job control procedure call 
statement, include the keyword parameter MOD = IRAM. Note that if you use IRAM, you 
should design your files so that the record lengths are even multiples of 256. 

E.4. CONTROL CARD SPECIFICATIONS FORM 

The following subsections describe the entries and techniques you can use on this form that 
will reduce main storage requirements for program execution. 


E.4.1. Error Analysis Dump 


Do not specify an error analysis dump; that is, leave this field (column 8) blank. 
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E.4.2. Sign Handling 


Do not specify either input or output sign checking; that is, enter a B in this field 
(column 40). 


E.5. FILE DESCRIPTION SPECIFICATIONS FORM 


The following subsection describes the entries and techniques you can use on this form that 
will reduce main storage requirements for program execution. 


E.5.1. Device 


If you have card input, enter CTLRDR rather than READER in this field (columns 40 
through 46). 


E.6. INPUT FORMAT SPECIFICATIONS FORM 


The following subsections describe the entries and techniques you can use on this form that 
will reduce main storage requirements for program execution. 


E.6.1. Record Identification Codes 


When you specify record identification codes (columns 21 through 41), use as few as 
possible to identify a record type and those that you specify should be specified with a C 
rather than Z or D in the C/Z/D field (column 26, 33, or 40). 


E.6.2. Identical Input Fields in Two or More Record Types 


if the majority of the input fields are identical in two or more record types, use OR lines 
(columns 14 and 15) and field record relation entries (columns 63 and 64) for these fields 
rather than defining them for each record type. The fields used with a field record relation 
entry must be grouped together; that is, if three fields were related to record type 02, these 
fields must be described on contiguous lines and O02 must be specified in field record 
relation field (columns 63 and 64) on each line. 


E.6.3. Fields Not Used in Your Program 

If there are fields in an input record that are not used in your program, do not describe these 
fields when you describe the fields for a given record type. 

E.6.4. Using Same Field Name for Different Fields in Different Record Types 

Use the same field name if the field size and format (alphanumeric or numeric with the 
same number of decimal places) are the same for two or more input fields in different record 


types and the data from these fields does not have to be preserved from one record type to 
another. 
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E.6.5. Specifying a Numeric Field as a Nonnumeric Field 

Do not specify a numeric field as a numeric field unless it is to be used in a numeric 
operation in your program. 

E.7. CALCULATION SPECIFICATIONS FORM 

The following subsections describe the entries and techniques you can use on this form that 
will reduce the main storage requirements for program execution. 

E.7.1. Using the Same Result Field as a Common Work Field 

Use the same name for the result field in those cases where you have several calculations 
that require a result field with the same characteristics and do not require the result to be 
retained. 

E.7.2. Using the GOTO Operation in Place of Conditioning Indicators 

Use the GOTO operation to bypass a group of inapplicable operations rather than 
conditioning each inapplicable operation by indicators, especially when different 
conditioning indicators would be required for two or more of these operations. 

E.7.3. Grouping Operations by Indicator 

If conditioning indicators are required, group the operations that are conditioned by the 
same indicator together. 

E.7.4. Using Subroutines Rather Than Repeating Identical Operations 

Use a subroutine rather than repeating identical operations at different points in your 
program. 

E.7.5. Using Odd Length Numeric Fields 


Use an odd length numeric field rather than an even length field whenever possible. 


E.7.6. Moving a Common Array Element to a Work Area 


If the same array element is used in more than one operation, move the element to a 
nonarray work area, and then use the work area name in the subsequent operations. 


E.7.7. Restricting the Use of Half Adjust 


Do not use half adjust (H in column 53) unless it is absolutely necessary to do so. 
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E.7.8. Using Factor 1 or Factor 2 as the Result Field 





Use factor 1 or factor 2 as the result field whenever possible. 


E.7.9. Using Actual Bit Patterns 


When you use the BITON, BITOF, or TESTB operation, specify the actual bit pattern in 
factor 2. 
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Appendix F. Program Conversion 
Requirements 


F.1. GENERAL 

As you know, the OS/3 RPG II compiler allows you to compile source programs that were 
written for other compilers. Before you compile one of these programs, however, there are 
certain actions that must be taken because of incompatibilities that exist between a program 
for another compiler and OS/3 RPG Il. 

F.2. IBM SYSTEM/3 AND SYSTEM/34 RPG II SOURCE PROGRAMS 


The following subsections describe the incompatibilities that exist in IBM System/3 and 
System/34 source programs and the recommended remedial actions for them. 


F.2.1. Compiling an IBM System/3 or System/34 RPG II Source Program 

lf you want to compile an IBM System/3 or System/34 source program, you must 
replace the control card specifications with one that contains a 4 in column 7 or you 
must override the existing control card specification. 

In the latter case, you can do this by including a // PARAM MOD=3 statement in your 


job control stream or, if you use the RPG job control procedure call statement, by 
including the keyword parameter MOD=3. 


F.2.1.1. Control Card Specifications 

The following subsections describe the incompatibilities that exist in the control card 
specifications and the recommended remedial actions. 

F.2.1.1.1. Core Size to Compile (Columns 7 through 9) 


You may specify the amount of main storage required to compile in the // JOB statement in 
your job control stream. If you do not, the minimum amount of main storage will be used. 


4 4 
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F.2.1.1.2. Object Output (Column 10) 

This option is not supported by OS/3 RPG II. Use a 7/7 PARAM OUT statement in your job 
control stream or the OUT keyword parameter in the RPG job control procedure call 
statement to specify the output option. 

F.2.1.1.3. Listing Option (Column 11) 

This option is not supported by OS/3 RPG Il. Use a // PARAM LST statement in your job 
control stream or the LST keyword parameter in the RPG job control procedure call 
statement to specify the listing options. 

F.2.1.1.4. Core Size to Execute (Columns 12 through 14) 

Automatic segmentation of object programs is not supported by OS/3 RPG Il. Specify 
sufficient main storage in the // JOB statement in your job control stream. 


F.2.1.1.5. Inquiry (Column 37) 


Specify preemptive priority for the job in the // JOB statement in your job control stream. 


F.2.1.1.6. Punch MFCU Zeros (Column 44) 


This option is not supported by OS/3 RPG Il. 


F.2.1.2. File Description Specifications 

The following subsections describe the incompatibilities that exist in the file description 
specifications and the recommended remedial actions. 

F.2.1.2.1. Device (Columns 40 through 46) 

The maximum record length for a console file is 60 bytes. 

Console update files are not supported by OS/3 RPG II. 


Device independent files are not supported by the OS/3 RPG Il. A device name must be 
specified in this field. 


F.2.1.2.2. Continuation Lines (Columns 53 through 65) 





if the entry INDEX is specified in the option field (columns 54 through 59) when loading an 
indexed file in the IBM System/3 mode, it must be used in every program that uses the file 
and the same amount of main storage must be specified in each case. & 
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F.2.1.2.3. Number of Extents (Columns 68 and 69) 

In OS/3 RPG Il if a multivolume file is created with only one volume at a time online, it 
must be processed with only one volume online at a time. If all volumes are online 
when it is created, all volumes must be online when it is processed. 


F.2.1.3. File Extension Specifications 


There are no known incompatibilities. 


F.2.1.4. Line Counter Specifications 


There are no known incompatibilities. 


F.2.1.5. Input Format Specifications 

When using data structures, if you define an internal area more than once and use both 
alphanumeric (unpacked) and numeric (packed) formats, check your definitions to make 
certain both formats do not coexist. 


F.2.1.6. Calculation Specifications 


The following subsections describe the incompatibilities that exist in the calculation 
specifications and the recommended remedial actions. 


F.2.1.6.1. Divide Operation (DIV) 

Divide operation (DIV) operands are limited to the specific length and decimal position 
attributes that are specified in 7.3.2.1.6. 

F.2.1.6.2. Time Operation (TIME) 

lf the time operation (TIME) is used, the format of the date is the OS/3 format yymmdd 
rather than ddmmyy or mmddyy. 

F.2.1.7. Output Format Specifications 


In OS/3 RPG il, heading and detail output is not performed if conditioned by the LR 
indicator. 


The following subsections describe the incompatibilities that exist in the output format 
specifications and the recommended remedial actions. 
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F.2.1.7.1. *PRINT 





*PRINT for printing and punching cards is not supported in OS/3 RPG Il. 


F.2.1.7.2. * in Column 40 


* in column 40 for printing on punched cards is not supported in OS/3 RPG Il. 


F.2.1.7.3. LR Output 


Heading and detail output conditioned by the LR indicator will not be output. Once the LR 
indicator is set on, only total output and last record output are performed. See Figure A-1 
for the detail logic cycle. 


F.2.1.8. Telecommunications Specifications 

The following subsections describe the incompatibilities in the telecommunications 
specifications and the recommended remedial actions. 

F.2.1.8.1. Configuration (Column 15) 

The P, M, and S configuration entries are not supported by OS/3 RPG Il. This must be 
specified in the communications network that is defined at system generation time. This 


entry should be replaced with a blank, otherwise a warning note will appear. For further 
information, see 17.4. 





F.2.1.8.2. Type of Control (Column 17) 

Type of station is not supported. This entry must be a blank, otherwise a warning note will 
appear. 

F.2.1.8.3. Type of Code (Column 18) 

Type of code is not supported by OS/3 RPG II. This must be specified in the communications 
network that is defined at system generation time. This entry should be replaced with a 
blank, otherwise a warning note will appear. For further information, see 17.4. 
F.2.1.8.4. Dial Number (Columns 21 through 31) 

Dial number is not supported by OS/3 RPG II. This must be specified in the communications 


network that is defined at system generation time. This entry should be replaced with a 
blank, otherwise a warning note will appear. For further infurmation, see 17.4. 





F.2.1.8.5. Identification - This Station (Columns 32 through 39) 


Identification — this station is not supported. This entry should be replaced with a blank, 
otherwise a warning note will appear. 
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F.2.1.8.6. Identification - Remote Station (Columns 40 through 47) 

Identification — remote station is not supported. This entry should be replaced with a blank, 
otherwise a warning note will appear. 

F.2.1.8.7. ITB (Column 52) 

ITB is not supported by OS/3 RPG II. This must be specified in the communications network 
that is defined at system generation time. This entry should be replaced with a blank, 
otherwise a warning note will appear. For further information, see 17.4. 

F.2.1.8.8. Polling Characters (Columns 61 and 62) 

Polling characters are not supported. This entry should be replaced with a blank, otherwise 
a warning note will appear. 

F.2.1.8.9. Addressing Characters (Columns 63 and 64) 

Addressing characters are not supported. This entry should be replaced with a blank, 
otherwise a warning note will appear. 

F.2.1.8.10. Interspersed Mode 

Interspersed mode is not supported. This entry should be replaced with a blank; otherwise a 
warning note will appear. 

F.2.2. Executing an IBM System/3 RPG If Program 


The following two guidelines apply to IBM System/3 RPG II programs compiled and run in 
an operation control language (OCL) environment: 


1. RPG II programs that use punched cards must have the file name PUNCH on the file 
description specifications form for the card output file. Programs that have a file name 
other than PUNCH for these files must be modified before they are compiled. The RPG 
1] compiler does not automatically substitute the file name PUNCH for the user-defined 
card output file name used in these programs. 


2. RPG Il programs that use matching field processing between two or more card files will 
produce incorrect results. To get the expected results, these card files must be placed 
on disk or tape so that only one card file is used. 


F.3. SPERRY UNIVAC 9200/9300 SYSTEM RPG SOURCE PROGRAMS 


The following subsections describe the incompatibilities that exist in SPERRY UNIVAC 
9200/9300 RPG source programs and the recommended remedial actions. 
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F.3.1. Compiling a SPERRY UNIVAC 9200/9300 RPG Source Program 

If you want to compile a SPERRY UNIVAC 9200/9300 RPG program, you must replace the 
control card specifications with one that contains a 3 in column 7. 

F.3.2. Control Card Specifications 

The following subsections describe the incompatibilities that exist in the control card 
specifications and the recommended remedial actions. 

F.3.2.1. Listing Option (Column 11) 

This option is not supported by OS/3 RPG Il. Use a 7/7 PARAM LST statement in your job 
control stream or the LST keyword parameter in the RPG job control procedure call 
statement to specify the listing option. 

F.3.2.2. Rewind (Column 12) 

This option is not supported by OS/3 RPG ll. Use column 70 on the file description 
specifications to specify the rewind option. 

F.3.2.3. Program Identification (Columns 30 through 33 or 46 through 49) 

This option is not supported by OS/3 RPG II. Use columns 75 through 80 on the control card 
specifications to specify the program identification. 

F.3.3. File Description Specifications 

The following subsections describe the incompatibilities that exist in the file description 
specifications and the recommended remedial action. 

F.3.3.1. File Name (Columns 7 through 13) 

Any character in a file name is not supported by OS/3 RPG Il. All characters used in file 
names in your program must conform to the OS/3 RPG Il requirements. For further 
information, see 5.2.1. 

F.3.3.2. Logical Unit Number (Columns 47 through 52) 

This option is not supported by OS/3 RPG Il. Use job control statements for device 
assignments. 

F.3.3.3. Alternate Logical Unit Numbers (Columns 54 through 56) 


This option is not supported by OS/3 RPG Il. Use job control statements for device 
assignments. 
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F.3.4. File Extension Specifications 

The following subsection describes the incompatibilities that exist in the file extension 
specifications and the recommended remedial action. 

F.3.4.1. Compilation Time Table Indicator (Column 6) 

This option (T in column 6) is not supported by OS/3 RPG Il. Each compilation time table 
must be preceded by a record that contains **blank in positions 1 through 3. If 7/7 PARAM 
COL=7 statement is specified, the **blank are in positions 7 through 9. 

F.3.5. Input Format Specifications 

The following subsections describe the incompatibilities that exist in the input format 
specifications and the recommended remedial action. 

F.3.5.1. Matching Fields 

lf your program uses matching fields without field record relation or with field record 
relation, the fields must be specified in accordance with OS/3 RPG Il requirements. For 
further information see 6.3.6.1 and 12.4.3. 

F.3.5.2. Invalid Numeric Data 

OS/3 RPG Il will not process numeric data that contains improper digits or signs. !f your 
program contains numeric data with improper digits or signs, correct the data before you 
attempt to process it. 

F.3.6. Calculation Specifications 

The following subsection describes the incompatibilities on the calculation specifications 
and the recommended remedial action. 


F.3.6.1. UPSI Special Name 


This option is not supported in OS/3 RPG Il. Use U1 through U8 indicators. 


F.3.7. Output Format Specifications 


No incompatibilities. 
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Appendix G. Auto Report 
Error Messages 


G.1. GENERAL 

If any errors are detected in your program while it is being analyzed by auto report, the 
UPSI byte is set in the communication region of the job preamble according to OS/3 
system standards to indicate the type of errors that occurred. 


UPSI Byte Setting Meaning 





Bit O 1 Catastrophic errors were detected in the source program. 
Generated source was incomplete. 
0) No catastrophic errors were detected. 
Bit 1 1 Serious errors were detected. A source module was generated 


but the results will be unpredictable. 


O No serious errors were detected. 


G.2. COMPILE-TIME MESSAGES 


When an error occurs during the processing of the source program, the appropriate 
message from the following list is printed on the compilation listing. An asterisk (*) 
indicates that the message is printed out due to a catastrophic error. A dagger (7) indicates 
that the message is printed out due to a serious error. A blank indicates that the message 
printed out is informational. These indicators are not printed out with the message. 


* _AROO1 SOURCE PROGRAM IS MISSING. PROGRAM IS TERMINATED. 
Terminal error. The first record in the source program is /* or **. 


Auto report terminates the job. 


Correct the source program and resubmit the job. 


Y 
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7 AROOZ2 RPG II CONTROL SPECIFICATION IS MISSING. A CONTROL 
SPECIFICATION WITH BLANK ENTRIES IS CREATED. 





Warning error for control (H) specification. The source program or the copied module 
doesn't contain a control specification. 


Auto report creates a control specification containing blank entries. 
Correct the source program or module. 


7 AROO3 SOURCE PROGRAM CONTAINS MORE THAN ONE RPG II CONTROL 
SPECIFICATION. ALL BUT THE FIRST ARE DROPPED. 


Warning error for control (H) specification. The source program contains multiple 
control specifications or the copied module contains a control specification. 


Auto report drops all but the first control specification. 
Correct the source program and resubmit the job. 


7 AROO4 DUPLICATE FILENAMES ON THE FILE DESCRIPTION SPECIFICATION. 
DUPLICATE IS DROPPED. 


Warning error for file description (F) specification. The file name on the specification 
isn’t unique. 





Auto report ignores the duplicate file description specification. 
Assign a unique name to the file and resubmit the job. 


7 AROOS REQUESTED SOURCE MODULE CANNOT BE FOUND. 
SPECIFICATION IS DROPPED. 


Warning error for /COPY specification. The module isn’t located because: 
1. You used the wrong name for the module. 

2. You specified the wrong disk for the library file. 

3. There aren't any records in the library file. 

Auto report ignores the specification. 


Correct the error and resubmit the job. 
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+ AROO6 DUPLICATE FILENAMES ON F-SPECS READ FROM THE FILE 
SOURCE. 


Warning error for file description (F) specification. You can use only one file 
description specification for a file name in a file module. The error occurs because: 


1. Two file description specifications with the same file name are in one file 
module. 


2. File description specifications with the same file name are in more than one file 
module. 


Auto report ignores the duplicate file description specification. 
Assign a unique file name and resubmit the job. 


+ AROO7 TABLE AREA PROVIDED FOR INPUT OVERRIDES EXCEEDED. 
OVERRIDE FUNCTION IS DISCONTINUED FOR THIS /COPY. 


Warning error for /COPY statement. The number of “COPY modifier statements for 
the input field specification exceeds the available space in the table. The fields that 
can be overwritten are added to the table. Because of this, you can get invalid 
specifications in the generated program. 

Auto report discontinues the override function for the /COPY statement. 

Place override statements first, then specify the input fields added to the copied 
specifications. This permits the override statements to use all the table space. Auto 
report can handle at least 20 overrides. 


7 AROO8 INVALID RPG II SPECIFICATION TYPE. SPECIFICATION IS DROPPED. | 


Warning error for /COPY statement. The specification is invalid. The error occurs 
because: 


1. Column 6 doesn't contain an H, F, E, L, T, I, C, or O. 
2. Column 7 doesn't contain an asterisk. 


3. The /COPY statement is on a control (H) specification. (The /COPY statement is 
processed correctly.) 


Auto report ignores the specification. 


Correct the error and resubmit the job. 
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* AROOS INVALID OR UNDEFINED FILE FOR *AUTO LINES. 
DROP ALL SPECIFICATIONS TO NEXT RECORD TYPE. 


Terminal error for file description (F) or output (O) specification. The file is invalid or 
undefined. The error occurs because: 


1. The auto report file isn’t a printer or line counter file. 
2. The auto report file doesn't contain a file description specification. 


3. The names on the file description specification and the auto report file don’t 
match. 


The job terminates. 
Correct the error and resubmit the job. 


+ ARO10 TABLE AREA FOR FIELD NAMES USED ON *AUTO LINES EXCEEDED. 
SPECIFICATION IS DROPPED. 


Warning error for output (O) specification. Each field you used in the H-*AUTO, 
D-*AUTO, or T-*AUTO specifications is placed into a table. 


Auto report ignores the specification. 





Take out the unused and unneeded field names and resubmit the job. 


ARO11 TABLE AREA PROVIDED FOR FIELD NAMES EXCEEDED. NON- 
UNIQUE FIELD NAMES MAY BE GENERATED. 


Warning error for output (O) specification. The field name table contains the 
generated field names that end in a number from 1 through 9 or an R. 


Auto report may generate the nonunique field names. 


To avoid duplicate field names, don't use names that end in a number from 1 through 
9 or an R. 


ARO12 GENERATED TOTAL FIELD PREVIOUSLY DEFINED WITH DIFFERENT 
ATTRIBUTES. PREVIOUS DEFINITION IS USED. 


Warning error for output (O) specification. You defined the generated total field with a 
different field length or a different number of decimal positions. 


Auto report uses the first or previous definition and prints both the total field and 
generated field names with the error note number. 


Correct the error and resubmit the job. 
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tf ARO13 *AUTO PREVIOUSLY USED FOR A DIFFERENT FILE. DROP ALL 
SPECIFICATIONS TO NEXT RECORD TYPE. 


Warning error for output (O) specification. You can specify *AUTO for only one file. 
Auto report drops all specifications to the next record type. 
Correct the error by specifying *AUTO for only one file and resubmit the job. 


ARO14 POSITIONS 7-22 ARE NOT BLANK ON OUTPUT FIELD 
SPECIFICATION. BLANKS ARE ASSUMED. 


Warning error for output (O) specification. You must leave columns 7 through 22 of 
the output field specification blank. 


Auto report assumes blanks are in columns 7 through 22. 
Leave columns 7 through 22 blank and resubmit the job. 
ARO15 INVALID INDICATOR. BLANKS ARE ASSUMED. 
Warning error for output (O) specification. Columns 24 through 25, 27 and 28, or 30 


and 31 don’t contain 01 through 99, LO through L9, MR, 1P, H1 through H9, OA 
through OG, OV, or blanks. 


Auto report prints the invalid indicator with the note number and assumes blanks in 
the columns. 


Enter a valid indicator and resubmit the job. 
7  ARO16 INVALID FIELD NAME. SPECIFICATION IS DROPPED. 


Warning error for output (O) specification. The field name is invalid. The error occurs 
because: 


1. The field name wasn't found. 
2. You didn't define the field name. 


3. The array index contains a blank after the comma or it has a comma as the first 
character. 


4. Field name usage is invalid with a constant. 
Auto reports ignores the specification and the column headings for the field. 


Enter a field name in columns 32 through 37 and resubmit the job. 
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ARO17 INVALID ENTRY IN POSITION 38 AND/OR 44. BLANKS ARE 
ASSUMED. 





Warning error for output (O) specification. You must leave column 38 and column 44 
blank for alphanumeric fields. 


Auto report assumes blanks are in column 38 and column 44. 
Leave columns 38 and 44 blank and resubmit the job. 
ARO18 INVALID ENTRY IN POSITION 39. BLANK IS ASSUMED. 


Warning error for output (O) specification. Column 39 must contain blank or B for any 
field on an H-*AUTO specification. 


Auto report assumes a blank is in column 39. 
Enter B or blank in column 39 and resubmit the job. 
ARO19 INVALID ENTRY IN POSITIONS 40-43. BLANKS ARE ASSUMED. 


Warning error for output (O) specification. You can’t specify an end position on the 
field description for an H-*AUTO specification. 


Auto report assumes blanks are in columns 40 through 43. 





Leave columns 40 through 43 blank and resubmit the job. 


ARO20 INVALID ENTRY IN POSITIONS 45-70. BLANKS ARE ASSUMED. 


Warning error for output (O) specification. You can't specify a heading or edit word 
with an alphanumeric field. 


Auto report assumes blanks are in columns 45 through 70. 
Enter valid entries in columns 45 through 70 and resubmit the job. 

ARO21 FIELD NAME WILL BE CONDITIONED BY THE INDICATOR N1P. 
Warning error for output (O) specification. You specified a field name on an H-*AUTO 
specification but didn’t enter an indicator to condition the line. If the field is printed 
on the first page, it may contain meaningless data because the first record has not 


been read. 


Auto report generates an N1P indicator for this specification. 


Enter the proper indicator and resubmit the job. 
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ARO22 INVALID EDIT CODE, POSITION 38. BLANK IS ASSUMED. 


Warning error for output (O) specification. Column 38 doesn’t contain A, B, C, D, J, K, 
L, M, 1, 2, 3, 4, X, Y, or Z. 


Auto report assumes a blank in column 38. 
Enter a valid edit code in column 38 and resubmit the job. 
ARO23 INVALID ENTRY IN POSITION 44. BLANK IS ASSUMED. 


Warning error for output (O) specification. You must leave column 44 blank for a 
numeric field. 


Auto report assumes a blank in column 44. 
Leave column 44 blank and resubmit the job. 
ARO24 POSITIONS 23-31 ARE NOT BLANK FOR TOTALING FIELD. 


Warning error for output (O) specification. The indicators you specified on a totaling 
field with a T-*AUTO specification aren’t used when specifications are generated. 


Auto report assumes blanks are in columns 23 through 31. 
Leave columns 23 through 31 blank and resubmit the job. 


ARO25 CONSTANT/EDIT WORD IN POSITIONS 45-70 IS_ INVALID. ~<+ 
BLANKS ARE ASSUMED IN POSITIONS 45-70. 


Warning error for output (O) specification. The entry in columns 45 through 70 is 
invalid. The error occurs because: 


1. The entry in columns 45 through 70 doesn’t begin with an apostrophe. 
2. The entry in columns 45 through 70 doesn’t end with an apostrophe. 


3. There is an embedded single apostrophe (not paired with a corresponding 
apostrophe) in columns 46 through 69. 


4. Columns 45 through column 70 aren’‘t blank after the last apostrophe. 


Auto report drops this specification if you didn’t specify a field name and assumes 
blanks in columns 45 through 70 if you did specify a field name. 


Correct the entry in columns 45 through 70 and resubmit the job. 
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7 ARO26 UNABLE TO DETERMINE IF FIELD OR RECORD SPECIFICATION. 
SPECIFICATION IS DROPPED. 


Warning error for output (O) specification. Column 15 is blank, which indicates that 
the specification is a field description, but columns 32 through 37 and 45 through 70 
are also blank. 


Auto report drops the specification and the column headings for the field. 


Make the proper entries and resubmit the job. 


ARO27 POSITIONS 38-44 ARE NOT BLANK WHEN A LITERAL IS SPECIFIED. 
BLANKS ARE ASSUMED. 


Warning error for output (O) specification. You must leave columns 38 through 44 
blank when you specify a title on the H-*AUTO specification. 


Auto report assumes blanks are in columns 38 through 44. 
Leave columns 38 through 44 blank when specifying a title and resubmit the job. 


ARO28 POSITIONS 7-13 ARE NOT BLANK ON AND/OR SPECIFICATION. 
BLANKS ARE ASSUMED. 


Warning error for output (O) specification. You must leave columns 7 through 13 
blank when you specify AND in columns 14 through 16 or specify OR in columns 14 
and 15. 

Auto report assumes blanks are in columns 7 through 13. 


Leave columns 7 through 13 blank when using AND or OR entries and resubmit the 
job. 


ARO29 SPACE AND/OR SKIP ENTRIES IN POSITIONS 17-22 ARE INVALID. 
BLANKS ARE ASSUMED. 


Warning error for output (O) specification. The space entry in columns 17 and 18 
doesn’t contain O through 9 or blank, and the skip entry in columns 19 and 20 and 
columns 21 and 22 doesn't contain 01 through 15. 


Auto report assumes blanks are in columns 17 through 22. 


Make the proper space and skip entries and resubmit the job. 


ARO30 POSITIONS 37-70 NOT BLANK ON RECORD SPECIFICATION. 
BLANKS ARE ASSUMED. 


Warning error for output (O) specification. You must leave columns 37 through 70 
blank for output file identifications. 


Auto report assumes blanks are in columns 37 through 70. 


Leave columns 37 through 70 blank and resubmit the job. 
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® ARO31 INVALID ENTRY IN POSITION 38. BLANK 1S ASSUMED. 


Warning error for output (O) specification. You can’t specify an edit code along with a 
heading on D-*AUTO or T-*AUTO specifications. 


Auto report assumes a blank is in column 38. 


Leave column 38 blank and resubmit the job. 


ARO32 END POSITION IN POSITIONS 40-43 IS INVALID. BLANKS ARE 
ASSUMED. 


Warning error for output (O) specification. Columns 40 through 43 contain invalid 
numbers or the end position exceeds the record length. 


Auto report assumes blanks are in columns 40 through 43. 
Enter a valid end position in columns 40 through 43 and resubmit the job. 


ARO33 GENERATED FIELD LENGTH EXCEEDS 15. 15 IS ASSUMED. 


Warning error for output (O) specification. When you specify a D-*AUTO or T-*AUTO 
specification with an A in column 39, the generated total field has a length that is 
two positions longer than the field you specify. An error occurs when the generated 
@ total field exceeds 15. 
Auto report assumes the generated total field is 15 positions long. 
Decrease the length of the field and resubmit the job. 
ARO34 DEFINITION OF FIELD IS INVALID. DEFINITION NOT USED. 


Warning error for field description (F), file extension (E), input (I), or calculation (C) 
specification. The definition of the field is invalid. The error occurs because: 


1. The length is O. 
2. The length is greater than 15 for a numeric field. 
3. The length is not numeric. 
4. The length is less than the decimal position. 
5. The decimal position is not numeric. 
6. Column 43 doesn’t contain P, B, or blank. 
Auto report ignores the definition of the field. 
@ 


Enter a valid field definition and resubmit the job. 
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~ ARO35 ARRAY NAME IS SPECIFIED ON *AUTO LINE. SPECIFICATION IS 
DROPPED. 





Warning error for output (O) specification. The name is invalid. The error occurs 
because: 


1. You specified the name of an array in columns 32 through 37 of the H-*AUTO, 
D-*AUTO, or T-*AUTO specification. 


2. The name generated by a D-*AUTO or T-*AUTO specification is an array name. 
The system drops the specification along with its column headings. 


Auto report prints both the total field name and the generated field array name or it 
drops the specification. 


Enter the name of a numeric field that is to be accumulated in columns 32 through 
37 and resubmit the job. 


ARO36 RECORD LENGTH FOR FILE WITH *AUTO LINES IS INVALID. ASSUME 
RECORD LENGTH OF 120. 


Warning error for file description (F) specification. The record length is invalid. The 
error occurs because: 


1. The record length is 0. 





2. The record length is not numeric. 

3. The record length is blank. 

Auto report assumes the record length is 120. 
Enter a valid record length and resubmit the job. 


ARO37 TOTALING (A IN POSITION 39) SPECIFIED FOR AN INVALID FIELD 
NAME. ASSUME POSITION 39 IS BLANK. 


Warning error for output (O) specification. Column 39 on a D-*AUTO or T-*AUTO 
contains an A, but the field name is: 


1. Blank 
2. A table name 
3. An indexed array name 


4. A page field 





Auto report drops the specification and all its column headings. @ 


Enter the name of a numeric field that is to be accumulated in columns 32 through 
37 and resubmit the job. 
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@ ARO38 TOTALING (A IN POSITION 39) SPECIFIED FOR AN ALPHANUMERIC 
FIELD. ASSUME POSITION 39 IS BLANK. 


Warning error for output (O) specification. The field name you entered in on the D-* 
AUTO or T-*AUTO specification is alphanumeric but there is an A in column 39. 


Auto report assumes a blank is in column 39. 


Enter the name of a numeric field that is to be accumulated in columns 32 through 
37 and resubmit the job. 


“ARO39 POSITIONS 7-38 NOT BLANK FOR A COLUMN HEADING. BLANKS 
ARE ASSUMED. 


Warning error for output (O) specification. When you specify a C in column 39, 
columns 7 through 38 must be blank. 


Auto report assumes blanks are in columns 7 through 38 when there is a C in 
column 39. 


Leave columns 7 through 38 blank and resubmit the job. 
ARO40 INVALID ENTRY IN POSITION 39. BLANK IS ASSUMED. 


& Warning error for output (O) specification. The entry in column 39 is invalid. The error 
occurs because: 


1. Column 39 contains B but there isn't a field name. 


2. Column 39 doesn’t contain A, B, C, 1 through 9, R, or blank on the D-*AUTO or 
T-*AUTO field description. 


Auto report assumes a blank is in column 39. 
Enter a valid entry in column 39 and resubmit the job. 


7 ARO41 COLUMN HEADING, C IN POSITION 39, SPECIFIED BUT LITERAL 
NOT PRESENT. SPECIFICATION IS DROPPED. 


Warning error for output (O) specification. When you specify a C in column 39, 
columns 45 through 70 must contain a column heading. 


Auto report ignores the specification. 


Enter a column heading in columns 45 through 70 and resubmit the job. 
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ARO42 EDIT CODE AND EDIT WORD ARE BOTH SPECIFIED. EDIT WORD IS 
DROPPED. 


Warning error for output (O) specification. You can’t use an edit code in column 38 
and an edit word in columns 45 through 70. 


Auto report assumes blanks are in columns 45 through 70. 


Leave columns 45 through 70 blank when you specify an edit code and resubmit the 
job. 


ARO43 EDITING SPECIFIED FOR AN ALPHANUMERIC FIELD. ASSUME 
BLANKS IN POSITIONS 38 AND 45-70. 


Warning error for output (O) specification. You must leave columns 38 and 45 
through 70 blank for alphanumeric fields. 


Auto report assumes blanks are in columns 38 and 45 through 70. 
Correct the error and resubmit the job. 
ARO44 INVALID ENTRY IN POSITION 16. BLANK IS ASSUMED. 
Warning error for output (O) specification. Column 16 doesn’t contain F or blank. 
Auto report assumes a blank is in column 16. 


Enter a valid entry in column 16 and resubmit the job. 


+t ARO45 AND/OR SPECIFICATION OUT OF SEQUENCE. SPECIFICATION IS 
DROPPED. 


Warning error for output (O) specification. The AND or OR entries in columns 14 
through 16 don’t follow a D-*AUTO or T-*AUTO output file identification. 


Auto report drops the specification. 


Ensure that the output file identification entries in columns 15 through 31 precede 
any AND or OR lines and resubmit the job. 


*? ARO46 MULTIPLE D/T-*AUTO LINES SPECIFIED IN THE PROGRAM. DROP 
ALL SPECIFICATIONS TO NEXT RECORD TYPE. 


Warning error for output (O) specification. You can’t use D-*AUTO and T-*AUTO 
specifications in the same program. 


Auto report drops all specifications to the next record type. 


Use either D-*AUTO or T-*AUTO specifications and resubmit the job. 
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+t ARO47 COLUMN HEADING SPECIFICATION OUT OF ORDER. 
SPECIFICATION IS DROPPED. 


Warning error for output (O) specification. A field description with a C in column 39 
must follow a field description with a C, B, A, or blank in column 39. 


Auto report ignores the specification. 


Place the column heading specification (C in column 39) in the correct order and 
resubmit the job. 


ARO48 END POSITION INVALID FOR THIS SPECIFICATION. ASSUME 
BLANKS IN POSITIONS 40-43. 


Warning error for output (O) specification. You can’t specify an end position if there is 
a C, R, or 1 through 9 in column 39. 


Auto report assumes blanks are in columns 40 through 43. 
Leave columns 40 through 43 blank and resubmit the job. 


ARO49 SPECIFIED END POSITION IS LESS THAN FIELD OR LITERAL. 
LENGTH. ASSUME BLANKS IN POSITIONS 40-43. 


Warning error for output (O) specification. The end position you specify in columns 40 
through 43 must be at least as large as the field, column heading, or heading. 


Auto report assumes blanks are in columns 40 through 43. 
Enter a valid numeric entry in columns 40 through 43 and resubmit the job. 


7  ARO50 MORE THAN THREE COLUMN HEADING LINES’ SPECIFIED. 
SPECIFICATION IS DROPPED. 


Warning error for output (O) specification. You can only use two consecutive 
specifications with a C in column 39. 


Auto report ignores the specification. 


Remove the incorrect column heading specification (C in column 39) and resubmit the 
job. 


ARO51 NO VALID TOTALING FIELD SPECIFIED. 
Warning error for output (O) specification. Column 39 on a D-*AUTO or T-*AUTO 
specification doesn’t contain an A. Because of this, no automatic totaling is done and 
no total lines are generated. 


Auto report drops the total line entries 1 through 9 or R in column 39. 


Enter an A in column 39 when you want automatic totaling and then resubmit the 
job. 
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7  ARO52 1-9, R IS INVALID IN POSITION 39. SPECIFICATION IS DROPPED. 





Warning error for output (QO) specification. Column 39 contains a number from 1 
through 9 but you didn’t specify the associated level indicator L1 through L9 in 
columns 59 and 60 of the input specification. Or, the lowest level indicator you used 
on a T-*AUTO specification is of greater or equal level to the associated level 
indicator L1 through L9 in columns 59 and 60 of the input specifications. 


Auto report ignores the specification. 
If you specified a 2 in column 39, then you must specify L2 as a level indicator on the 
input specifications. If this is a T-*AUTO specification, the lowest level indicator you 


can use is L1. Make the necessary entries and resubmit the job. 


ARO53 INDICATORS NOT ALLOWED ON THIS SPECIFICATION TYPE. BLANKS 
ARE ASSUMED IN POSITIONS 23-31. 


Warning error for output (O) specification. You can't use indicators on: 
1. Field descriptions that follow an H-*AUTO specification. 


2. Field descriptions with 1 through 9 or R in column 39 that follow a D-*AUTO or 
T-*AUTO specification. 





Auto report assumes blanks are in columns 23 through 31. 
Leave columns 23 through 31 blank and resubmit the job. 


ARO54 SPECIFIED END POSITION CAUSES OVERLAYING OF FIELDS OR 
LITERALS. BLANKS ARE ASSUMED IN POSITIONS 40-43. 


Warning error for output (O) specification. The end position you specified is less than 
the length of the line up to this specification plus the length of the field, column 


heading, or heading. An end position is automatically generated if you leave columns 
40 through 43 blank. 


Auto report assumes blanks are in columns 40 through 43. 
Make the corrections and resubmit the job. 
* ARO55 1!/O ERROR OCCURRED. PROGRAM IS TERMINATED. 


Terminal error. An input/output error has occurred. Additional information is printed 
along with the error that describes the problem: 


1. Permanent disk error. 


2. Not enough tracks are allocated for work file. 
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3. Not enough tracks are allocated for source file. 

Auto report terminates the job. 

Increase the size of the work file and resubmit the job. 

ARO56 LIBRARY SOURCE MEMBER NAME IS INVALID. ENTRY IS DROPPED. 
Warning error for the auto report options (U) specification or the /COPY statement. A 
/COPY statement can’t have a U or H in column 6 of the specifications form. The 
auto report options specifications form must have a U in column 6. The error occurs 
because: 

1. F1 or LFD name is missing. 

2. There isn’t a comma between the LFD name and module name. 


3. The LFD name or module exceeds 8 characters. 


4. The LFD name or module is missing, doesn’t exist in the library file, or is 
incorrectly specified. 


5. The LFD name or module name contains an embedded blank. 
Auto report drops the entry. 
Identify and correct the error and resubmit the job. 


ARO57 TOTALING SPECIFIED MORE THAN ONCE FOR THIS FIELDNAME. 
SPECIFICATION 1S DROPPED. 


Warning error for output (O) specification. You can specify totaling (A in column 39) for 
any particular field name only once in each program. 


Auto report drops the specification. 
Enter A in column 39 only once for each field name and resubmit the job. 


ARO58 MAXIMUM NUMBER OF H-*AUTO LINES EXCEEDED. DROP ALL 
SPECIFICATIONS TO THE NEXT RECORD TYPE. 


Warning error for output (O) specification. You can't specify more than five H-*AUTO 
specifications. 


Auto report drops all H-*AUTO specifications after the first five. 


Ensure that there is no more than five H-*AUTO specifications and resubmit the job. 


Y 
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ARO59 INVALID ENTRY IN POSITION 7 OF U SPECIFICATION. BLANK IS & 


ASSUMED. 


Warning error for auto report options (U) specification. You must use C or blank in 
column 7. 


Auto report assumes a blank is in column 7. 


Use C or blank in column 7 and resubmit the job. 


ARO60 FILE NAME IN POSITIONS 8-24 IS NOT BLANK. BLANKS ARE ASSUMED. 


Warning error for auto report options (U) specification. You must leave columns 8 
through 24 blank if column 7 is blank. If column 7 contains a C, then: 


1. Columns 8 through 24 must contain F1 or LFD name followed by a comma and 
the module name. 


2. The name must be one to eight characters long. 
3. The first character of the name must be alphabetic. 
Auto report assumes blanks are in columns 8 through 24. 


Make the proper entries and resubmit the job. a] 





ARO61 INVALID ENTRY IN DATE SUPPRESS, POSITION 27. BLANK 1S 


ASSUMED. 


Warning error for auto report options (U) specification. You must use N or blank in 
column 27. 


Auto report assumes a blank is in column 27. 


Use N or blank in column 27 and resubmit the job. 


ARO62 INVALID ENTRY IN ASTERISK SUPPRESS, POSITION 28. BLANK IS 


ASSUMED. 


Warning error for auto report options (U) specification. You must use N or blank in 
column 28. 


Auto report assumes a blank is in column 28. 


Use N or blank in column 28 and resubmit the job. 
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+ ARO63 AND/OR SPECIFICATION IS INVALID. SPECIFICATION IS DROPPED. 


Warning error for output (O) specification. The AND or OR entry is invalid. The error 
occurs because: 


1. The output file identification doesn’t contain indicators that condition the line. 
2. The AND or OR entry doesn’t have indicators. 


You can use AND or OR entries with *AUTO output indicators when you enter an 
output indicator on the first output file identification. 


Auto report ignores the specification. 
Make the proper entries and resubmit the job. 


ARO64 D/T-*AUTO LINE OVERFLOW WILL OCCUR WITH GENERATION OF 
ASTERISK INDICATION. ALL ASTERISKS ARE SUPPRESSED. 


Warning error for output (O) specification. One or more asterisks cause an overflow to 
the printer record length you defined. 


Auto report suppresses all asterisks. 


Enter an N in column 28 of the auto report options (U) specification to suppress 
asterisk indication, then resubmit the job. 


*# ARO66 MORE THAN 20 AND/OR LINES CONDITION AN *AUTO LINE. THIS 
AND ALL FOLLOWING AND/OR SPECIFICATIONS ARE DROPPED. 


Warning error for output (O) specification. You can’t use more than 20 AND or OR 
entries. 


Auto report ignores the excessive AND or OR specifications. 
Remove all excessive AND or OR lines. 


+  ARO68 NUMBER OF FILE DESCRIPTION SPECIFICATIONS EXCEEDS THE 
MAXIMUM ALLOWED. SPECIFICATION IS DROPPED. 


Warning error for file description (F) specification. This error occurs when: 

1. You have more than 20 file description specifications. 

2. You have exceeded the internal limit (110) for file description specifications. 
Auto report ignores the excessive specifications. 


Remove all excessive file description specifications and resubmit the job. 
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ARO69 AUTOMATIC TOTALING OF THIS FIELD RESULTS IN GENERATED 
FIELD NAME CONFLICTS. ASSUME POSITION 39 BLANK. 





Warning error for output (O) specifications. This error occurs because: 


1. A field name that was generated for totaling was previously defined as 
alphanumeric. 


2. Another field name, which duplicates the first five characters of this field name, 
appears in the program and is used as a totaling field. (Both names are printed.) 


ARO7O GENERATED LINE IS TOO LONG. EXCESS IS DROPPED. 
Warning error for output (O) specifications. This error occurs because: 
1. The length of H-*AUTO line exceeds the record length. 
2. The length of D/T*AUTO line exceeds twice the record length. 


# ARO71 INVALID OUTPUT RECORD TYPE IN POSITION 15. SPECIFICATION IS 
DROPPED. 


Warning error for output (O) specification. You must enter H, D, T, or E in column 15. 
Auto report ignores the specification. @ 
Enter a valid entry in column 15 and resubmit the job. 


ARO72 PAGE FIELD NOT AVAILABLE FOR USE IN PAGE HEADING. NO PAGE 
NUMBERING WILL OCCUR. 


Warning error for output (O) specification. For page numbering, auto report uses one 
of the unused page fields (PAGE, PAGE1 through PAGE7). No page numbering occurs 
if all these page fields have been used. The format of the page heading line may not 
be correct. 

No page numbering occurs. 


Ensure that one of the page fields is available and resubmit the job. 


* ARO73 ATTEMPT TO PUT SOURCE MODULE IN THE FILE FAILED. FILE NOT 
WRITTEN. 


Warning error. This error occurs because: 


1. The library file is full. 


2. There is an invalid operation (such as the library file not being allocated). 





Auto report doesn't catalog the program. 


Correct the error and resubmit the job. 
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& ARO74 DUPLICATE FILE SOURCE MODULE NAME WAS FOUND IN THE FILE. 
PREVIOUS MODULE WAS REPLACED. 


Warning error. The module name you specified is the same as a name that is already 
in the library file. 


This program replaces the old module. 


Use a unique name or delete the old module before you catalog the new module. 


ARO75 ENTRIES IN COLUMNS 25, 26, 29, AND/OR 31-74 ARE NOT 
BLANK. ASSUME BLANK. 


Warning error for auto report options (U) specification. You must leave columns 25, 
26, 29, and 31 through 74 blank. 


Auto report assumes blanks are in columns 25, 26, 29, and 31 through 74. 
Leave columns 25, 26, 29, and 31 through 74 blank and resubmit the job. 


+ ARO76 TOTALING CONSTANT END POSITION > RECORD LENGTH. ALL T- 
TYPE CONSTANTS IGNORED. 


@ Warning error for output (O) specification. This error occurs because: 


1. The length of the total line constants (1 through 9 or R) is longer than the length 
of the record. 


2. The beginning position of the first A-type field is greater than the length of the 
record. 


Auto report drops all total line constants (1 through 9 or R). 
Correct the error and resubmit the job. 


+ ARO77 LEVEL INDICATOR USED ON T-*AUTO LINE IS UNDEFINED. 
INDICATOR IS DROPPED. 


Warning error for output (O) specification. You must define the control level indicator 
you used on the T-*AUTO specification in columns 59 and 60 of the input 
specifications. 


Auto report assumes blanks in these fields. 


Enter a control level indicator in columns 59 and 60 of the input specifications and 
resubmit the job. 
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ARO79 D-*AUTO IS CONDITIONED BY MORE THAN 7 AND/OR LINES. ONLY 
THE FIRST 7 WILL APPLY. 





Warning error for calculation (C) specification. The indicators that condition the line 
generated by D-*AUTO are used to condition the generated EXSR calculation used for 
total rolling. 


Auto report processed only the first 7 lines of AND or OR conditioning indicators in 
the calculations. 


Remove the excessive AND or OR entries and resubmit the job. 


ARO80 INVALID ENTRY IN LISTING OPTION, POSITION 30. BLANK IS 
ASSUMED. 


Warning error for auto report options (U) specification. You must use B, P, or blank in 
column 30. 


Auto report assumes a blank is in column 30. 


Use B, P, or blank in column 30 and resubmit the job. 
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Term 


Action programs 

continuity data area 

IMS - RPG Il interface areas 

indicators reset 

input message area 

output message area 

program information block 

required entries, file description 
specifications form 

restrictions, RPG I! features 


RPG II specifications forms 
summary of file organization, access 

methods and file types 
transaction buffer area 


Add (ADD) operation 
Adding and deleting existing indexed 
sequential file and deleting transaction 


buffers 


ADDROUT file, processing 


Alphanumeric data format 


Alternate collating sequence 
causing characters to be 
considered equal 


changing position of 
characters 


defining 

field 

inserting a character between 
two existing characters 


using 


Reference 


16.4 
16.4 
16.1 
16.4 
16.4 
16.4 


Table 16-2 
16.3 
Table 16-1 
16.2 


Table 16-3 
16.4 


73.2.1.1 


13.6 
Fig. 13-9 


2.4.1 
Fig. 2-5 


13.11.3.1 
Fig. 13-30 


13.11.3.3 
Fig. 13-32 
13.11.2 
4.2.7 


13.11.3.2 
Fig. 13-31 
13.11.3 
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Page 


8-4 


13-21 
13-21 


( ' 
— 
_ 


13-76 
13-76 


13-78 
13-78 
13-72 
4-5 


13-77 
13-77 
13-76 


RPG II 


Term 


Ampersand, edit words 
AN/OR lines, using 


AND/OR relationships field 
calculation specifications 
form 


input format specifications 
form 

output format specifications 
form 


Arithmetic operations 
add (ADD) 
cross-foot (XFOOT) 
description 
divide (DIV) 
Move remainder (MVR) 
multiply (MULT) 
resulting indicator 
square root (SQRT) 
subtract (SUB) 
zero and add (Z-ADD) 
zero and subtract (Z-SUB) 


Array file 


Array name 


Index 1 


Update F 
Index 
Reference Page 
14.3.2.2 14-8 
Fig. 7-3 7-6 
7.2.3 7-5 
Fig. 7-3 7-6 
6.2.8 6-12 
8.2.4 8-4 
7.3.2.1.1 7-8 
7.3.2.1.9 7-12 
73.2.1 7-7 
7.3.2.1.6 7-10 
7.3.2.1.7 7-10 
7.3.2.1.5 7-9 
12.2.4 12-7 
7.3.2.1.8 7-12 
7.3.2.1.3 7-9 
7.3.2.1.2 7-8 
7.3.2.1.4 7-9 
2.1.2 2-2 
5.2.3 5-6 
9.2.5 9-4 
9.2.12 9-7 
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Term Reference Page Term Reference Page @ 
Arrays Auto report 
binary search field 4.2.8 4-5 auto report options specifications 
calculating totals with form 19.5 19-84 
arrays Fig. 13-28 13-70 /COPY statement 19.6 19-89 
calculating totals without D-*AUTO detail reports 19.3 19-21 
arrays Fig. 13-27. 13-67 error messages Appendix G 
definition 13.10.2 13-49 H-*AUTO page headings 19.2 19-3 
definition examples 13.10.2.2 13-53 job control 18.2.2 18-18 
field ‘name field 6.3.4 6-14 non-English language factor 19.9 19-107 
file description entries 13.10.2.1 13-50 summary 19.7 19-100 
Table 13-4 13-51 T-*AUTO total reports 19.4 19-54 
file extension entries 13.10.2.1 13-50 
Table 13-5 13-52 Auto report options specifications form 
formats 13.10.1 13-48 asterisks suppress 19.5.1.4 19-87 
Fig. 13-20 13-48 cataloging source program in 
loading, using calculations library file 19.5.1.1 19-84 
specifications form 13.10.3.3 13-58 date suppress 19.5.1.3 19-86 
Fig. 13-24 13-59 description 19.5 19-84 
loading, using fixed indexes 13.10.3.1 13-55 examples of entries 19.5.2 19-89 
Fig. 13-22 13-56 form entries 19.5.1 19-84 
loading, using input fields library file name 19.5.1.2 19-86 
as indexes 13.10.3.2 13-57 list options 19.5.1.5 19-87 
Fig. 13-23 13-57 module name 19.5.1.2 19-86 
LOKUP operation 13.10.3.4 13-60 
move 7.3.2.2.2 7-16 | AUTRPG job control procedure call statement 18.2.2 18-18 
number of entries 9.2.7 9-5 Fig. 18-13 18-29 
processing files 13.10 13-47 
reducing number of statements 13.10.3.6 13-66 AUTRPGL job control procedure call statement 18.2.2 18-18 
using 13.10.3 13-55 
using to format output records 13.10.3.5 13-64 AUTRPGLG job control procedure call statement 18.2.2 18-18 


Fig. 13-26 13-65 

writing elements using 
EXCPT operation 13.10.3.7 13-69 
Fig. 13-29 13-70 


Asterisk 
calculations 7.2.2 7-4 
Fig. 7-2 7-4 
catastrophic error messages Appendix D 
comments | 3.2.5 3-5 
edit words 14.3.2.2 14-8 
Auto job control procedure call statement 18.2.2 18-18 
Fig. 18-9 18-25 
Fig. 18-11 18-27 
*AUTO 
D-*AUTO 19.3.1.7 19-24 
H-*AUTO 19.2.1.6 19-9 


T-*AUTO 19.4.1.7 19-58 
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RPG Il Update E 
@ Term Reference Page Term Reference Page 
B Block length field 2.3.2 2-9 
5.2.7 5-7 
Batch terminals Table 5-2 5-12 
description 17.1 17-1 : 3s 
modes 173 17-2 Blocks, indexed sequential files 2.2.2 2-3 
receive-only, DCT 2000 17.3.1.1 17-5 Fig 21 2-4 
Fig. 17-2 17-5 ; 
transmit a file, then Branch (GOTO) operation 7.3.2.4.1 7-26 
receive another file, ; ; ; 
BCS remote terminal 17.3.1.3 17-9 Branching and exit operations 
Fig, 17-4 = 17-9 begin internal subroutine 
transmit-only, DCT 1000 17.3.1.2 17-7 (BEGSR) 13.243 7-27 
Fig. 17-3 17-7 branch (GOTO) 7.3.2.4.1 7-26 
using 17.3.1 17-5 description 7.3.2.4 7-26 
end internal subroutine 
BCS remote terminal 173.13 17-9 (ENDSR) 73.244 7-21 
Fig. 17-4 = 17-9 execute internal subroutine 
(EXSR) 7.3.2.4.5 7-28 
Begin internal subroutine exit to linked subroutine 
(BEGSR) operation 73.243 7-27 (EXIT) 73.246 7-29 
15.2 15-1 external subroutine access 
to RPG fl program (RLABL) 7.3.2.4.7 7-29 
BEGSR operation RPG il program to external 
description 7.32.43 7-27 subroutine access (ULABL) 7.3.2.4.8 7-30 
& internal subroutines 15.2 15-1 tag (TAG) 13.2.4.2 7-26 
Between limits See limits. 
Binary data format 2.4.2 2-11 
Fig. 2-6 2-11 
Binary search 4.28 4-5 
Bit setting operations 
description 7.3.2.6 7-31 
set bit off (BITOF) 7.3.2.6.2 7-32 
set bit on (BITON) 7.3.2.6.1 7-31 
BITOF operation 7,3.2.6.2 7-32 
BITON operation 7.3.2.6.1 7-31 
*BLANK 7.3.1 7-6 
*BLANKS 7.3.1 7-6 
Blank after field 8.3.4 8-9 
Blank characters 6.2.6.3 6-10 


Table 6-2 6-10 


Blanks, edit words 14.3.2.2 14-8 


@ Block header bytes 2.3.1 2- 
2 


2.3.2 
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Term 


C/Z/D field 


Calculation conditioning 
indicators 
specifying 


Calculation entries 
arithmetic operations 


bit setting operations 
branching and exit 
operations 


compare and test 
operations 


decimal positions 

factor 1 and factor 2 
field length 

file processing operations 


half adjust 
indicator setting 
operations 
look-up operations 
move operations 


operations 
result field 
summary of operations 


Calculation lines 


Calculation operations 
detail 
total 


Calculation specifications form 
calculation entries 


conditions entries 
description 
examples 


loading an array 
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Reference Page 


6.2.6.3 6-10 
Table 6-2 6-10 
12.4.4 12-16 
Fig. 12-6 12-17 


See arithmetic 
operations. 
7.3.2.6 7-31 


See branching 
and exit 
operations. 


See compare 
and test 
operations. 
7.3.3.3 7-4 
7.3.1 7-6 
7.3.3.2 7-4 
See file 
processing 
operations. 

7.3.3.4 7-41 


7.3.2.5 7-30 
7.3.2.7 7-32 
See move 
operations. 
7.3.2 7-7 
7.3.3 7-4 
Table 7-1 7-3 


7.2.2 7-4 
Fig. 7-2 7-4 


14.1 1-7 
1.4.2 1-7 


See calculation 
entries. 

See conditions 
entries. 

7.1 7-1 
Fig. 7-1 7-2 
75 7-4 
Fig. 7-4 7-45 
13.10.3.3 13-58 
Fig. 13-24 13-59 


Term 


resulting indicator entries 


summary of operations 
workstation entries 


Call statements, job control 
procedure 
Catastrophic error messages 


CCA 


CCA name field 


CHAIN operation 
creating a direct file 
description 
resulting indicator 
See also chaining. 


Chained file 
file designation 


retrieving record 
Chaining 

creating a direct file 

direct files 

indexed sequential files 

processing 

updating an indexed 
sequential file 

using CHAIN operation 

using Cl through C9 


Chaining fields 


Chaining file, record sequence 


Chaining subroutine 


Channel number field 


Channel number translation, 
skip 


Channel numbers 


Index 4 


Reference Page 


See resulting 


indicator 

entries. 

Table 7-1 7-39 
13.13.3 13-85 


See procedure call 


statements. 
Appendix D 

17.2 17-1 
17.4 17-22 
4.2.14 4-7 
13.4.3 13-13 
7.3.2.8.1 7-33 
12.2.4 12-7 
2.1.2 2-2 
5.2.3 5-5 
73.2.8.1 7-33 
13.4.3 13-13 
13.4.2 13-13 
Fig. 13-5 13-14 
13.4.1 13-8 
13.4 13-7 
B.7 B-33 
Fig. 13-3 13-9 


Fig 13-4 13-10 
6.3.6 6-17 
6.3.6.2 6-18 
9.2.2 9-1 


9.2.1 9-1 
A.3.2 A-8 
Fig. A-2 A-7 
10.2.3 10-3 
Table 8-1 8-6 
Fig. 14-8 14-14 
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& Term Reference Page Term Reference Page 
Character fields Communications control area (CCA) 
C/Z/D field (columns network definition 17.4 17-22 
26, 33, 40) 6.2.6.3 6-10 using telecommunications 17.2 17-1 
Table 6-2 6-10 
field (columns 27, 34, 41) 6.2.6.4 6-11 Communications files 
description 17.2 17-1 
Characters, alternate collating Fig. 17-1 
sequence processing modes 17.3 
causing characters to be 
considered equal 13.11.3.1 13-76 COMP operation 7.3.2.3.1 1-23 
Fig. 13-30 13-76 12.2.4 12-7 
changing position 13.11.3.3 13-78 
Fig. 13-32 13-78 Compare and test operations 
inserting character between compare (COMP) 7.3.2.3.1 7-23 
two existing characters .in description 7.3.2.3 7-23 
sequence 13.11.3.2 13-77 test bit (TESTB) 7.3.2.3.2 7-24 
test numeric (TESTN) 7.3.2.3.3 7-25 
Characters, edit words 14.3.2.2 14-10 test zone (TESTZ) 7.3.2.3.4 7-25 
Characters, translating See file Compilation 
translation. deck arrangement Fig. 18-16 18-13 
description 18.1 18-1 
Codes, edit See edit codes. job control statements 18.2 18-2 
main storage requirements 18.3 18-40 
& Collating sequence 
alternate See alternate Compilation mode field 4.2.1 4-1 
collating 
sequence. Compilation time messages Appendix D 
definition 13.11 13-72 
field, alternate 4.2.7 4-5 Compile the program 
RPG il 13.111 13-72 cards 13 1-25 
workstation 1.2 1-1 
Combined edit cards 
description 14.3.1.2 14-6 Compiler directives 3.2.4 3-5 
listing Table 14-1 14-6 
using Table 14-2 14-7 Compiler, main storage requirements 18.3 18-40 
Combined file 2.1.1 2-1 Compiling source programs 
5.2.2 5-3 IBM System/3 F.2.1 F-1 
SPERRY UNIVAC 9200/9300 
Comments field System F.3.1 F-6 
calculations specifications 744 7-44 
description 3.2.5 3-5 Concepts Section 1 
file extension specifications 9.2.17 9-8 
Conditions entries, calculation 
Common fields specifications form 
comments 3.2.5 3-5 AND/OR relationship 7.2.3 7-5 
compiler directives 3.2.4 3-5 Fig. 7-3 7-6 
description 3.2 3-2 control level 7.2.1 7-1 
form type 3.2.3 3-4 indicators 7.2.2 7-3 
line number 3.2.2 3-2 
page number 3.2.1 3-2 Configuration field 11.2.2 11-3 
© program identification 3.2.6 3-6 “, 
Conservation techniques, main 
storage Appendix E 


Constant field 8.3.8 8-11 
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Term 


Constants, using * PLACE to 
repeat 


Continuation lines 
Continuity data area 
Control break 


Control break examples 


Control card specifications form 
action program 
alternate collating sequence 
binary search 
CCA name 
compilation mode 
currency sign 
description 
error analysis dump 
examples of entries 


file. translation 

forms alignment 
generate debug code 
indicator initialization 
inverted print 
operator control 
program identification 
sign handling 
subroutine 


Control level field 
calculations specifications 
form 
input format specifications 
form 
rules 


Control level indicators 
description 
unwanted control breaks 


using 
Control level zero indicator 


Controlling RPG II 
general 
indicators defined on 
forms 
indicators not defined on 
forms 


SPERRY UNIVAC 0S/3 


Reference Page 


14.43 14-12 
Fig. 14-6 14-13 
5.2.18 5-20 


See action programs. 
1.4.2 1-7 


See unwanted control 
break examples. 


4.2.14 4-7 
4.2.7 4-5 
4.2.8 4-5 
4.2.13 4-7 
4.2.1 4-] 
4.2.5 4-4 
41 4-1 
4.2.2 4-3 
43 4-8 
Fig. 4-2 4-8 
4.2.12 4-7 
4.2.10 4-6 
424 4-4 
4.2.11 4-6 
4.2.6 4-5 
4.2.3 4-3 
4.2.15 4-7 
4.2.9 4-6 
4.2.14 4-7 
7.2.1 7-1 
6.3.5 6-15 
6.3.5 6-15 
12.2.2 12-3 


See unwanted 
control break 


examples. 

12.4.2 12-15 
12.3:2 12-12 
12.1 12-1 
12.2 12-1 


12.3 12-11 


RPG tl 


Term 


Conversational reply 


Conversion, program requirements 


Console files 
description 
interactive data entry 


/COPY modifier statements 
description 
file description entries 
input field entries 


/COPY statement 

description 

examples of entries 

form entries 

modifier statements 
Cross-foot (XFOOT) operation 
Currency sign 


Customer records 


Cylinder overflow space percentage 


Index 6 


Reference Page 


See transmit with 
reception of 


conversational 

reply. 

Appendix F 

5.2.16 5-19 
13.16 13-94 
19.6.3 19-91 
19.6.3.1 19-92 
19.6.3.2 19-95 
19.6 19-89 
19.6.2 19-91 
19.6.1 19-90 
19.6.3 19-9] 
73.2.1.9 7-12 
4.25 4-4 
13.4.1 13-8 
5.2.22 5-28 
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Index 7 


RPG ll Update A 
@ Term Reference Page Term Reference Page 
D DCT 2000 Data Communications Terminal 17.3.1.1 -5 
Fig. 17-2 -5 
Data, entering See entering data. 
Debug code field, generate 42.4 4-4 
Data files, designation 2.1.2 2-2 
DEBUG operation 7.3.2.8.8 7-36 
Data format field C.2 C-2 
file extension 9.2.9 9-6 Fig. C-1 C-4 
9.2.14 9-7 
input 6.3.1 6-12 Debug the program 
output 8.3.7 8-10 cards 1.3 1-25 
workstation 1.2 1-1 
Data formats 
alphanumeric 24.1 2-11 Decimal points, edit words 14.3.2.2 14-10 
Fig. 2-5 2-11 
binary 2.4.2 2-11 Decimal positions, edit codes 14.3.1.2 14-6 
Fig. 2-6 2-11 
packed numeric 2.4.3 2-12 Decimal positions field 
Fig. 2-7 2-12 calculation specifications 7.3.3.3 7-41 
unpacked numeric 2.4.4 2-12 file extension specifications 9.2.10 9-6 
Fig. 2-8 2-12 9.2.15 9-8 
input format specifications 6.3.3 6-14 
Data structures 13.15 13-91 
Deck arrangement for compiling, 
Date format, system 4.2.6 4-5 link editing, and execution Fig. 18-18 18-41 
D-*AUTO detail reports Default options, standard Fig. 18-1 
description 19.3 19-21 Fig. 18-2 
examples of entries 19.3.2.7 19-52 
field description and control Deleting records from an existing 
entries 19.3.2 19-25 indexed sequential file 8.2.5 8-4 
field description, prints field 
and column heading 19.3.2.1 19-28 Demand files 
field description, prints field designation 2.1.2 2-2 
next to total 19.3.2.6 19-49 5.2.3 5-5 
field description, prints heading 19.3.2.2 19-34 processing 13.7.1 13-22 
field description, prints heading 13.7.3.1 13-23 
next to total 19.3.2.5 19-47 Fig. 13-10 13-23 
field description, prints numeric READ operation 13.7.3 13-22 
field, column heading and Fig. 13-10 = 13-23 
accumulates totals 19.3.2.3 19-36 SETLL operation 13.7.3.2 13-25 
field description, prints second Fig. 13-11 13-26 
and third column heading line 19.3.2.4 19-45 
output file identification and Detail logic cycle 
control entries 19.5.1 19-84 description Al A-1 
Fig. A-1 A-2 
DCT 500 Data Communications Terminal subroutines A3 A-6 
formatting a printer and Fig. A-2 A-7 
entering data Fig. 17-7 17-18 
transmit with reception of Detail logic subroutines 
conversation reply 17.3.2.2.1 17-19 chaining A.3.2 A-8 
Fig. 17-8 17-19 look-ahead A3.4 A-8 
using 17.3.2.2 17-17 matching fields A3.1 A-6 
overflow A3.3 A-8 
DCT 1000 Data Communications Terminal 17.3.1.2 17- 
Fig. 17-3 17-7 Detail reports 19.3 19-21 
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RPG Il Update A 
Term Reference Page Term Reference Page 
Detail time 1.4.1 1-7 E 
Device field 5.2.16 5-17 EBCDIC collating sequence 4.2.7 4-5 
Table 5-5 5-18 13.11.1 13-72 
Table 13-6 13-73 
Devices aie Bade 
block length ranges 5.2.7 5-8 ee 
do lensth 2 5-1 combined 14.3.1.2 14-6 
record length ranges 5.2.8 0 Table 14-1 14-6 
‘i ‘ Table 14-2. 14-7 
Digit, C/Z/D field .2.6. 6-1 4 
eee ees ° description 14.3.1 14-5 
. . field 8.3.3 8-9 
Direct data interface (DDI) 17.4 17-22 simple 143.11 14-5 
a Lee Te 1313. | Edit word fel 8.3.9 8-11 
Fig. 13-5 13-14 : 
creating with CHAIN RUN OIUe® 2 
operation 1343 13413 cv oe ee 
description 2.23 2-3 examples Fig. 14-4 = 14-11 
Fi ; 2-2 2-6 format 14.3.2.1 14-8 
é Fig. 14-3 14-9 
Display (DSPLY) operation 73.286 7-36 re wee ts 
i Editing 
: . description 14.3 
a ae s edit codes 14.3.1 : 
edit words 14.3.2 14-6 
Div operanon Paes Pe /EJECT compiler directive 3.24 3-5 
Divide (DIV) operation 7.3.2.1.6 7-10 Elewieaté 
: . 7 adding to existing table 13.9.3.4 13-46 
Doliar sign, edit words 14.3.2.2 14-8 Fig. 13-19 13-47 
DSPLY operation 7.3.2.86 7-36 array Formals dN oe cee 
C3 0-3 Fig. 13-20 13-48 
, first element positioning 13.9.1 13-33 
Dumps writing using EXCPT 13.10.3.7 13-69 
error analysis See error Fig. 13-29 13-70 
analysis ; : 
dump. End internal subroutine (ENDSR) 
unformatted See unformatted operation 73.2.4.4 7-27 
dimes 15.2 15-2 
DITE field name 14.41 14-10 | End of file 9.2.4 5-6 


End position in output record 
field 8.3.5 8-10 


ENDSR operation 
description 7.3.2.4.4 7-27 
internal subroutines 15.2 15-2 


Entering data 
teletypewriter and DCT 500 Fig. 17-7 17-18 
UNISCOPE 100/200 Fig. 17-5 17-13 
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RPG ti Update A 
Term Reference Page Term Reference Page 
Entries, form See examples of Examples, array processing 
form entries. array definition Fig. 13-21 13-53 
calculating totals with 
Entries per record, number 9.2.6 9-5 arrays Fig. 13-28 13-68 
calculating totals without 
Entries to avoid incorrect output, arrays Fig. 13-27 13-67 
unwanted control break example Fig. 12-3 12-4 loading an array using 
fixed indexes Fig. 13-22 13-56 
Entry length 9.2.8 9-5 loading an array using 
9.2.13 9-7 input fields as indexes Fig. 13-23 13-57 
loading an array with 
Error analysis dump calculations specifications 
description C7 C-7 form Fig. 13-24 13-59 
*ERROR C.7.1.2 C-8 LOKUP operation Fig. 13-25 13-62 
example Fig. C-3 C-12 using to format output 
field 4.2.2 4-3 records Fig. 13-26 13-65 
FLDS/CONSTS/TABLES/ARRAYS C.7.15 C-10 writing elements using 
LINKAGE VECTOR C.7.1.4 C-9 EXCPT operation Fig. 13-29 13-70 
option 18.3 18-40 
RECORD C.7.1.3 C-9 Examples, auto report 
REG SAVE AREA C.7.1.1 C-8 /COPY statement 19.6.2 19-91 
D-*AUTO 19.3.2.7 19-52 
“ERROR field H-*AUTO 19.2.2.3 19-20 
description C.6 C-7 options specifications form 19.5.2 19-89 
Fig. C-2 C-7 T-*AUTO 19.4.2.7 19-82 
error analysis dump C.7.1.2 C-8 
unformatted dump C.8.1 C-10 Examples, file processing 
C.8.1.1.2 C-11 ADDROUT file Fig. 13-9 = 13-21 
chaining, CHAIN operation Fig. 13-3 13-9 
Error indicator, permanent 11.2.7 ll-4 chaining, C1 through C9 Fig. 13-4 = 13-10 
chaining, direct file Fig. 13-5 13-14 
Error messages controlling record selection 
auto report Appendix G during muitifile processing Fig. 13-12 13-30 
compilation Appendix D demand file, READ operation Fig. 13-10 13-23 
demand file, SETLL operation Fig. 13-11 13-26 
Error processing, telecommunications 17.6 17-24 indexed sequential file 
between limits Fig. 13-8 13-19 
Errors indexed sequential file 
compilation 1.2 1-1 randomly using record 
keypunching 1.3 1-25 address file Fig. 13-7 13-18 
matching records from 
Examples, alternate collating secondary file Fig. 13-13 13-32 
Sequence workstations 13.13 13-82 
causing characters to be WORKSTN file 13.13.1 13-84 
considered equal Fig. 13-30 13-76 
changing position of Examples, file translation 
characters Fig. 13-32 13-78 translating characters for 
inserting a character more than one but not all 
between two existing files Fig. 13-34 13-82 
characters Fig. 13-31 13-77 translating characters in a 
file Fig. 13-33 13-82 
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RPG li Update C 
Term Reference Page Term Reference Page 
Examples, form entries EXEC statement 18.2 18-2 
calculations specifications 75 7-44 18.2.3 18-31 
Fig. 7-4 7-45 
control card specifications 43 4-8 Execute internal subroutine 
Fig. 4-2 4-8 (EXSR) operation 7.3.2.45 7-28 
file description specifications 5.3 5-30 
Fig. 5-2 5-31 Executing IBM System/3 program F.2.2 F-5 
file extension specifications 9.3 9-8 
Fig. 9-2 9-9 Execution 
indexed sequential file deck arrangement Fig. 18-18 18-41 
creation Fig. B-8 -17 description 18.1 18-1 
Fig. B-20 B-41 job control statements 18.2 18-2 
indexed sequential file 
processing Fig. B-11 B-22 EXIT operation 
Fig. B-14 = B-29 description 7.3.2.4.6 7-29 
indexed sequential file external subroutines 15.3 15-4 
updating Fig. B-17. —- B-35 
input format specifications 6.4 6-20 Exit operations 7.3.2.4 7-26 
Fig. 6-5 6-21 
line counter specifications 10.4 10-4 Exit to linked subroutine (EXIT) 
Fig. 10-2 10-4 operation 7.3.2.4.6 7-29 
sequential file processing Fig. B-4 B-8 15.3 15-4 
telecommunications 11.3 11-6 
Fig. 11-2. 11-7 Expansion, edit word format 14.3.2.1 14-8 
Examples, interactive data entry EXSR operation 
adding MIRAM records B.10.3 B-65 description 7.3.2.4.5 7-28 
Fig. B-27 —-B-65 internal subroutines 15.2 15-1 
creating MIRAM files B.10.1 B-58 
Fig. B-25 = B-58 Extension or line counter 
four-column prompt screen Fig. 13-44 13-94d code field 5.2.15 5-17 
function key 5 prompt screen Fig. 13-39 13-94 
one-column prompt screen Fig. 13-40 13-94b External indicators 12.3.1 12-11 
three-column prompt screen Fig. 13-43 13-94c 
two-column prompt screen Fig. 13-41 13-94b External subroutine access 
Fig. 13-42 13-94c operations 
updating MIRAM records B.10.2 B-61 RPG Il program to (ULABL) 7.3.2.4.8 7-30 
Fig. B-26 ~—- B-61 to RPG Il program (RLABL) 7.3.2.4.7 7-29 
Examples, programming Appendix B External subroutines 
description 15.3 15-4 
Examples, table processing specifying 15.3.1 ~ 
adding elements Fig. 13-19 13-47 Fig. 15-2 15-5 
LOKUP operation Fig. 13-16 13-41 
modifying a table Fig. 13-18 13-46 
table definition Fig. 13-15 13-39 
Exception lines (EXCPT) 
operation 7.3.2.8.7 7-36 
EXCPT operation 
description 7.3.2.8.7 7-36 
using C.4 C-3 
writing array elements 13.10.3.7 13-69 





Fig. 13-29 13-70 
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RPG I 
a Se SS 


& Term Reference Page Term Reference Page 
F Fields 
chaining 6.3.6.2 6-18 
Factor 1 and factor 2 fields 7.3.1 7-6 common See common 
fields. 
Fateh overtiow 823 8-3 control card specifications 
1225 12-10 fxm si ey 
Fig. 12-5 12-10 look-ahead 13.8 13-28 
13.8.1 13-28 
Field description and control matching See matching 
entries fields. 
blank after 8.3.4 8-9 . 
constant 838 8-11 File, last 11.2.9 11-5 
data format 8.3.7 8-10 ; ; 
description 8.3 8-8 File, primary 13.3.1 13-2 
edit codes 8.3.3 8-9 ; hah 
edit word 8.3.9 8-11 File addition field 5.2.21 5-27 
end position in output Table 5-8 = 5-28 
record 8.3.5 8-10 ; 4: 
field name 83.5 8-10 File characteristics 2.1 2-1 
output indicators - fields 8.3.1 8-8 ; 
File conditioners 5.2.25 5-30 
Field description entries ; ph ee 
control level 635 6-15 File conditioning indicators 12.4.1 12-15 
data format 6.3.1 6-12 ; ier me OM, 
decimal position 6.3.3 6-14 File description specifications 
@ description 6.3 6-12 form = 
field indicators 6.3.8 6-20 array definition 13.10.2.1 13-50 
field location 6.3.2 6-13 Table 13-4 13-51 
field name 6.3.4 6-14 block length 9.2.7 5-7 
field record relation 6.3.7 6-19 change keys 9.2.18.6 5-26 
matching fields or cylinder overflow space 
chaining fields 6.3.6 6-17 percentage 9.2.22 5-28 
description 5.1 5-1 
Field indicator 12.2.3 12-7 Fig. 5-1 5-2 
device 5.2.16 5-17 
Field length field 7.3.3.3 7-41 Table 5-5 5-18 
duplicate record 5.2.18.5 5-25 
Field location field 6.3.2 6-13 end of file 9.2.4 5-6 
examples of entries Fig. 5-2 5-31 
Field name field extension or line counter 
input 6.3.4 6-14 code 5.2.15 5-17 
output 8.3.2 8-8 file addition 5.2.21 5-27 
Table 5-8 5-28 
Field names, special See special file conditioners 9.2.25 5-30 
field names. file designation 5.2.3 5-4 
file format 5.2.6 5-7 
Field record relation 6.3.7 6-19 file name 9.2.1 5-1 
file organization 5.2.12 5-14 
Field record relation indicators 12.4.3 12-15 file processing mode 9.2.9 9-13 
file type 5.2.2 5-3 
file use Table 5-1 5-4 
key length (MIRAM files) 5.2.18.4 5-25 
key or record address 
& field length 5.2.10 


i 
—_ 
~~ OO 


labels 5.2.17 
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rc treet 








Term Reference Page Term Reference Page @ 
File description specifications table definition 13.9.2.1 13-36 
form (cont) Table 13-3 13-38 
nani: ok dabel Bakar uae table or array name 9.2.5 9-4 
of user device routine 5.2.19 5-26 fi ce 9-7 
number of bytes in main to file name 9.2.4 9-3 
storage to be reserved for File format 
ISAM index 5.2.20 5-27 “ pt ‘ flied whe 
overflow indicator 5.2.13 5-16 a x one oe 
record address type 5.2.11 5-13 dere : - 
field 5.2.6 5-7 
sequence 5.2.5 5-6 Table 5-2 5-12 
summary of file format ‘ oe 
block length, and record fixed-length records 2.3.1 2-8 
length entries Table 5-2 5-12 Fig. 23 2-8 
summary of file processing variable-length records 23.2 2-9 
mode, record address type, i alt 
se SreaniZauop Table 5-3 618 File identifications, output See output file 
summary of required entries, a eae 
action programs Table 16-2 16-5 oatvies 
table definition 13.9.2.1 13-36 : 
tape rewind option Z Tee ey lay 
ae p Table 5-9 5-29 adding records B.10.3 B-65 
: : Fig. B-27, —- B-65 
workstation entries 13.13.1 13-84 creaking files B10.1 B-58 
: Pers Fig. B-25 = B-58 
Riles destenianon aie a updating records B.10.2 B-61 
Fig. B-26 = B-61 
File designation field 5.2.3 5-4 bs 
File extension specification File name field 
Cea all ail file description specifications 
array definition 13.10.2.1 13-50 : form icati 9,28 a 
Table 13-5 13-52 we format specifications 
commets ad 28 aa specifications we 
data format ou Me Ron 021 10-1 
. os 7 : output format specifications 
decimal positions oie = form 821 8-] 
cccotian 91 9-1 telecommunications specifications 
sa aa form 11.21 1-1 
Example OF erties 9-2 es File name fields, file extension 
: 8 specifications form 
from file name 9.2.3 9-3 hom 9.23 9-3 
length of entry 9.2.8 9-5 Tabl 9-1 9-4 
9.2.13 9-7 ee ae 
number of entries per s ane a3 
record 9.2.6 9-5 Eee 338 
number of entries per : Sigs 
table or array 9.2.7 9-5 Hie organization 
number of the chaining action program, summary Table 16-3 16-6 
field 922 9-1 description 2.2 2-2 
record sequence of anes as o 
chaining file 9.2.1 9-1 , bs 
field 5.2.12 5-14 
sequence 9.2.11 9-6 
97.16 9-8 Table 5-3 55-15 
summary of from and to oe indexed sequential 2.2.2 2-3 
file name entries Table 9-1 9-4 le igs eval 8 
processing methods Table 13-1 13-1 


sequential 2.2.1 2-3 
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File processing 


RPG Il 
Reference Page Term Reference Page 
File processing operations 
ADDROUT file 13.6 13-21 debug (DEBUG) 7.3.2.8.8 7-36 
Fig. 13-9 13-21 description 7.3.2.8 7-33 
alternate collating sequence See alternate display (DISPLY) 7.3.2.8.6 7-35 
collating exception lines (EXCPT) 7.3.2.8.7 7-36 
sequence. next workstation input (NEXT) 7.3.2.8.9 7-37 
arrays See arrays. override normal record 
chaining See chaining. selection (FORCE) 7.3.2.8.5 7-35 
controlling record selection read record (READ) 7.3.2.8.3 7-34 
during multifile processing 13.8.3.1 13-29 retrieve record from a 
Fig. 13-12 13-30 chained file (CHAIN) 7.3.2.8.1 7-33 
data structures 13.15 13-91 select key structure (SETK) 7.3.2.8.2 7-34 
demand file 13.7 13-22 set lower limits (SETLL) 7.3.2.8.4 7-35 
13.7.1 13-22 
demand file, READ 13.7.3.1 13-23 File sharing 5.2.18 5-20 
Fig. 13-10 13-23 Table 5-7 = 5-25 
demand file, SETLL 13.7.3.2 13-25 
Fig. 13-11 13-26 File translation 
demand files and READ control card field 4.2.12 4-] 
operation 13.7.3 13-22 defining table 13.12.1 13-78 
description 13.1 13-1 description 13.12 13-78 
file organization, record translating characters for 
retrieval Table 13-1 13-1 more than one but not 
FORCE operation 13.8 13-28 all files 13.12.2.2 13-82 
13.8.2 13-28 Fig. 13-34 13-82 
interactive data entry 13.16 13-94 | translating characters. in 
look-ahead fields 13.8 13-28 a file 13.12.2.1 13-81 
13.8.1 13-28 Fig. 13-33 13-82 
matching record indicator 13.3.4 13-7 using table 13.12.2 13-81 
matching records 13.3 13-2 
matching records, secondary File type field 5.2.2 5-3 
files 13.8.3.2 13-32 
Fig. 13-13 13-32 Files 
mode 5.2.9 5-13 demand See demand 
Table 5-3. 5-15 files. 
modes, remote terminals 17.3 17-2 direct See direct 
multikey MIRAM files 13.4 13-7 files. 
primary file 13.3.1 13-2 indexed sequential See indexed 
READ operation 13.7.2 13-22 sequential 
record address See record files. 
address file line counter See line 
processing. counter files. 
record selection 13.3.3 13-3 sequential See sequential 
Fig. 13-2 13-4 files. 
sequential 13.2 13-2 telecommunications 17.2 17-1 
specifying matching fields 13.3.2 13-2 Fig. 17-1 17-3 
Fig. 13-1 = 13-3 types 2.1.1 2-1 
tables See tables. use Table 5-1 5-4 
translation See file See also file processing. 
translation. 
workstation 13.13 13-82 First page forms alignment 4.2.10 4-6 
WORKSTN file 13.13.1 13-84 
See also examples, First page indicator 12.3.2 12-12 
file processing. Fig. A-1 A-2 


A2 A-4 
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Term 
Fixed indexes, loading an array 
Fixedlength records 

description 


formats 


FLDS/CONSTS/TABLES/ARRAYS, 
error analysis dump 


FORCE operation 
controlling record selection 
during multifile processing 


description 
file processing 


look-ahead fields 


Form entries, examples 


Form type field 
Formatting, workstation 


Formatting a screen and entering 
data 


Forms, specifications 


Forms alignment 


From file name field 


Function key indicator 


SPERRY UNIVAC OS/3 


RPG II 
Reference Page Term 
13.10.3.1 13-55 


Fig. 13-22 13-56 


Generate debug code field 


2.3 2-7 GOTO operation 

2.3.1 2-8 description 

Fig. 2-3 2-8 internal subroutines 
0.7.1.5 C-10 

13.8.3.1 13-29 

Fig. 13-12 13-30 

7.3.2.8.5 7-35 

13.8 13-28 

13.8.2 13-28 

13.8.3 13-29 


See examples, 
form entries. 


3.2.3 


3-4 


See workstation. 


Fig. 17-5 17-13 
See specifications 
forms. 
4.2.10 4-6 
9.2.3 9-3 Halt zero indicator 
Table 9-1 9-4 
H-*AUTO page headings 
12.2.6 12-11 description 


examples of entries 

field description and control 
entries 

field description, prints field 

field description, prints title 

output file identification and 
control entries 


Index 14 


Reference Page 


4.24 4-4 
73.2.4.1 7-26 
15.2 15-2 
12.3.2 12-12 
19.2 19-3 
19.2.2.3 19-20 
19.2.2 19-11 
19.2.2.2 19-16 
19.2.2.1 19-12 


19.2.1 19-4 
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Term 


permanent error 11.2.7 11-4 
record identifying 6.2.5 6-4 
IMS - RPG Il action programs See action programs. 12.2.1 12-1 
Fig. 12-1 12-2 
IMS - RPG It interface areas See action programs. reset See action programs. 
resulting 12.2.4 12-7 
Incorporating subroutines in your resulting, form entries See resulting 
program 15.1 15-1 indicator 
entries. 

Indexed sequential files setting on and off Table 12-3 12-22 
adding records 8.25 8-4 setting on via system console 12.6 12-23 
chaining 13.4.1 13-8 use, summary Table 12-2 12-21 

Fig. 13-3 13-9 
description 2.2.2 2-3 Input deck sequence, job 
Fig. 2-1 9-4 control statements 18.2.3 18-31 
processing between limits 13.5.2 13-18 Fig. 18-16 18-37 
Fig. 13-8 13-19 . 
processing randomly 13.5.1 13-17 Input fields, loading an 
Fig. 13-7 13-18 array 13.10.3.2 13-57 
Fig. 13-23 13-57 
Indexes 
fixed, loading array 13.10.3.1 13-55 input file 2.1.1 2-1 
Fig. 13-22 13-56 5.2.2 5-3 
input fields, loading 
array 13.10.3.2 13-57 Input format specifications 
Fig. 13-23 13-57 form 
LOKUP 13.10.34 13-60 /COPY statement 19.6.3.2 19-95 
using arrays 13.10.3 13-55 description 6.1 6-1 
Fig. 6-1 6-2 

Indicator setting operations examples 6.4 6-20 
description 7.3.2.5 7-30 Fig. 6-5 6-21 
set off (SETOF) 7.3.2.5.2 7-30 loading an array using 
set on (SETON) 7.3.2.5.1 7-30 fixed indexes 13.10.3.1 13-55 

Fig. 13-22 13-56 

Indicators loading an array using 

calculation conditioning 12.4.4 12-16 input fields as indexes 13.10.3.2 13-57 
Fig, 12-6 = 12-17 Fig. 13-23 13-57 

calculations specifications record identification See record 

from field 7.2.2 7-3 identification entries. 

control level 12.2.2 12-3 workstation entries 13.13.2 13-85 
12.4.2 12-15 

definition, summary Table 12-1 12-20 Input message area See action programs. 

external 12.3.1 12-11 

field 6.3.8 6-20 Input records, unwanted control 
12.2.3 12-7 break example Fig. 12-2 12-3 

field record relation 12.4.3 12-15 

file conditioning 12.4.1 12-15 Inquiry request, IR 12.6.2 12-26 

initialization 4.2.11 4-6 

internal 12.3.2 12-12 Integrated communications access 

matching record 13.3.4 13-7 method (iCAM) 

output See output error processing 17.6 17-24 
indicators. network definition 17.4 17-22 

output conditioning 12.4.5 12-17 Program execution 17.5 17-24 
Fig. 12-7 12-19 

overflow See overflow Interactive data entry 13.16 13-94 


Reference Page 


indicator. 


Term 


Reference Page 
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RPG 1 Update C 
Term Reference Page Term Reference Page 
adding MIRAM records B.10.3 B-65 J 
Fig. B~27, ——- B-65 
creating MIRAM files B.10.1 B-58 Job control statements 
Fig. B-25 = B-58 auto report 18.2.2 18-18 
four-column prompt screen Fig. 13-44 13-94d 18.2.3 18-31 
function key 5 prompt screen Fig. 13-39 13-94 description 18.2 18-2 
one-column prompt screen Fig. 13-40 13-94b input deck sequence 18.2.4 18-40 
three-column prompt screen Fig. 13-43 —13-94c PARAM statement See PARAM 
two-column prompt screen Fig. 13-41  13-94b statement. 
Fig. 13-42 13-94c procedure call statements See procedure 
B.10.2 B-61 call statements. 
updating MIRAM records Fig. B-26 B-61 
JOB statement 18.2 18-2 
Interactive terminals 
description 17.1 17-1 
formatting a printer 
and entering data Fig. 17-7 17-18 
formatting a screen and 
entering data Fig. 17-5 17-13 
modes 17.3 17-4 
processing 13.13 13-82 
summary of record position 
ranges and screen line 
numbers for entry or display Table 17-1 = 17-12 
teletypewriter and DCT 500 17.3.2.2 17-17 
transmit with reception of 
conversational reply, DCT 500 
and teletypewriter 17.3.2.2.1 17-19 
Fig. 17-8 17-19 K 
transmit with reception of 
conversational reply, Key field length 5.2.10 5-13 
UNISCOPE 100 17.3.2.1.1 17-14 
Fig. 17-6 17-14 Key field starting location 5.2.14 5-17 
UNISCOPE 100 and UNISCOPE 200 17.3.2.1 17-11 
Key or record address field 
Internal indicators 12.3.2 12-12 length 5.2.10 5-13 
Internal subroutine operations Keypunch the forms 13 1-26 
BEGSR 7.3.2.4.3 7-27 
ENDSR 7.3.2.4.4 7-27 Keypunching errors 1.3 1-25 
EXSR 7.3.2.4.5 7-28 Fig. 1-2 1-24 
Internal subroutines Keys 
description 15.2 15-1 chaining 13.4.1 13-8 
specifying 15.2.1 15-2 random processing 13.5.1 13-17 
Fig. 15-1 15-3 
Keyword parameters, job control 
inverted print field 426 4-5 procedure call statement 18.2.1.2 18-10 


Fig. 18-3 18-10 
ISAM index 5.2.20 5-27 
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Index 17 


RPG {i Update A 
Term Reference Page Term Reference Page 
Link editing 
deck arrangement 18.2.4 18-40 
Label exit 5.2.19 5-26 description 18.1 18-1 
job control statements 18.2 18-2 
Labels field 5.2.17 5-19 
Linkage editor 13 1-25 
Last file field 11.2.9 11-5 18.1 18-1 
Last record indicator (LR) 5.2.4 5-6 Linkage registers 5.2.19 5-26 
12.3.2 12-14 
Fig. A-1 A-2 LINKAGE VECTOR, error 
A.2 A-4 analysis dump C.7.1.4 C-9 
Length of entry field 9.2.8 9-5 Linked subroutine, exit 7.3.2.4.6 7-29 
9.2.13 9-7 
Load module 1.3 1-25 
Limits 
demand file processing 13.7.3.2 13-25 Logic cycle See detail 
indexed sequential file logic cycle. 
processing 13.5.2 13-18 
Fig. 13-8 13-19 LOKUP operation 
arrays 13.10.3.4 13-60 
Line counter code 5.2.15 5-17 Fig. 13-25 13-62 
binary search field 4.2.8 4-5 
Line counter files description 7.3.2.7.1 7-32 
description 14.5 14-13 tables 13.9.3 13-41 
printing 14.5.2 14-14 13.9.3.1 13-41 
specifying Fig. 14-7 14-14 Fig. 13-16 13-41 
specifying lines associated 
with channel numbers Fig. 14-8 14-14 Look-ahead fields 13.8 13-28 
using 14.5.1 14-13 13.8.1 13-28 
Line counter specifications form Look-ahead subroutine A3.4 A-8 
channel number 10.2.3 10-3 Fig. A-2 A-7 
description 10.1 10-1 
Fig. 10-1 10-2 Look-up operations 
examples of entries 10.4 10-4 description 7.3.2.7 7-32 
Fig. 10-2 10-4 look-up (LOKUP) 7.3.2.7.1 7-32 
file name 10.2.1 10-1 resulting indicator 12.2.4 12-7 
for IBM System/3 mode 10.3 10-3 
line number 10.2.2 10-3 Lower limits, set 7,3.2.8.4 7-35 
Line insertion example Fig. 3-1 3-3 
Line number field 
description 3.2.2 3-2 
line counter specifications 
form 10.2.2 10-3 
line insertion example Fig. 3-1 3-3 
Link-edit errors 1.3 1-25 
Link-edit the program 1.3 1-25 
Fig. 1-1 1-2 
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Term - 


Main storage 
conservation techniques 
requirements 
reserving for ISAM index 


Matching field subroutine 


Matching fields 
description 
file record relation 
sequence 
specifying 


Matching fields or chaining 
fields field 
Matching record indicator (MR) 
Matching records, file 
processing 
description 
indicator 
primary file 
record selection 
secondary files 
specifying matching fields 
Messages 


compilation time 


displayed for operator control 
execution time 


Message text format 
MHHZO operation 
MHLZO operation 
MINUS field 

Minus sign, edit word 


MIRAM files 


Reference 


Appendix E 
18.3 
5.2.20 


A3.1 
Fig. A-2 


6.3.6.1 
12.4.3 
5.2.5 
13.3.2 
Fig. 13-1 


6.3.6 


12.3.2 
13.3.4 


13.3 
13.3.4 
13.3.1 
13.3.3 
Fig. 13-2 
13.8.3.2 
Fig. 13-13 
13.3.2 
Fig. 13-1 


0.5.1 
Appendix D 
C.5.3 

C.5.2 

19.9 
7.3.2.2.7 
7.3.2.2.6 
6.3.8 
14.3.2.2 


2.2.4 
18.2.3 
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RPG Il 
Page Term 
MIRAM files, manipulating 
adding records 
creating files 
18-40 
5-27 updating records 
A-6 
A-7 MLHZO operation 
MLLZO operation 
6-17 
12-15 Mode 
5-6 compilation 
13-2 file processing 
13-3 operator control 
Modes, file processing 
6-17 
Modifier statements 
12-14 description 
13-7 file description specifications 
input specifications 
Move array (MOVEA) operation 
13-2 
13-7 Move high zone to high zone 
13-2 (MHHZO) operation 
13-3 
13-4 Move high zone to low zone 
13-32 (MHLZ0) operation 
13-32 
13-2 Move left (MOVEL) operation 
13-3 
Move low zone to high zone 
(MLHZO) operation 
c-5 
Move low zone to low zone 
C-6 (MLLZO) operation 
c-5 
Move operations 
19-107 description 
move (MOVE) 
7-22 move array (MOVEA) 
move high zone to high 
7-22 zone (MHHZO) 
move high zone to low 
6-20 zone (MHLZO) 
move left (MOVEL) 
14-10 move low zone to high 
zone (MLHZO) 
2-7 move low zone to low zone 
18-31 (MLLZ0) 


Move remainder (MVR) operation 


Index 18 
Update C 


Reference 


B.10.3 
Fig. B-27 
B.10.1 
Fig. B-25 
B.10.2 
Fig. B-26 
7.3.2.2 
73.2.24 
4.21 
5.28 

C5 

173 
19.6.3 
19.6.3.1 
19.6.3.2 


7.3.2.2.2 


7.3.2.2.7 


7.3.2.2.6 


7.3.2.2.3 


7.3.2.2.5 


7.3.2.2.4 


7.3.2.2 

7.3.2.2.1 
7.3.2.2.2 
7.3.2.2.7 


7.3.2.2.6 
7.3.2.2.3 


7.3.2.2.5 
7.3.2.2.4 


7.3.2.1.7 


Page 


B-65 
B-65 
B-58 
B-58 
B-61 
B-61 


19-91 
19-92 
19-95 


7-16 


7-22 
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RPG Il Update C 
& Term Reference Page Term Reference Page 
MOVEA operation 7.3.2.2.2 7-16 Oo 
MOVEL operation 7.3.2.2.3 7-7 Operation field 7.3.2 7-7 
MULT operation 7.3.2.15 7-9 Operations, summary Table 7-1 7-39 
Multifile processing, controlling Operator control 
record selection 13.8.3.1 13-29 compilation time specification C.5.1 c-5 
Fig. 13-12 13-30 execution time specification 0.5.2 c-5 
: ; options C.5.3 C-6 
Multikey MIRAM files SET COMREG statement 0.5.2 c-5 
key specification 13.14 13-90 
sequential key processing 13.14.1 13-90a Operator control field 423 4-3 
Multiply (MULT) operation 7.3.2.15 7-9 Optional field 6.2.4 6-4 
Table 6-1 6-4 
MYR operation 7.3.2.1.7 7-10 
Options, RPG statement 
nonstandard Fig. 18-3 18-10 
Fig. 18-4 = 18-11 
standard default Fig. 18-1 18-8 
Fig. 18-2 18-9 
N 
OR lines 6.2.8 6-12 
@& N=NOT field 6.2.6.2 6-10 8.2.4 8-4 
Name of label exit or name of OR relationship 6.3.7 6-19 
user device routine 5.2.19 5-26 
Output conditioning 
Network definition, telecommunications 17.4 17-22 indicators 12.4.5 12-17 
specifying for records 
NEXT operation 7.3.2.8.9 7-37 and fields Fig. 12-7 12-19 
Non-English language feature 19.9 19-107 Output file 2.1.1 2-1 
5.2.2 5-3 
Nonstandard options, RPG job control 
procedure call statements Fig. 18-3 18-10 Output file identification and 
Fig. 18-4 18-11 control entries 
adding records to an existing 
Number field 6.2.3 6-3 indexed sequential file 8.2.5 8-4 
Table 6-1 6-4 AND/OR relationships 8.2.4 8-4 
file name 8.2.1 8-1 
Number of bytes in main storage to output indicators - records 8.2.8 8-7 
be reserved for ISAM index 5,2.20 5-27 skip 8.2.7 8-5 
Table 8-1 8-6 
Number of entries per record 9.2.6 9-5 space 8.2.6 8-5 
stacker select/fetch overflow 8.2.3 8-3 
Number of entries per table or array 9.2.7 9-5 type 8.2.2 8-3 
Number of the chaining field 9.2.2 9-1 


Numeric data formats 


@ packed 2.4.3 2-12 
Fig. 2-7 2-12 

unpacked 2.4.4 2-1 

Fig. 2-8 2- 
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RPG Il 
Term Reference Page Term Reference Page 
Output format specifications form 
description 8.1 8-1 ; 
Fig. 8-1 8-2 Packed numeric data format 2.4.3 
examples of entries 8.4 8-13 Fig. 2-7 
Fig. 8-2 8-12 
field description and control Page headings 19.2 19-3 
entries See field 
description PAGE, PAGE1-7 field names 14.4.2 14-12 
and control 
entries. PARAM statement 
output file identification description 18.2.3 18-31 
and control entries See output file format 18.2.3 18-31 
identification and using 18.2 18-2 
contro! entries. oe 
workstation entries 13.13.4 13-85 Payroll, computing with 
tables 13.9.3.2 13-43 
Output indicators Fig. 13-17. 13-44 
fields 8.3.1 8-8 ae 
overflow indicators 5.2.13 5-16 Permanent error indicator 
Table 5-4 5-17 field 11.2.7 11-4 
records 8.2.8 8-7 ; 
PF key subroutine - SUBR89 12.6.1 12-23 
Output operations 
: deta 1.4.1 1-7 “PLACE field name 14.4.3 14-12 
total 1.4.2 1-7 Fig. 14-5 = 14-13 
unwanted contro! break Fig. 14-6 =:14-13 
examples Fig. 12-3 12-4 ; 
Fig. 12-4 12-6 PLUS field 6.3.8 6-20 
Output records Plus sign Appendix D 
end position 8.3.5 8-10 ; 
using arrays to format 13.10.35 13-64 Pointer 2.3.1 2-8 
Fig. 13-26 13-65 2.3.2 2-9 
Output specifications, errors 6.2 G1 Position field 6.2.6.1 6-10 
Overflow indicator Primary data file 2.1.2 2-2 
description 12.2.5 12-9 5.2.3 5 
fetch, using Fig. 12-5 12-10 13.3.1 13-2 
Overflow indicator field Prime data area 2.2.2 2-3 
description 9.2.13 5-16 Fig. 2-1 2-4 
interaction with output : 
indicators Table 5-4 5-17 Printer format chart 
description 14.2 14-1 
Overflow subroutine A3.3 A-8 ; Fig 14-1 - 
Fig. A-2 A-7 examples of entries Fig. 14-2 14-4 
Override normal record selection 
(FORCE) 7.3.2.8.5 7-35 
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© Term Reference Page Term Reference Page 
Printing techniques Program logic 1.4 1-27 
description 14.1 14-1 
edit codes 14.3.1 14-5 Program testing aids 
edit words 14.3.2 14-6 DEBUG operation C.2 C-2 
editing 14.3 14-3 Fig. C-1 C-4 
line counter files 145 14-13 description C.1 C-1 
printer format chart 14.2 14-1 DSPLY operation C3 C-3 
Fig. 14-1 14-2 error analysis dump C7 C-7 
Fig. 14-2 14-4 Fig. C-3 C-12 
special field names 14.4 14-10 *ERROR field C6 C-7 
Fig. C-2 C-7 
Procedure call statements, job EXCPT operation C5 C-5 
control operator control C5 C-5 
AUTO statement 18.2.2 18-18 unformatted dump C8 C-10 
Fig. 18-9 18-25 Fig. C-4 C-25 
Fig. 18-11 18-27 
AUTORPG statement 18.2.2 18-18 Programming at workstation 13.13 13-82 
Fig. 18-13 18-29 B.9.3 B-57 
AUTORPGL statement 18.2.2 18-18 
AUTORPGLG statement 18.2.2 18-18 Programming examples Appendix B 
defining keyword parameters 18.2.1.2 18-10 
Fig. 18-3 18-10 Programs 
description 18.2.1 18-2 compiling 12 1-4 
formats 18.2.1 18-3 18.1 18-1 
RPG statement 18.2.1.1 18-8 controlling RPG 1 12.1 12-1 
@ Fig 18-1 18-8 debug 12 1-5 
Fig. 18-2 18-9 executing 1.2 1-2 
Fig. 18-4 18-11 13 1-25 
RPGL statement 18.2.1.3 18-12 18.1 18-1 
Fig. 18-5 18-12 incorporating subroutines See incorporating 
Fig. 18-6 = 18-13 subroutines. in 
RPGLG statement 18.2.1.4 18-14 your program. 
Fig. 18-7 18-14 link-edit 1.2 1-1 
Fig. 18-8 18-16 1.3 1-2 
sh 18.1 18-1 
Processing, file See file requirements 1.2 1-1 
processing. 1.3 1-25 
type and number of 
Program check island code 4.2.9 4-6 specifications forms 
required 3.1 3-1 
Program conversion requirements Appendix F writing 1.2 1-3 
13 1-25 
Program execution telecommunications 17.5 17-24 
Prompt screens 
Program identification 3.2.6 3-6 four-column, 70 fields Fig. 13-44 = 13-94d 
4.2.15 4-7 function key 5 Fig. 13-39 13-94 
one-column, 23 fields Fig. 13-40 13-94b 
Program information block See action programs. three-column, 47 fields Fig. 13-43 13-94c 
two-column, 24 fields Fig. 13-41  13-94b 
two-column, self-adjusting fields Fig. 13-42 13-94c 
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Term Reference Page Term Reference Page 
Record identification entries, input 
format specifications form 
Randomly processing an indexed AND/OR 6.2.8 6-12 
sequential file 13.5.1 13-17 file name 6.2.1 6-3 
Fig. 13-7 13-18 number 6.2.3 6-3 
optional 6.2.4 6-4 
Randomly retrieving records 13.4.2 13-13 providing for undefined 
Fig. 13-5 13-14 record types Fig. 6-4 6-9 
record identification codes 6.2.6 6-8 
READ operation record identifying indicator 6.2.5 6-4 
demand files 13.7.3 13-22 sequence 6.2.2 6-3 
Fig. 13-10 13-23 stacker select 6.2.7 6-11 
demand files using SETLL 13.7.3.2 13-25 summary of sequence, number, 
description 73.2.8.3 7-34 and optional field entries Table 6-1 6-4 
Receive a file, then transmit a Record identifying indicator 12.2.1 12-1 
file mode 17.3 17-4 Fig. 12-1 12-2 
Receive only mode Record identifying indicator field 6.2.5 6-4 
description 17.3 17-3 
using DCT 2000 17.3.1.1 7-5 Record length field 2.3.2 2-9 
Fig. 17-2 - 5.2.8 5-10 
Table 5-2 5-12 
RECORD, error analysis dump C.7.1.3 C-9 
Record numbers, relative 13.4.2 13-13 
Record address field length 5.2.10 5-13 
Record position ranges, 
Record address file 2.1.2 2-2 UNISCOPE 100/200 Table 17-1 17-12 
5.2.3 5-5 
Record retrieval 
Record address file processing chaining 13.4.2 13-13 
indexed sequential file Fig 13-5 = 13-14 
between limits 13.5.2 13-18 file processing Table 13-1 13-1 
Fig. 13-8 13-19 
indexed sequential file Record selection 
randomly 13.5.1 13-17 controlling during multifile 
Fig. 13-7 13-18 processing 13.8.3.1 13-29 
Fig. 13-12 13-30 
Record address type 5.2.11 -13 matching 13.3.3 13-3 
Table 5-3 -15 Fig. 13-2 13-4 
override normal 7.3.2.8.5 7-35 
Record identification codes 
field Record sequence of chaining file 
C/2/0 6.2.6.3 6-10 field 9.2.1 9-1 
characters 6.2.6.4 6-11 
description 6.2.6 6-8 Record types, undefined Fig. 6-4 6-9 
interpretation of &, -, 
and blanks Table 6-2 6-10 
N=NOT 6.2.6.2 6-10 
position 6.2.6.1 6-10 
providing for undefined 
record types Fig. 6-4 6-9 
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variable-length 


See variable- 
length records. 


RPG Il - IMS action programs 


e Term Reference Page Term Reference Page 
Records Retrieve record from a chained file 
adding to indexed sequential (CHAIN) operation 7.3.2.8.1 7-33 
file 8.2.5 8-4 
alternate collating sequence 13.11.2 13-72 Rewinding tape 5.2.24 5-29 
customer 13.4.1 13-8 
file format 2.3 2-7 RLABL operation 
file translation table 13.12.1 13-76 description 7.3.2.4.7 7-29 
fixed-length See fixed-length external subroutines 15.3 15-4 
records. 
input See input RPG fl 
records. controlling See controlling 
matching See matching RPG I. 
records. cards 1.3 1-25 
output See output Fig. 1-2 1-24 
records. workstation 1.2 1-1 
output indicators 8.2.8 8-7 Fig. 1-1 1-23 


See action programs. 


REFER operation 73.281A 7-34 RPG Wi program to external 
subroutine access (ULABL) 
REG SAVE AREA C.7.1.1 C-8 operation 73.248 7-30 
Registers, linkage 5.2.19 5-26 RPG job control procedure call 
statement 
Relative record numbers 13.4.2 13-13 defining keyword parameters 18.2.1.2 18-10 
Fig. 18-3 18-10 
Remote device field 11.2.10 - description 18.2 18-2 
Table 11-1 11-6 18.2.1 18-2 
format 18.2.1 18-3 
Remote terminal field 11.2.6 - job control statements 
Table 11-1 11-6 generated, nonstandard 
options Fig. 18-4 18-11 
Remote terminals job control statements 
batch See batch generated, standard 
terminals. default options Fig. 18-2 18-9 
description 17.1 17-1 
field 11.2.6 11-4 RPGL job control procedure call 
file processing modes 17.3 17-2 statement 
interactive See interactive description 18.2.1 18-3 
terminals. format 18.2.1 18-3 
job contro! statements 
Reports, special field names 14.4 14-10 generated Fig. 18-6 18-13 
using 18.2.1.3 18-12 
Restrictions, RPG Il features See action programs. Fig. 18-5 18-12 
Result field 7.3.3 7-40 RPGLG job contro! procedure call 
statements 
Resulting indicator 12.2.4 12-7 description 18.2.1 18-2 
format 18.2.1 18-3 
Resulting indicator entries job control statements 
comments 744 7-44 generated Fig. 18-8 18-16 
description 74 7-42 using 18.2.1.4 18-14 
0, 1 = 2, or equal 743 7-43 Fig. 18-7 18-14 
-, 1 < 2, or low 7.4.2 7-43 
+, 1 > 2, or high 7.4.1 7-42 
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Term 


S 


Sample job control stream, auto report 
Sample program, workstation 


Screen formatting 


Screen tine numbers, UNISCOPE 
100/200 


Screens, prompt 
four-column prompt screen, 70 fields 
function key 5 prompt screen 
one-column prompt screen, 23 fields 
three-column prompt screen, 47 fields 
two-column prompt screen, 24 fields 
two-column prompt screen, self-adjusting 

fields 


Search conditions 
arrays 
tables 


Secondary data files 
file designation 


matching records 


Sequence checking 
line number field 
page number field 
when performed during 
compilation 


Sequence field 
file description 
file extension 


input format 


Sequential files 


Sequential processing 


Serious error messages 


Set bit off (BITOF) 
operation 


Set bit on (BITON) 
operation 


Reference 


19.8 
13.13.6 
8.3.6 

Fig. 17-5 


Table 17-1 


Fig. 13-44 
Fig. 13-39 
Fig. 13-40 
Fig. 13-43 
Fig. 13-41 


Fig. 13-42 


13.10.3.4 
13.9.3 


2.1.2 

5.2.3 
13.8.3.2 
Fig. 13-13 


3.2.2 
3.2.1 
Table 3-1 
5.2.5 
9.2.11 
9.2.16 
6.2.2 
Table 6-1 
2.2.1 


13.2 
13.6 
Appendix D 


7.3.2.6.2 


7.3.2.6.1 
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Page 


19-107 
13-86 
8-10 
17-13 


17-12 


13-94d 
13-94 

13-94b 
13-94c 
13-94b 


13-94c 


13-60 
13-41 


5-5 
13-32 
13-32 


7-32 


7-31 


RPG I 


Term 


SETK operation 


Set lower limits (SETLL) 
operation 


Set off (SETOF) operation 
description 
resulting indicator 
Set on (SETON) operation 
description 
resulting indicator 
SETLL operation 


description 
processing a demand file 


Setting indicators on and off 
Setting indicators via system 
console 
PF key subroutine - SUBR89 
unsolicited inquiry request 
subroutine - SUBR95 
SHTDN operation 
Sign handling field 
Sign status 
Simple edit codes 
Skip channel number translation 
Skip fields 
SKIP keyword parameter 
Source program deck 
Space fields 
/SPACE n compiler directive 
Special field names 
description 
D?TE, UDATE, UDAY, UMONTH, 
and UYEAR 


PAGE, PAGE 1-7 
*PLACE 


printing 


Index 24 
Update C 


Reference 


7.3.2.8.2 


7.3.2.8.4 


7.3.2.5.2 
12.2.4 


73.2.5.1 
12.2.4 


7.3.2.8.4 
13.7.3.2 
Fig. 13-11 


Table 12-3 


12.6.1 
12.6.2 
7.3.2.10 
4.29 
14.3.2.1 
14.3.1.1 
Table 8-1] 
8.2.7 
18.2.3 
1.3 
8.2.6 


3.2.4 


14.4 


14.4.1 
14.4.2 
14.43 
Fig. 14-5 
Fig. 14-6 
19.2.1.5 


7-30 
12-7 


7-30 
12-7 


7-35 
13-25 
13-26 


12-22 


12-23 


12-26 


8-6 


8-5 


18-34 


1-25 


8-5 


3-5 


14-10 


14-10 
14-12 
14-12 
14-13 
14-13 
19-8 
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RPG Il 
& Term Reference Page Term Reference Page 
Specifications forms Subtract (SUB) operation 7.3.2.1.3 7-9 
auto report options 19.5 19-84 
calculation Section 7 Summary, auto report 
common fields 3.2 3-2 placement, H-*AUTO page 
control card Section 4 heading lines 19.7.5 19-102 
file description Section 5 placement, D/T-*AUTO column 
file extension Section 9 heading lines over fields 19.7.6 19-103 
input format Section 6 placement, D/T-*AUTO fields 19.7.7 19-105 
line counter Section 10 placement, D/T-*AUTO headings 
output format Section 8 or fields next to totals 19.7.8 19-106 
telecommunications Section 11 skipping 19.7.9 19-106 
type and number required 3.1 3-1 spacing, H-*AUTO page heading 
use, action programs 16.2 16-2 lines 19.7.1 19-100 
spacing, D-*AUTO lines 19.7.2 19-100 
Split control fields, rules 6.3.5 6-15 spacing, D/T-*AUTO column 
heading lines 19.7.4 19-102 
Spread card feature spacing, T-*AUTO lines 19.7.3 19-101 
description 6.2.5.2 6-5 
examples Fig. 6-2 6-6 Switched field 11.2.5 11-3 
Fig. 6-3 6-8 
System date format 4.2.6 4-5 
Square root (SQRT) operation 7.3.2.1.8 7-12 
System shutdown (SHTDN) 7.3.2.10 7-38 


Stacker select/fetch overflow 


@ field 8.2.3 8-3 


Stacker select field 6.2.7 6-11 
Standard default options, 
RPG statement Fig. 18-1 18-8 
Fig. 18-2 18-9 
Statements, job control See job control 


statements and 
procedure call 


statements. 
Statements, using arrays to reduce 
number 13.10.3.6 13-66 
Station, type 11.2.3 11-3 
SUB operation code 7.3.2.1.3 7-9 
Subroutine field 4.2.14 4-7 
Subroutines 
detail logic A3 A-6 
Fig. A-2 A-7 
external 15.3 15-4 
incorporating in your 
program 15.1 15-1 
internal 15.2 15-1 
operations See branching 
and exit 


operations. 
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Term 


Table, file translation 
¥ 


Table file 

Table linkage field, unformatted 
dump 

Table or array, number of entries 


Table or array name field 


Tables, file processing 
adding elements 


binary search 

computing payroll 

definition 

definition examples 

description 

file description form 
entries 


file extension form 
entries 


first element pesitioning 
formats 


LOKUP operation 


modifying 


using 
using data from LOKUP 


Tag file 
TAG operation 
description 


internal subroutines 


Tape rewind option 


Reference 


See file 
translation. 


2.1.2 
5.2.3 


C.8.1.1.4 
9.2.7 


9.2.5 
9.2.12 


13.9.3.4 
Fig. 13-19 
4.2.8 

Fig. 13-17 
13.9.2 
13.9.2.2 
Fig. 13-15 
13.9 


13.9.2.1 
Table 13-2 


13.9.2.1 
Table 13-3 
13.9.1 
13.9.1 

Fig. 13-14 
13.9.3 
13.9.3.1 
Fig. 13-16 
13.9.3.3 
Fig. 13-18 
13.9.3 
13.9.3.2 


2.1.2 
5.2.3 
7.3.2.4.2 


15.2 


5.2.24 
Table 5-9 
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Page 


13-46 
13-47 
4-5 

13-44 
13-35 


13-33 


RPG II 


Term 


T-*AUTO total reports 


description 

examples of entries 

field description and control 
entries 

field description, prints field 
and column heading 

field description, prints field 
next to total 

field description, prints heading 

field description, prints heading 
next to total 

field description, prints numeric 
field, column heading, and 
accumulates totals 

field description, prints second 
and third column heading line 

output file identification and 
control entries 


Telecommunications 


CCA name field 

description 

error processing 

file processing modes 

network definition requirements 
for RPG Il programs 

program requirements 

specifying and describing 
communications files 

using 

using batch remote terminals 

using interactive remote 
terminals 


Telecommunications specifications 
form 


configuration 
description 


examples of entries 


file name 

last file 

permanent error indicator 

remote device 

remote terminal 

summary of remote terminal 
and remote device entries 

switched 

terminal name 

transparency 

type of station 

wait time 


Index 26 


Reference 


19.4 
19.4.2.7 


19.4.2 
19.4.2.1 


19.4.2.6 
19.4.2.2 


19.4.2.5 


19.4.2.3 
19.4.2.4 


19.4.1 


4.2.13 


17.6 
17.3 


17.4 
17.5 


Fig. 17-1 
17.2 
173.1 


17.3.2 


11.2.2 
11.1 

Fig. 11-1 
11.3 

Fig. 11-2 
11.21 
11.2.9 
11.2.7 
11.2.10 
11.2.6 


Table 11-1 
11.2.5 
11.2.11 
11.2.4 


Page 


19-54 
19-82 


19-59 
19-62 


19-79 
19-66 


19-76 


19-68 
19-74 


19-54 


4-7 
17-1 
17-24 
17-2 


17-22 
17-24 


17-11 


11-3 
11-1 
11-2 
11-6 
11-7 
11-1 
11-5 
11-4 
11-5 
11-4 
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RPG II 


Index 27 
Update F 
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Term 


Teletypewriter and DCT 500 
formatting a printer and 
entering data 
transmit with reception of 
conversational reply 


using 
Terminal name field 
Terminals 

BCS 


DCT 1000 
DCT 2000 


UNISCOPE 
See also batch terminals 


and interactive terminals. 


Test bit operation 

description 

resulting indicator 
Test numeric operation 

description 

resulting indicator 
Test operations, compare and 
Test zone operation 

description 

resulting indicator 


TESTB operation 


Testing aids 


TESTN operation 

TESTZ operation 

Time of day operations 
TIME operation 

/TITLE compiler directive 


TO file name field 


@ Total reports 


Reference 


Fig. 17-7 


17.3.2.2.1 
Fig. 17-8 
17.3.2.2 


112.11 


17.3.1.3 
17.3.1.2 
17.3.1.1 
See remote 
terminals. 
17.3.2.1 


7.3.2.3.2 


12.2.4 


7.3.2.3.3 
12.2.4 


Page 


17-18 
17-19 
17-19 
17-17 


11-6 


17-11 


7-24 


12-7 


7-25 
12-7 


See compare and 
test operations. 


7.3.2.3.4 
12.2.4 


7.3.2.3.2 


See program 
testing aids. 


7.3.2.3.3 
73.2.3.4 
7.3.2.9 
7.3.2.9.1 
3.2.4 


9.2.4 
Table 9-1 


19.4 


7-25 
12-7 


7-24 


7-25 
7-25 
7-38 
7-38 


3-5 


Term 


Total time 
Transaction buffer area (TBA) 
Translating characters 

for more than one but 


not all files 
in a file 
Translation, file 
Translation table, file 
translation 
Transmit a file, then receive 
another file mode 


description 
using BCS remote terminal 


Transmit only mode 
DCT 1000 
description 
Transmit with reception of 
conversational reply 
description 
using four UNISCOPE 
100s 
using two DCT 500s 
and a teletypewriter 
terminal 
Transparency field 
Type field 


Type of station 


Types of files 


Reference 


1.4.2 


See action 
programs. 


13.12.2.2 
Fig. 13-34 
13.12.2.1 
Fig. 13-33 
See file 

translation. 


4.2.11 


17.3 
17.3.1.3 
Fig. 17-4 


17.3.1.2 
Fig. 17-3 
17.3 


17.3 
17.3.2.1.1 
Fig. 17-6 
17.3.2.2.1 
Fig. 17-8 
11.2.4 
8.2.2 
11.2.3 


2.1.1 


Page 


1-7 


13-82 
13-82 
13-81 
13-82 


17-3 
17-14 
17-14 
17-19 
17-19 
11-3 
8-3 


11-3 


UP-8067 Rev. 6 


Term 


UDATE, UDAY, UMONTH, 
and UYEAR field names 


ULABL operation 
description 
external subroutines 


Undefined record types 


Unformatted dump 

description 

example 

locating data field 

locating *ERROR field 

locating indicator 

locating information 

locating table linkage 
field for table or 
array 

using 


UNISCOPE 100 and UNISCOPE 200 


Display Terminals 


formatting a screen and entering 


data 


transmit with reception of 


conversational reply 
using 
Unordered load field 
Unpacked numeric data format 


Unsolicited inquiry request 
subroutine - SUBR95 


Unwanted control break examples 
entries to avoid incorrect 


output 
input records 
outputs 


Update file 


Updating an indexed sequential 
file by chaining 


Reference 


14.4.1 


7.3.2.4.8 
15.3 


Fig. 6-4 


C8 

Fig. C-4 
C.8.1.1.3 
C.8.1.1.2 
C.8.1.1.1 
C.8.1.1 


C.8.1.1.4 
C.8.1 


Fig. 17-5 
17.3.2.1.1 
Fig. 17-6 
17.3.2.1 
5.2.21 
2.4.4 
Fig. 2-8 


12.6.2 


Fig. 12-3 
Fig. 12-2 
Fig. 12-4 


2.1.1 
5.2.2 


B.7 
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Page 


14-10 


7-30 
15-4 


6-9 


C-10 


17-13 
17-14 
17-14 
17-11 


5-27 


B-33 


RPG Il 


UPSI byte 
external indicators 


setting, compilation time 


User device routine 
Using RPG ll 


cards 
workstation 


Variable-length records 


Index 28 
Update A 


Reference 


12.3.1 
D.1 


5.2.19 


Fig. 1-2 
12 
Fig. 1-1 


2.3 


Page e 


12-11 
D-1 


5-26 
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@ Term 


Wait time field 


Writing a program 


Workstation 
as primary or demand file 
entering a program 
file processing 
format name 
general information 
length of format name 
screen formats 


multiple workstations 


Workstation options 
IND 
INFDS 
INFSR 
NUM 
SAVDS 


& WORKSIN file 


XFOOT operation 
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Reference 


11.2.8 


12 
Fig. 1-1 


5.2.3 
B.9.3 
13.13 
8.3.10 


8.3.6 
5.2.16 


5.2.18 

5.2.18.2 
5.2.18.2 
5.2.18.2 
5.2.18.2 
5.2.18.2 


13.13 


7.3.2.1.9 


RPG II 


Page 


5-5 
B-57 
13-80 
8-13 
1-5 
8-10 
5-19 
B-57 
5-20 


7-12 


Term 


Z-ADD operation 

Z-SUB operation 

*ZERO 

*ZEROS 

Zero and add (Z-ADD) operation 


Zero and subtract (Z-SUB) 
operation 


ZERO or BLANK field 


Zeros 
edit codes 


edit words 


Zone, C/Z/D field 


Index 29 
Update E 


Reference 


7.3.2.1.2 
7.3.2.1.4 
73.1 
73.1 


7.3.2.1.2 


7.3.2.1.4 
6.3.8 
14,3.1.1 
14.3.1.2 
14.3.2.2 


6.2.6.3 


Page 


14-5 
14-6 
14-8 


6-10 
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